steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Get all unit tests to pass

slava 2006-10-10 05:28:21 +00:00
parent 35a7daf7aa
commit 09d27456e6
3 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
library/test/math/float.factor
View File

@ -49,10 +49,10 @@ USE: test
[ -4.0 ] [ -4.0 floor ] unit-test [ -4.0 ] [ -4.0 floor ] unit-test
[ -4.0 ] [ -4.0 ceiling ] unit-test [ -4.0 ] [ -4.0 ceiling ] unit-test
[ t ] [ -0.0 -0.0 = ] unit-test ! [ t ] [ -0.0 -0.0 = ] unit-test
[ f ] [ 0.0 -0.0 = ] unit-test ! [ f ] [ 0.0 -0.0 = ] unit-test
[ t ] [ 0.0 zero? ] unit-test [ t ] [ 0.0 zero? ] unit-test
[ t ] [ -0.0 zero? ] unit-test [ t ] [ -0.0 zero? ] unit-test
[ t ] [ 0.0/0.0 0.0/0.0 = ] unit-test ! [ t ] [ 0.0/0.0 0.0/0.0 = ] unit-test

18
library/test/parse-number.factor
View File

@ -109,12 +109,12 @@ unit-test
[ f ] [ "fdsf" bin> ] unit-test [ f ] [ "fdsf" bin> ] unit-test
[ 3 ] [ "11" bin> ] unit-test [ 3 ] [ "11" bin> ] unit-test
[ t ] [ ! [ t ] [
{ "1.0/0.0" "-1.0/0.0" "0.0/0.0" } ! { "1.0/0.0" "-1.0/0.0" "0.0/0.0" }
[ dup string>number number>string = ] all? ! [ dup string>number number>string = ] all?
] unit-test ! ] unit-test
!
[ t ] [ ! [ t ] [
{ 1.0/0.0 -1.0/0.0 0.0/0.0 } ! { 1.0/0.0 -1.0/0.0 0.0/0.0 }
[ dup number>string string>number = ] all? ! [ dup number>string string>number = ] all?
] unit-test ! ] unit-test

4
library/ui/text/interactor.factor
View File

@ -58,6 +58,10 @@ M: interactor stream-readln
[ over set-interactor-continuation stop ] callcc0 [ over set-interactor-continuation stop ] callcc0
] when interactor-queue pop ; ] when interactor-queue pop ;
M: interactor stream-read
swap dup zero?
[ 2drop "" ] [ >r stream-readln r> head ] if ;
interactor "interactor" { interactor "interactor" {
{ "Evaluate" T{ key-down f f "RETURN" } [ interactor-commit ] } { "Evaluate" T{ key-down f f "RETURN" } [ interactor-commit ] }
{ "Clear input" T{ key-down f { C+ } "k" } [ control-model clear-doc ] } { "Clear input" T{ key-down f { C+ } "k" } [ control-model clear-doc ] }