2007-09-20 18:09:08 -04:00
|
|
|
USING: kernel math math.parser sequences tools.test ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: math.parser.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ f ]
|
|
|
|
|
[ f string>number ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ f ]
|
|
|
|
|
[ "12345abcdef" string>number ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ t ]
|
|
|
|
|
[ "-12" string>number 0 < ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ f ]
|
|
|
|
|
[ "--12" string>number ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ f ]
|
|
|
|
|
[ "-" string>number ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ f ]
|
|
|
|
|
[ "e" string>number ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ "100.0" ]
|
|
|
|
|
[ "1.0e2" string>number number>string ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ "-100.0" ]
|
|
|
|
|
[ "-1.0e2" string>number number>string ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ "0.01" ]
|
|
|
|
|
[ "1.0e-2" string>number number>string ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ "-0.01" ]
|
|
|
|
|
[ "-1.0e-2" string>number number>string ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ "-1.0e-12" ]
|
|
|
|
|
[ "-1.0e-12" string>number number>string ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ f ]
|
|
|
|
|
[ "-1e-2e4" string>number ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ "3.14" ]
|
|
|
|
|
[ "3.14" string>number number>string ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ f ]
|
|
|
|
|
[ "." string>number ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ f ]
|
|
|
|
|
[ ".e" string>number ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ "101.0" ]
|
|
|
|
|
[ "1.01e2" string>number number>string ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ "-101.0" ]
|
|
|
|
|
[ "-1.01e2" string>number number>string ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ "1.01" ]
|
|
|
|
|
[ "101.0e-2" string>number number>string ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ "-1.01" ]
|
|
|
|
|
[ "-101.0e-2" string>number number>string ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ f ]
|
|
|
|
|
[ "1e1/2" string>number ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ f ]
|
|
|
|
|
[ "e/2" string>number ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [ "12" bin> ] unit-test
|
|
|
|
|
[ f ] [ "fdsf" bin> ] unit-test
|
|
|
|
|
[ 3 ] [ "11" bin> ] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [ "\0." string>number ] unit-test
|
|
|
|
|
|
2008-02-06 14:47:19 -05:00
|
|
|
[ 1 1 >base ] must-fail
|
|
|
|
|
[ 1 0 >base ] must-fail
|
|
|
|
|
[ 1 -1 >base ] must-fail
|
2008-05-05 03:19:25 -04:00
|
|
|
|
|
|
|
|
[ "0.0/0.0" ] [ 0.0 0.0 / number>string ] unit-test
|
2008-05-05 19:09:44 -04:00
|
|
|
|
|
|
|
|
[ "1.0/0.0" ] [ 1.0 0.0 / number>string ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "-1.0/0.0" ] [ -1.0 0.0 / number>string ] unit-test
|
2008-07-20 01:56:25 -04:00
|
|
|
|
2008-07-21 21:48:30 -04:00
|
|
|
[ t ] [ "0/0." string>number fp-nan? ] unit-test
|
2008-07-20 05:05:09 -04:00
|
|
|
|
|
|
|
|
[ 1.0/0.0 ] [ "1/0." string>number ] unit-test
|
|
|
|
|
|
|
|
|
|
[ -1.0/0.0 ] [ "-1/0." string>number ] unit-test
|
|
|
|
|
|
2008-07-20 01:56:25 -04:00
|
|
|
[ "-0.0" ] [ -0.0 number>string ] unit-test
|
