Update unit tests to use must-infer

db4
Slava Pestov 2007-12-26 22:16:14 -05:00
parent 58b2599593
commit 318b5f40c8
6 changed files with 8 additions and 8 deletions

View File

@ -1,4 +1,4 @@
IN: temporary
USING: tools.test.inference ui.gadgets.books ;
{ 2 1 } [ <book> ] unit-test-effect
\ <book> must-infer

View File

@ -28,11 +28,11 @@ T{ foo-gadget } <toolbar> "t" set
} <radio-buttons> "religion" set
] unit-test
{ 2 1 } [ <radio-buttons> ] unit-test-effect
\ <radio-buttons> must-infer
{ 2 1 } [ <toggle-buttons> ] unit-test-effect
\ <toggle-buttons> must-infer
{ 2 1 } [ <checkbox> ] unit-test-effect
\ <checkbox> must-infer
[ 0 ] [
"religion" get gadget-child radio-control-value

View File

@ -86,4 +86,4 @@ dup layout
[ t ] [ "s" get @right grid-child slider? ] unit-test
[ f ] [ "s" get @right grid-child find-scroller* ] unit-test
{ 1 1 } [ <scroller> ] unit-test-effect
\ <scroller> must-infer

View File

@ -2,5 +2,5 @@ IN: temporary
USING: tools.test tools.test.ui ui.tools.browser
tools.test.inference ;
{ 0 1 } [ <browser-gadget> ] unit-test-effect
\ <browser-gadget> must-infer
[ ] [ <browser-gadget> [ ] with-grafted-gadget ] unit-test

View File

@ -1,4 +1,4 @@
IN: temporary
USING: ui.tools.interactor tools.test.inference ;
{ 1 1 } [ <interactor> ] unit-test-effect
\ <interactor> must-infer

View File

@ -5,7 +5,7 @@ ui.gadgets.packs vectors ui.tools tools.interpreter
tools.interpreter.debug tools.test.inference tools.test.ui ;
IN: temporary
{ 0 1 } [ <walker> ] unit-test-effect
\ <walker> must-infer
[ ] [ <walker> "walker" set ] unit-test