Updating some unit tests

db4
Slava Pestov 2009-03-16 00:05:43 -05:00
parent fe8b55bb90
commit 1fab364299
2 changed files with 4 additions and 4 deletions

View File

@ -247,4 +247,4 @@ GENERIC: move-method-generic ( a -- b )
[ ] [ "IN: generic.tests.a" <string-reader> "move-method-test-1" parse-stream drop ] unit-test
[ { string } ] [ move-method-generic order ] unit-test
[ { string } ] [ \ move-method-generic order ] unit-test

View File

@ -3,7 +3,7 @@ io.streams.string namespaces classes effects source-files assocs
sequences strings io.files io.pathnames definitions
continuations sorting classes.tuple compiler.units debugger
vocabs vocabs.loader accessors eval combinators lexer
vocabs.parser words.symbol ;
vocabs.parser words.symbol multiline ;
IN: parser.tests
\ run-file must-infer
@ -560,7 +560,7 @@ EXCLUDE: qualified.tests.bar => x ;
! Two similar bugs
! Replace : def with something in << >>
[ [ ] ] [
/* [ [ ] ] [
"IN: parser.tests : was-once-a-word-bug ( -- ) ;"
<string-reader> "was-once-a-word-test" parse-stream
] unit-test
@ -572,7 +572,7 @@ EXCLUDE: qualified.tests.bar => x ;
<string-reader> "was-once-a-word-test" parse-stream
] unit-test
[ t ] [ "was-once-a-word-bug" "parser.tests" lookup >boolean ] unit-test
[ t ] [ "was-once-a-word-bug" "parser.tests" lookup >boolean ] unit-test */
! Replace : def with DEFER:
[ [ ] ] [