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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/generic/generic-tests.factor
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 [ ] [ "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

6
core/parser/parser-tests.factor
View File

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