test for unreproducable KT-640

compiler/tests/org/jetbrains/jet/codegen/ObjectGenTest.java

@@ -25,4 +25,8 @@ public class ObjectGenTest extends CodegenTestCase {
     public void testKt560() throws Exception {
         blackBoxFile("regressions/kt560.jet");
     }
+
+    public void testKt640() throws Exception {
+        blackBoxFile("regressions/kt640.jet");
+    }
 }

compiler/tests/org/jetbrains/jet/compiler/CompileEnvironmentTest.java

@@ -76,14 +76,15 @@ public class CompileEnvironmentTest extends TestCase {
         }
     }
     
-    private static void delete(File file) {
+    private static boolean delete(File file) {
+        boolean success = true;
         if(file.isDirectory()) {
             for (File child : file.listFiles()) {
-                delete(child);
+                success = success && delete(child);
             }
         }
 
-        file.delete();
+        return file.delete() && success;
     }
     
     public void testSmokeWithCompilerOutput() throws IOException {
@@ -101,7 +102,7 @@ public class CompileEnvironmentTest extends TestCase {
         }
     }
 
-    private List<String> listEntries(JarInputStream is) throws IOException {
+    private static List<String> listEntries(JarInputStream is) throws IOException {
         List<String> entries = new ArrayList<String>();
         while (true) {
             final JarEntry jarEntry = is.getNextJarEntry();