Fix unit test failures

core/classes/tuple/tuple-docs.factor

@@ -334,7 +334,7 @@ ABOUT: "tuples"
 
 HELP: tuple-class
 { $class-description "The class of tuple class words." }
-{ $examples { $example "USING: classes prettyprint ;" "IN: scratchpad" "TUPLE: name title first last ;" "name tuple-class? ." "t" } } ;
+{ $examples { $example "USING: classes.tuple prettyprint ;" "IN: scratchpad" "TUPLE: name title first last ;" "name tuple-class? ." "t" } } ;
 
 HELP: tuple=
 { $values { "tuple1" tuple } { "tuple2" tuple } { "?" "a boolean" } }

core/generic/generic-tests.factor

@@ -1,8 +1,8 @@
 USING: accessors alien arrays definitions generic generic.standard
 generic.math assocs hashtables io kernel math namespaces parser
 prettyprint sequences strings tools.test vectors words
-quotations classes classes.algebra continuations layouts
-classes.union sorting compiler.units ;
+quotations classes classes.algebra classes.tuple continuations
+layouts classes.union sorting compiler.units ;
 IN: generic.tests
 
 GENERIC: foobar ( x -- y )

extra/models/models-tests.factor

@@ -1,5 +1,6 @@
 IN: models.tests
-USING: arrays generic kernel math models namespaces sequences assocs
+USING: arrays generic kernel math models models.compose
+namespaces sequences assocs
 tools.test ;
 
 TUPLE: model-tester hit? ;

extra/ui/gadgets/scrollers/scrollers-tests.factor

@@ -1,6 +1,6 @@
 IN: ui.gadgets.scrollers.tests
-USING: ui.gadgets ui.gadgets.scrollers
-namespaces tools.test kernel models ui.gadgets.viewports
+USING: ui.gadgets ui.gadgets.scrollers namespaces tools.test
+kernel models models.compose models.range ui.gadgets.viewports
 ui.gadgets.labels ui.gadgets.grids ui.gadgets.frames
 ui.gadgets.sliders math math.vectors arrays sequences
 tools.test.ui ;

extra/xml/errors/errors-tests.factor

@@ -14,7 +14,7 @@ T{ not-yes/no f 1 41 "maybe" } "<?xml version='1.0' standalone='maybe'?><x/>" xm
 T{ extra-attrs f 1 32 V{ T{ name f "" "foo" f } }
 } "<?xml version='1.1' foo='bar'?><x/>" xml-error-test
 T{ bad-version f 1 28 "5 million" } "<?xml version='5 million'?><x/>" xml-error-test
-T{ notags f 1 0 } "" xml-error-test
+T{ notags f } "" xml-error-test
 T{ multitags } "<x/><y/>" xml-error-test
 T{ bad-prolog  f 1 26 T{ prolog f "1.0" "UTF-8" f }
 } "<x/><?xml version='1.0'?>" xml-error-test

extra/xmode/utilities/utilities-tests.factor

@@ -45,7 +45,6 @@ TAGS>
             T{ employee f "Jane" "CFO" }
         }
         "PUBLIC"
-        "This is a great company"
     }
 ] [
     "resource:extra/xmode/utilities/test.xml"