]> gitweb.factorcode.org Git - factor.git/blobdiff - core/generic/math/math-tests.factor
Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...
[factor.git] / core / generic / math / math-tests.factor
index 4dd7e630ee9471242f69792f94bacc1e54dd2259..34f09f87d74a7c2ff1a9ccc569d3367566e7dee9 100644 (file)
@@ -2,20 +2,20 @@ USING: generic.math math tools.test kernel ;
 IN: generic.math.tests
 
 ! Test math-combination
-{ [ [ >float ] dip ] } [ \ real \ float math-upgrade ] unit-test
-{ [ >float ] } [ \ float \ real math-upgrade ] unit-test
-{ [ [ >bignum ] dip ] } [ \ fixnum \ bignum math-upgrade ] unit-test
-{ [ >float ] } [ \ float \ integer math-upgrade ] unit-test
+[ [ [ >float ] dip ] ] [ \ real \ float math-upgrade ] unit-test
+[ [ >float ] ] [ \ float \ real math-upgrade ] unit-test
+[ [ [ >bignum ] dip ] ] [ \ fixnum \ bignum math-upgrade ] unit-test
+[ [ >float ] ] [ \ float \ integer math-upgrade ] unit-test
 
-{ number } [ number float math-class-max ] unit-test
-{ number } [ float number math-class-max ] unit-test
-{ float } [ real float math-class-max ] unit-test
-{ float } [ float real math-class-max ] unit-test
-{ fixnum } [ fixnum null math-class-max ] unit-test
-{ fixnum } [ null fixnum math-class-max ] unit-test
-{ bignum } [ fixnum bignum math-class-max ] unit-test
-{ bignum } [ bignum fixnum math-class-max ] unit-test
-{ number } [ fixnum number math-class-max ] unit-test
-{ number } [ number fixnum math-class-max ] unit-test
+[ number ] [ number float math-class-max ] unit-test
+[ number ] [ float number math-class-max ] unit-test
+[ float ] [ real float math-class-max ] unit-test
+[ float ] [ float real math-class-max ] unit-test
+[ fixnum ] [ fixnum null math-class-max ] unit-test
+[ fixnum ] [ null fixnum math-class-max ] unit-test
+[ bignum ] [ fixnum bignum math-class-max ] unit-test
+[ bignum ] [ bignum fixnum math-class-max ] unit-test
+[ number ] [ fixnum number math-class-max ] unit-test
+[ number ] [ number fixnum math-class-max ] unit-test
 
-{ t } [ \ + math-generic? ] unit-test
+[ t ] [ \ + math-generic? ] unit-test