mason: fix some bugs

diff --git a/extra/mason/build/build-tests.factor b/extra/mason/build/build-tests.factor
index 1e3705629fdbf71b253b2872c08010ff1994424a..4f5825e4ddc1bb345c54500bf646c45bef7e36f4 100644 (file)
--- a/extra/mason/build/build-tests.factor
+++ b/extra/mason/build/build-tests.factor
@@ -1,5 +1,2 @@
 USING: mason.build tools.test sequences ;
 IN: mason.build.tests
-
-{ create-build-dir enter-build-dir clone-builds-factor record-id }
-[ must-infer ] each

diff --git a/extra/mason/email/email-tests.factor b/extra/mason/email/email-tests.factor
index 5bde9a9cfead3217003110b0f8d58af7d2ebac47..e2afe01a5661025f8dfde9c27b11ba86b4274a78 100644 (file)
--- a/extra/mason/email/email-tests.factor
+++ b/extra/mason/email/email-tests.factor
@@ -5,7 +5,6 @@ USING: mason.email mason.common mason.config namespaces tools.test ;
     [
         "linux" target-os set
         "x86.64" target-cpu set
-        status-error status set
-        subject prefix-subject
+        status-error subject prefix-subject
     ] with-scope
 ] unit-test

diff --git a/extra/mason/report/report.factor b/extra/mason/report/report.factor
index d6732adb1d11b5c8ff8367f32246c496d47ecc13..0839652d553ffc08ad5648a3e02720ccfda7cb8a 100644 (file)
--- a/extra/mason/report/report.factor
+++ b/extra/mason/report/report.factor
@@ -63,6 +63,7 @@ IN: mason.report
         benchmark-time-file
         html-help-time-file
     } [
+        execute( -- string )
         dup utf8 file-contents milli-seconds>time
         [XML <tr><td><-></td><td><-></td></tr> XML]
     ] map [XML <h2>Timings</h2> <table><-></table> XML] ;