steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix unit test failures

db4
Slava Pestov 2008-07-05 23:08:30 -05:00
parent cdadacd70c
commit 78d24d5a5d
6 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/classes/tuple/tuple-docs.factor
View File

@ -334,7 +334,7 @@ ABOUT: "tuples"
HELP: tuple-class HELP: tuple-class
{ $class-description "The class of tuple class words." } { $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= HELP: tuple=
{ $values { "tuple1" tuple } { "tuple2" tuple } { "?" "a boolean" } } { $values { "tuple1" tuple } { "tuple2" tuple } { "?" "a boolean" } }

4
core/generic/generic-tests.factor
View File

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

3
extra/models/models-tests.factor
View File

@ -1,5 +1,6 @@
IN: models.tests 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 ; tools.test ;
TUPLE: model-tester hit? ; TUPLE: model-tester hit? ;

4
extra/ui/gadgets/scrollers/scrollers-tests.factor
View File

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

2
extra/xml/errors/errors-tests.factor
View File

@ -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 } } T{ extra-attrs f 1 32 V{ T{ name f "" "foo" f } }
} "<?xml version='1.1' foo='bar'?><x/>" xml-error-test } "<?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{ 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{ multitags } "<x/><y/>" xml-error-test
T{ bad-prolog f 1 26 T{ prolog f "1.0" "UTF-8" f } T{ bad-prolog f 1 26 T{ prolog f "1.0" "UTF-8" f }
} "<x/><?xml version='1.0'?>" xml-error-test } "<x/><?xml version='1.0'?>" xml-error-test

1
extra/xmode/utilities/utilities-tests.factor
View File

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