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

View File

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

View File

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