more test IN: cleanup.

[factor.git] / extra / mason / platform / platform-tests.factor

diff --git a/extra/mason/platform/platform-tests.factor b/extra/mason/platform/platform-tests.factor
index dc76bdad4e6644900a996fc2b87308773fbfbee9..32a18025ba1922f00d3f65f0a68b69ab6e9650a7 100644 (file)
--- a/extra/mason/platform/platform-tests.factor
+++ b/extra/mason/platform/platform-tests.factor
@@ -1,21 +1,20 @@
 USING: mason.config mason.platform namespaces tools.test
 strings system ;
-IN: mason.platform.tests
 
 { t } [ platform string? ] unit-test
 
-[
-    linux target-os set
-    x86.32 target-cpu set
-    f target-variant set
+{ "linux-x86-32" } [
+    H{
+        { target-os linux }
+        { target-cpu x86.32 }
+        { target-variant f }
+    } [ platform ] with-variables
+] unit-test
 
-    [ "linux-x86-32" ] [ platform ] unit-test
-] with-scope
-
-[
-    windows target-os set
-    x86.32 target-cpu set
-    "xp" target-variant set
-
-    [ "windows-x86-32-xp" ] [ platform ] unit-test
-] with-scope
+{ "windows-x86-32-xp" } [
+    H{
+        { target-os windows }
+        { target-cpu x86.32 }
+        { target-variant "xp" }
+    } [ platform ] with-variables
+] unit-test