1 USING: kernel literals math math.parser sequences tools.test ;
9 [ "12345abcdef" string>number ]
13 [ "-12" string>number 0 < ]
17 [ "--12" string>number ]
28 [ 100000 ] [ "100,000" string>number ] unit-test
30 [ 100000.0 ] [ "100,000.0" string>number ] unit-test
32 [ f ] [ "," string>number ] unit-test
33 [ f ] [ "-," string>number ] unit-test
34 [ f ] [ "1," string>number ] unit-test
35 [ f ] [ "-1," string>number ] unit-test
36 [ f ] [ ",2" string>number ] unit-test
37 [ f ] [ "-,2" string>number ] unit-test
39 [ 2.0 ] [ "2." string>number ] unit-test
41 [ 255 ] [ "ff" hex> ] unit-test
44 [ "1.0e2" string>number number>string ]
48 [ "-1.0e2" string>number number>string ]
52 [ "1.0e-2" string>number number>string ]
56 [ "-1.0e-2" string>number number>string ]
60 [ "-1.0e-12" string>number number>string { "-1.0e-12" "-1.0e-012" } member? ]
64 [ "-1e-2e4" string>number ]
68 [ "3.14" string>number number>string ]
76 [ ".e" string>number ]
80 [ "1.01e2" string>number number>string ]
84 [ "-1.01e2" string>number number>string ]
88 [ "101.0e-2" string>number number>string ]
92 [ "-101.0e-2" string>number number>string ]
96 [ "1e1/2" string>number ]
100 [ "e/2" string>number ]
103 [ f ] [ "12" bin> ] unit-test
104 [ f ] [ "fdsf" bin> ] unit-test
105 [ 3 ] [ "11" bin> ] unit-test
107 [ f ] [ "\0." string>number ] unit-test
109 [ 1 1 >base ] must-fail
110 [ 1 0 >base ] must-fail
111 [ 1 -1 >base ] must-fail
113 [ "0/0." ] [ 0.0 0.0 / number>string ] unit-test
115 [ "1/0." ] [ 1.0 0.0 / number>string ] unit-test
117 [ "-1/0." ] [ -1.0 0.0 / number>string ] unit-test
119 [ t ] [ "0/0." string>number fp-nan? ] unit-test
121 [ 1/0. ] [ "1/0." string>number ] unit-test
123 [ -1/0. ] [ "-1/0." string>number ] unit-test
125 [ "-0.0" ] [ -0.0 number>string ] unit-test
127 [ "-3/4" ] [ -3/4 number>string ] unit-test
128 [ "-1-1/4" ] [ -5/4 number>string ] unit-test
130 [ "1.0p0" ] [ 1.0 >hex ] unit-test
131 [ "1.8p2" ] [ 6.0 >hex ] unit-test
132 [ "1.8p-2" ] [ 0.375 >hex ] unit-test
133 [ "-1.8p2" ] [ -6.0 >hex ] unit-test
134 [ "1.8p10" ] [ 1536.0 >hex ] unit-test
135 [ "0.0" ] [ 0.0 >hex ] unit-test
136 [ "1.0p-1074" ] [ 1 bits>double >hex ] unit-test
137 [ "-0.0" ] [ -0.0 >hex ] unit-test
139 [ 1.0 ] [ "1.0" hex> ] unit-test
140 [ 15.5 ] [ "f.8" hex> ] unit-test
141 [ 15.53125 ] [ "f.88" hex> ] unit-test
142 [ -15.5 ] [ "-f.8" hex> ] unit-test
143 [ 15.5 ] [ "f.8p0" hex> ] unit-test
144 [ -15.5 ] [ "-f.8p0" hex> ] unit-test
145 [ 62.0 ] [ "f.8p2" hex> ] unit-test
146 [ 3.875 ] [ "f.8p-2" hex> ] unit-test
147 [ $[ 1 bits>double ] ] [ "1.0p-1074" hex> ] unit-test
148 [ 0.0 ] [ "1.0p-1075" hex> ] unit-test
149 [ 1/0. ] [ "1.0p1024" hex> ] unit-test
150 [ -1/0. ] [ "-1.0p1024" hex> ] unit-test