1 USING: kernel math math.parser sequences tools.test ;
9 [ "12345abcdef" string>number ]
13 [ "-12" string>number 0 < ]
17 [ "--12" string>number ]
29 [ "100,000" string>number ]
33 [ "100,000.0" string>number ]
37 [ "1.0e2" string>number number>string ]
41 [ "-1.0e2" string>number number>string ]
45 [ "1.0e-2" string>number number>string ]
49 [ "-1.0e-2" string>number number>string ]
53 [ "-1.0e-12" string>number number>string { "-1.0e-12" "-1.0e-012" } member? ]
57 [ "-1e-2e4" string>number ]
61 [ "3.14" string>number number>string ]
69 [ ".e" string>number ]
73 [ "1.01e2" string>number number>string ]
77 [ "-1.01e2" string>number number>string ]
81 [ "101.0e-2" string>number number>string ]
85 [ "-101.0e-2" string>number number>string ]
89 [ "1e1/2" string>number ]
93 [ "e/2" string>number ]
96 [ f ] [ "12" bin> ] unit-test
97 [ f ] [ "fdsf" bin> ] unit-test
98 [ 3 ] [ "11" bin> ] unit-test
100 [ f ] [ "\0." string>number ] unit-test
102 [ 1 1 >base ] must-fail
103 [ 1 0 >base ] must-fail
104 [ 1 -1 >base ] must-fail
106 [ "0/0." ] [ 0.0 0.0 / number>string ] unit-test
108 [ "1/0." ] [ 1.0 0.0 / number>string ] unit-test
110 [ "-1/0." ] [ -1.0 0.0 / number>string ] unit-test
112 [ t ] [ "0/0." string>number fp-nan? ] unit-test
114 [ 1/0. ] [ "1/0." string>number ] unit-test
116 [ -1/0. ] [ "-1/0." string>number ] unit-test
118 [ "-0.0" ] [ -0.0 number>string ] unit-test
120 [ "-3/4" ] [ -3/4 number>string ] unit-test
121 [ "-1-1/4" ] [ -5/4 number>string ] unit-test