141 lines
1.5 KiB
Factor
141 lines
1.5 KiB
Factor
IN: scratchpad
|
|
USE: math
|
|
USE: parser
|
|
USE: strings
|
|
USE: test
|
|
USE: unparser
|
|
|
|
[ f ]
|
|
[ f ]
|
|
[ parse-number ]
|
|
test-word
|
|
|
|
[ f ]
|
|
[ "12345abcdef" ]
|
|
[ parse-number ]
|
|
test-word
|
|
|
|
[ t ]
|
|
[ "-12" ]
|
|
[ parse-number 0 < ]
|
|
test-word
|
|
|
|
[ f ]
|
|
[ "--12" ]
|
|
[ parse-number ]
|
|
test-word
|
|
|
|
[ f ]
|
|
[ "-" ]
|
|
[ parse-number ]
|
|
test-word
|
|
|
|
[ f ]
|
|
[ "e" ]
|
|
[ parse-number ]
|
|
test-word
|
|
|
|
[ "100.0" ]
|
|
[ "1.0e2" ]
|
|
[ parse-number unparse ]
|
|
test-word
|
|
|
|
[ "-100.0" ]
|
|
[ "-1.0e2" ]
|
|
[ parse-number unparse ]
|
|
test-word
|
|
|
|
[ "0.01" ]
|
|
[ "1.0e-2" ]
|
|
[ parse-number unparse ]
|
|
test-word
|
|
|
|
[ "-0.01" ]
|
|
[ "-1.0e-2" ]
|
|
[ parse-number unparse ]
|
|
test-word
|
|
|
|
[ f ]
|
|
[ "-1e-2e4" ]
|
|
[ parse-number ]
|
|
test-word
|
|
|
|
[ "3.14" ]
|
|
[ "3.14" ]
|
|
[ parse-number unparse ]
|
|
test-word
|
|
|
|
[ f ]
|
|
[ "." ]
|
|
[ parse-number ]
|
|
test-word
|
|
|
|
[ f ]
|
|
[ ".e" ]
|
|
[ parse-number ]
|
|
test-word
|
|
|
|
[ "101.0" ]
|
|
[ "1.01e2" ]
|
|
[ parse-number unparse ]
|
|
test-word
|
|
|
|
[ "-101.0" ]
|
|
[ "-1.01e2" ]
|
|
[ parse-number unparse ]
|
|
test-word
|
|
|
|
[ "1.01" ]
|
|
[ "101.0e-2" ]
|
|
[ parse-number unparse ]
|
|
test-word
|
|
|
|
[ "-1.01" ]
|
|
[ "-101.0e-2" ]
|
|
[ parse-number unparse ]
|
|
test-word
|
|
|
|
[ 5 ]
|
|
[ "10/2" ]
|
|
[ parse-number ]
|
|
test-word
|
|
|
|
[ -5 ]
|
|
[ "-10/2" ]
|
|
[ parse-number ]
|
|
test-word
|
|
|
|
[ -5 ]
|
|
[ "10/-2" ]
|
|
[ parse-number ]
|
|
test-word
|
|
|
|
[ 5 ]
|
|
[ "-10/-2" ]
|
|
[ parse-number ]
|
|
test-word
|
|
|
|
[ f ]
|
|
[ "10.0/2" ]
|
|
[ parse-number ]
|
|
test-word
|
|
|
|
[ f ]
|
|
[ "1e1/2" ]
|
|
[ parse-number ]
|
|
test-word
|
|
|
|
[ f ]
|
|
[ "e/2" ]
|
|
[ parse-number ]
|
|
test-word
|
|
|
|
[ "33/100" ]
|
|
[ "66/200" ]
|
|
[ parse-number unparse ]
|
|
test-word
|
|
|
|
[ "12" bin> ] unit-test-fails
|
|
[ "fdsf" bin> ] unit-test-fails
|
|
[ 3 ] [ "11" bin> ] unit-test
|