benchmark.reverse-complement.tests,mason.report.tests: fix for the test

cases so they write to temp files instead of in resource:

diff --git a/extra/benchmark/reverse-complement/reverse-complement-tests.factor b/extra/benchmark/reverse-complement/reverse-complement-tests.factor
index 883124105b954865d4b54572a58571704713e94c..ed803c11e13e7fa192c7b46252a815be07e1c4ca 100644 (file)
--- a/extra/benchmark/reverse-complement/reverse-complement-tests.factor
+++ b/extra/benchmark/reverse-complement/reverse-complement-tests.factor
@@ -1,13 +1,9 @@
 IN: benchmark.reverse-complement.tests\r
-USING: tools.test benchmark.reverse-complement\r
-checksums checksums.md5\r
-io.files kernel ;\r
+USING: benchmark.reverse-complement checksums checksums.md5 io.files\r
+io.files.temp kernel tools.test ;\r
 \r
 [ "c071aa7e007a9770b2fb4304f55a17e5" ] [\r
     "resource:extra/benchmark/reverse-complement/reverse-complement-test-in.txt"\r
-    "resource:extra/benchmark/reverse-complement/reverse-complement-test-out.txt"\r
-    reverse-complement\r
-\r
-    "resource:extra/benchmark/reverse-complement/reverse-complement-test-out.txt"\r
-    md5 checksum-file hex-string\r
+    "reverse-complement-test-out.txt" temp-file\r
+    [ reverse-complement ] keep md5 checksum-file hex-string\r
 ] unit-test\r

diff --git a/extra/mason/report/report-tests.factor b/extra/mason/report/report-tests.factor
index b728c5df3b2e44060adedf52d6c71c30491c6dd2..d134d91b856761e60448adec354c52ff8c0dfa8e 100644 (file)
--- a/extra/mason/report/report-tests.factor
+++ b/extra/mason/report/report-tests.factor
@@ -1,30 +1,33 @@
-IN: mason.report.tests
-USING: io.files io.files.temp io.directories kernel mason.report
-mason.common mason.config namespaces tools.test xml xml.writer ;
-
-{ 0 0 } [ [ ] with-report ] must-infer-as
-
-: verify-report ( -- )
-     [ t ] [ "report" exists? ] unit-test
-     [ ] [ "report" file>xml drop ] unit-test
-     [ ] [ "report" delete-file ] unit-test ;
-
-"builds" temp-file builds-dir [
-    "resource:extra/mason/report/fake-data/" [
-         [ ] [
-              timings-table pprint-xml
-         ] unit-test
-    
-         [ ] [ successful-report ] unit-test
-         verify-report
-    
-         [ status-error ] [ 1234 compile-failed ] unit-test
-         verify-report
-    
-         [ status-error ] [ 1235 boot-failed ] unit-test
-         verify-report
-    
-         [ status-error ] [ 1236 test-failed ] unit-test
-         verify-report
-    ] with-directory
-] with-variable
+IN: mason.report.tests\r
+USING: io.files io.files.temp io.directories io.directories.hierarchy kernel\r
+mason.report mason.common mason.config namespaces tools.test xml xml.writer ;\r
+\r
+{ 0 0 } [ [ ] with-report ] must-infer-as\r
+\r
+: verify-report ( -- )\r
+     [ t ] [ "report" exists? ] unit-test\r
+     [ ] [ "report" file>xml drop ] unit-test\r
+     [ ] [ "report" delete-file ] unit-test ;\r
+\r
+"builds" temp-file builds-dir [\r
+    [\r
+        "resource:extra/mason/report/fake-data/" "." copy-tree\r
+\r
+        [ ] [\r
+            timings-table pprint-xml\r
+        ] unit-test\r
+\r
+        [ ] [ successful-report ] unit-test\r
+        verify-report\r
+\r
+        [ status-error ] [ 1234 compile-failed ] unit-test\r
+        verify-report\r
+\r
+        [ status-error ] [ 1235 boot-failed ] unit-test\r
+        verify-report\r
+\r
+        [ status-error ] [ 1236 test-failed ] unit-test\r
+        verify-report\r
+\r
+    ] with-temp-directory\r
+] with-variable\r