factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test

[factor.git] / extra / gml / gml-tests.factor

diff --git a/extra/gml/gml-tests.factor b/extra/gml/gml-tests.factor
index bbfa6bc27db115726b84cc5a911a376a20763461..99c099abacb1846322f5b9041af1bcc9352394e0 100644 (file)
--- a/extra/gml/gml-tests.factor
+++ b/extra/gml/gml-tests.factor
@@ -1,13 +1,13 @@
 IN: gml.tests
 USING: accessors combinators gml tools.test kernel sequences euler.b-rep ;
 
-[ ] [ [ "vocab:gml/test-core.gml" run-gml-file ] make-gml 2drop ] unit-test
+{ } [ [ "vocab:gml/test-core.gml" run-gml-file ] make-gml 2drop ] unit-test
 
-[ ] [ [ "vocab:gml/test-coremath.gml" run-gml-file ] make-gml 2drop ] unit-test
+{ } [ [ "vocab:gml/test-coremath.gml" run-gml-file ] make-gml 2drop ] unit-test
 
-[ ] [ [ "vocab:gml/test-geometry.gml" run-gml-file ] make-gml 2drop ] unit-test
+{ } [ [ "vocab:gml/test-geometry.gml" run-gml-file ] make-gml 2drop ] unit-test
 
-[ ] [
+{ } [
     [ "vocab:gml/examples/cube.gml" run-gml-file ] make-gml nip
     {
         [ check-b-rep ]
@@ -18,7 +18,7 @@ USING: accessors combinators gml tools.test kernel sequences euler.b-rep ;
     } cleave
 ] unit-test
 
-[ ] [
+{ } [
     [ "vocab:gml/examples/torus.gml" run-gml-file ] make-gml nip
     {
         [ check-b-rep ]
@@ -30,7 +30,7 @@ USING: accessors combinators gml tools.test kernel sequences euler.b-rep ;
     } cleave
 ] unit-test
 
-[ ] [
+{ } [
     [ "vocab:gml/examples/mobius.gml" run-gml-file ] make-gml nip
     {
         [ check-b-rep ]