Update unit tests to use must-infer
							parent
							
								
									58b2599593
								
							
						
					
					
						commit
						318b5f40c8
					
				| 
						 | 
				
			
			@ -1,4 +1,4 @@
 | 
			
		|||
IN: temporary
 | 
			
		||||
USING: tools.test.inference ui.gadgets.books ;
 | 
			
		||||
 | 
			
		||||
{ 2 1 } [ <book> ] unit-test-effect
 | 
			
		||||
\ <book> must-infer
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,4 +1,4 @@
 | 
			
		|||
IN: temporary
 | 
			
		||||
USING: ui.tools.interactor tools.test.inference ;
 | 
			
		||||
 | 
			
		||||
{ 1 1 } [ <interactor> ] unit-test-effect
 | 
			
		||||
\ <interactor> must-infer
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue