sequences tools.test kernel.private ;
IN: decimals.tests
-{ t } [
+[ t ] [
D: 12.34 D: 00012.34000 =
] unit-test
: test-decimal-op ( quot1 quot2 -- ? )
[ random-test-decimal random-test-decimal ] 2dip (test-decimal-op) ; inline
-{ t } [ 1000 [ drop [ D+ ] [ + ] test-decimal-op ] all-integers? ] unit-test
-{ t } [ 1000 [ drop [ D- ] [ - ] test-decimal-op ] all-integers? ] unit-test
-{ t } [ 1000 [ drop [ D* ] [ * ] test-decimal-op ] all-integers? ] unit-test
-{ t } [
+[ t ] [ 1000 [ drop [ D+ ] [ + ] test-decimal-op ] all-integers? ] unit-test
+[ t ] [ 1000 [ drop [ D- ] [ - ] test-decimal-op ] all-integers? ] unit-test
+[ t ] [ 1000 [ drop [ D* ] [ * ] test-decimal-op ] all-integers? ] unit-test
+[ t ] [
1000 [
drop
[ [ 100 D/ ] [ /f ] test-decimal-op ]
] all-integers?
] unit-test
-{ t } [
+[ t ] [
{ D: 0. D: .0 D: 0.0 D: 00.00 D: . } all-equal?
] unit-test
-{ t } [ T{ decimal f 90 0 } T{ decimal f 9 1 } = ] unit-test
+[ t ] [ T{ decimal f 90 0 } T{ decimal f 9 1 } = ] unit-test
-{ t } [ D: 1 D: 2 before? ] unit-test
-{ f } [ D: 2 D: 2 before? ] unit-test
-{ f } [ D: 3 D: 2 before? ] unit-test
-{ f } [ D: -1 D: -2 before? ] unit-test
-{ f } [ D: -2 D: -2 before? ] unit-test
-{ t } [ D: -3 D: -2 before? ] unit-test
-{ t } [ D: .5 D: 0 D: 1.0 between? ] unit-test
+[ t ] [ D: 1 D: 2 before? ] unit-test
+[ f ] [ D: 2 D: 2 before? ] unit-test
+[ f ] [ D: 3 D: 2 before? ] unit-test
+[ f ] [ D: -1 D: -2 before? ] unit-test
+[ f ] [ D: -2 D: -2 before? ] unit-test
+[ t ] [ D: -3 D: -2 before? ] unit-test
+[ t ] [ D: .5 D: 0 D: 1.0 between? ] unit-test