From 318b5f40c86be64b01618ee77253dbf3b189b2e1 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Wed, 26 Dec 2007 22:16:14 -0500
Subject: [PATCH] Update unit tests to use must-infer

---
 extra/ui/gadgets/books/books-tests.factor         | 2 +-
 extra/ui/gadgets/buttons/buttons-tests.factor     | 6 +++---
 extra/ui/gadgets/scrollers/scrollers-tests.factor | 2 +-
 extra/ui/tools/browser/browser-tests.factor       | 2 +-
 extra/ui/tools/interactor/interactor-tests.factor | 2 +-
 extra/ui/tools/walker/walker-tests.factor         | 2 +-
 6 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/extra/ui/gadgets/books/books-tests.factor b/extra/ui/gadgets/books/books-tests.factor
index a7226299ab..35016e1669 100755
--- a/extra/ui/gadgets/books/books-tests.factor
+++ b/extra/ui/gadgets/books/books-tests.factor
@@ -1,4 +1,4 @@
 IN: temporary
 USING: tools.test.inference ui.gadgets.books ;
 
-{ 2 1 } [ <book> ] unit-test-effect
+\ <book> must-infer
diff --git a/extra/ui/gadgets/buttons/buttons-tests.factor b/extra/ui/gadgets/buttons/buttons-tests.factor
index 8565098e70..a2786ea878 100755
--- a/extra/ui/gadgets/buttons/buttons-tests.factor
+++ b/extra/ui/gadgets/buttons/buttons-tests.factor
@@ -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
diff --git a/extra/ui/gadgets/scrollers/scrollers-tests.factor b/extra/ui/gadgets/scrollers/scrollers-tests.factor
index a53cf1fb0e..30ba4a18f3 100755
--- a/extra/ui/gadgets/scrollers/scrollers-tests.factor
+++ b/extra/ui/gadgets/scrollers/scrollers-tests.factor
@@ -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
diff --git a/extra/ui/tools/browser/browser-tests.factor b/extra/ui/tools/browser/browser-tests.factor
index 5a343919e7..3102ad1bd9 100755
--- a/extra/ui/tools/browser/browser-tests.factor
+++ b/extra/ui/tools/browser/browser-tests.factor
@@ -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
diff --git a/extra/ui/tools/interactor/interactor-tests.factor b/extra/ui/tools/interactor/interactor-tests.factor
index 4963df838c..bf9de10a1e 100755
--- a/extra/ui/tools/interactor/interactor-tests.factor
+++ b/extra/ui/tools/interactor/interactor-tests.factor
@@ -1,4 +1,4 @@
 IN: temporary
 USING: ui.tools.interactor tools.test.inference ;
 
-{ 1 1 } [ <interactor> ] unit-test-effect
+\ <interactor> must-infer
diff --git a/extra/ui/tools/walker/walker-tests.factor b/extra/ui/tools/walker/walker-tests.factor
index eea6d78f22..53903a27b3 100755
--- a/extra/ui/tools/walker/walker-tests.factor
+++ b/extra/ui/tools/walker/walker-tests.factor
@@ -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