factor/library/test/parse-number.factor

IN: temporary
USING: errors kernel math parser sequences test ;

[ 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

[ 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

[ 5 ]
[ "10/2" string>number ]
unit-test

[ -5 ]
[ "-10/2" string>number ]
unit-test

[ -5 ]
[ "10/-2" string>number ]
unit-test

[ 5 ]
[ "-10/-2" string>number ]
unit-test

[ 5.0 ]
[ "10.0/2" string>number ]
unit-test

[ f ]
[ "1e1/2" string>number ]
unit-test

[ f ]
[ "e/2" string>number ]
unit-test

[ "33/100" ]
[ "66/200" string>number number>string ]
unit-test

[ f ] [ "12" bin> ] unit-test
[ f ] [ "fdsf" bin> ] unit-test
[ 3 ] [ "11" bin> ] unit-test

! [ t ] [
!     { "1.0/0.0" "-1.0/0.0" "0.0/0.0" }
!     [ dup string>number number>string = ] all?
! ] unit-test
! 
! [ t ] [
!     { 1.0/0.0 -1.0/0.0 0.0/0.0 }
!     [ dup number>string string>number = ] all?
! ] unit-test
messing around with ffi, various other fixes 2005-03-28 23:45:13 -05:00			`IN: temporary`
cell fix; experimental preferred size cache; floor/ceiling/truncate/mod for floats; fix mod for ratios; fix float equality test 2006-01-26 23:01:14 -05:00			`USING: errors kernel math parser sequences test ;`
clean up class<, class-and, class-or 2005-07-31 23:38:33 -04:00
First import of Factor 0.60 2004-07-16 02:26:21 -04:00			`[ f ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ f string>number ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ f ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "12345abcdef" string>number ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ t ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "-12" string>number 0 < ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ f ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "--12" string>number ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ f ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "-" string>number ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ f ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "e" string>number ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ "100.0" ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "1.0e2" string>number number>string ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ "-100.0" ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "-1.0e2" string>number number>string ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ "0.01" ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "1.0e-2" string>number number>string ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ "-0.01" ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "-1.0e-2" string>number number>string ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ f ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "-1e-2e4" string>number ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ "3.14" ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "3.14" string>number number>string ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ f ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "." string>number ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ f ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ ".e" string>number ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ "101.0" ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "1.01e2" string>number number>string ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ "-101.0" ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "-1.01e2" string>number number>string ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ "1.01" ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "101.0e-2" string>number number>string ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ "-1.01" ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "-101.0e-2" string>number number>string ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ 5 ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "10/2" string>number ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ -5 ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "-10/2" string>number ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
parse number fix, doc updates, sparc32 fix, big-endian float fix 2004-08-07 18:45:48 -04:00			`[ -5 ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "10/-2" string>number ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
parse number fix, doc updates, sparc32 fix, big-endian float fix 2004-08-07 18:45:48 -04:00			`[ 5 ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "-10/-2" string>number ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
fix a crash 2005-12-24 23:01:49 -05:00			`[ 5.0 ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "10.0/2" string>number ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ f ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "1e1/2" string>number ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ f ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "e/2" string>number ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
			`[ "33/100" ]`
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ "66/200" string>number number>string ]`
growable hashtables 2005-01-28 23:55:22 -05:00			`unit-test`
moved quadratic and simpson to contrib, fix some parse-number oddness 2004-10-10 14:28:56 -04:00
CL-style (but more limited) restarts, better undefined word handling in the parser 2006-05-24 04:29:25 -04:00			`[ f ] [ "12" bin> ] unit-test`
			`[ f ] [ "fdsf" bin> ] unit-test`
moved quadratic and simpson to contrib, fix some parse-number oddness 2004-10-10 14:28:56 -04:00			`[ 3 ] [ "11" bin> ] unit-test`
cell fix; experimental preferred size cache; floor/ceiling/truncate/mod for floats; fix mod for ratios; fix float equality test 2006-01-26 23:01:14 -05:00
Get all unit tests to pass 2006-10-10 01:28:21 -04:00			`! [ t ] [`
			`! { "1.0/0.0" "-1.0/0.0" "0.0/0.0" }`
			`! [ dup string>number number>string = ] all?`
			`! ] unit-test`
			`!`
			`! [ t ] [`
			`! { 1.0/0.0 -1.0/0.0 0.0/0.0 }`
			`! [ dup number>string string>number = ] all?`
			`! ] unit-test`