]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/descriptive/descriptive-tests.factor
factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!
[factor.git] / extra / descriptive / descriptive-tests.factor
index cc1c1be942e1042267daf223566c93dfe57b5110..8ec70159cf3556989f98b007ef9347e9cac3264e 100644 (file)
@@ -4,31 +4,31 @@ IN: descriptive.tests
 
 DESCRIPTIVE: divide ( num denom -- fraction ) / ;
 
-[ 3 ] [ 9 3 divide ] unit-test
+{ 3 } [ 9 3 divide ] unit-test
 
-[
+{
     T{ descriptive-error f
         { { "num" 3 } { "denom" 0 } }
         T{ division-by-zero f 3 }
         divide
     }
-] [
+} [
     [ 3 0 divide ] [ ] recover
 ] unit-test
 
-[ "USING: descriptive math ;\nIN: descriptive.tests\nDESCRIPTIVE: divide ( num denom -- fraction ) / ;\n" ]
+{ "USING: descriptive math ;\nIN: descriptive.tests\nDESCRIPTIVE: divide ( num denom -- fraction ) / ;\n" }
 [ \ divide [ see ] with-string-writer ] unit-test
 
 DESCRIPTIVE:: divide* ( num denom -- fraction ) num denom / ;
 
-[ 3 ] [ 9 3 divide* ] unit-test
+{ 3 } [ 9 3 divide* ] unit-test
 
-[
+{
     T{ descriptive-error f
         { { "num" 3 } { "denom" 0 } }
         T{ division-by-zero f 3 }
         divide*
     }
-] [ [ 3 0 divide* ] [ ] recover ] unit-test
+} [ [ 3 0 divide* ] [ ] recover ] unit-test
 
-[ "USING: descriptive math ;\nIN: descriptive.tests\nDESCRIPTIVE:: divide* ( num denom -- fraction ) num denom / ;\n" ] [ \ divide* [ see ] with-string-writer ] unit-test
+{ "USING: descriptive math ;\nIN: descriptive.tests\nDESCRIPTIVE:: divide* ( num denom -- fraction ) num denom / ;\n" } [ \ divide* [ see ] with-string-writer ] unit-test