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

Fix unit test failures

release
Slava Pestov 2007-10-05 17:54:02 -04:00
parent 98c9e69e1e
commit 826e369c02
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/prettyprint/prettyprint-tests.factor
View File

@ -1,7 +1,8 @@
USING: arrays definitions io.streams.string io.streams.duplex USING: arrays definitions io.streams.string io.streams.duplex
kernel math namespaces parser prettyprint prettyprint.config kernel math namespaces parser prettyprint prettyprint.config
prettyprint.sections sequences tools.test vectors words prettyprint.sections sequences tools.test vectors words
effects splitting generic.standard prettyprint.private ; effects splitting generic.standard prettyprint.private
continuations ;
IN: temporary IN: temporary
[ "4" ] [ 4 unparse ] unit-test [ "4" ] [ 4 unparse ] unit-test

3
extra/ui/tools/walker/walker-tests.factor
View File

@ -4,7 +4,7 @@ listener tools.test ui ui.gadgets ui.gadgets.worlds
ui.gadgets.packs vectors ui.tools ; ui.gadgets.packs vectors ui.tools ;
IN: temporary IN: temporary
[ ] [ <walker "walker" set ] unit-test [ ] [ <walker> "walker" set ] unit-test
! Make sure the toolbar buttons don't throw if we're ! Make sure the toolbar buttons don't throw if we're
! not actually walking. ! not actually walking.
@ -16,7 +16,6 @@ IN: temporary
[ ] [ "walker" get com-inspect ] unit-test [ ] [ "walker" get com-inspect ] unit-test
[ ] [ "walker" get reset-walker ] unit-test [ ] [ "walker" get reset-walker ] unit-test
[ ] [ "walker" get com-continue ] unit-test [ ] [ "walker" get com-continue ] unit-test
[ ] [ "walker" get com-abandon ] unit-test
: <test-world> ( gadget -- world ) : <test-world> ( gadget -- world )
[ gadget, ] make-pile "Hi" f <world> ; [ gadget, ] make-pile "Hi" f <world> ;