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

Fix unit test failures

darcs
slava 2006-07-01 20:08:44 +00:00
parent b4359d8373
commit 88766ac2aa
2 changed files with 13 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/test/gadgets/models.factor
View File

@ -25,7 +25,7 @@ M: model-tester model-changed t swap set-model-tester-hit? ;
[ { 3 4 } ] [ "model-c" get model-value ] unit-test [ { 3 4 } ] [ "model-c" get model-value ] unit-test
T{ model-tester f f } dup "tester" set T{ model-tester f f } "tester" set
[ T{ model-tester f t } { 6 4 } ] [ T{ model-tester f t } { 6 4 } ]
[ [

38
library/test/gadgets/rectangles.factor
View File

@ -1,47 +1,33 @@
USING: gadgets kernel namespaces test ; USING: gadgets kernel namespaces test ;
[ T{ rect f { 10 10 0 } { 20 20 0 } } ] [ T{ rect f { 10 10 } { 20 20 } } ]
[ [
T{ rect f { 10 10 0 } { 50 50 0 } } T{ rect f { 10 10 } { 50 50 } }
T{ rect f { -10 -10 0 } { 40 40 0 } } T{ rect f { -10 -10 } { 40 40 } }
rect-intersect rect-intersect
] unit-test ] unit-test
[ T{ rect f { 200 200 0 } { 0 0 0 } } ] [ T{ rect f { 200 200 } { 0 0 } } ]
[ [
T{ rect f { 100 100 0 } { 50 50 0 } } T{ rect f { 100 100 } { 50 50 } }
T{ rect f { 200 200 0 } { 40 40 0 } } T{ rect f { 200 200 } { 40 40 } }
rect-intersect rect-intersect
] unit-test ] unit-test
[ T{ rect f { -10 -10 0 } { 70 70 0 } } ]
[
T{ rect f { 10 10 0 } { 50 50 0 } }
T{ rect f { -10 -10 0 } { 40 40 0 } }
rect-union
] unit-test
[ T{ rect f { 100 100 0 } { 140 140 0 } } ]
[
T{ rect f { 100 100 0 } { 50 50 0 } }
T{ rect f { 200 200 0 } { 40 40 0 } }
rect-union
] unit-test
[ f ] [ [ f ] [
T{ rect f { 100 100 0 } { 50 50 0 } } T{ rect f { 100 100 } { 50 50 } }
T{ rect f { 200 200 0 } { 40 40 0 } } T{ rect f { 200 200 } { 40 40 } }
intersects? intersects?
] unit-test ] unit-test
[ t ] [ [ t ] [
T{ rect f { 100 100 0 } { 50 50 0 } } T{ rect f { 100 100 } { 50 50 } }
T{ rect f { 120 120 0 } { 40 40 0 } } T{ rect f { 120 120 } { 40 40 } }
intersects? intersects?
] unit-test ] unit-test
[ f ] [ [ f ] [
T{ rect f { 1000 100 0 } { 50 50 0 } } T{ rect f { 1000 100 } { 50 50 } }
T{ rect f { 120 120 0 } { 40 40 0 } } T{ rect f { 120 120 } { 40 40 } }
intersects? intersects?
] unit-test ] unit-test