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

Fixing unit test failures

db4
Slava Pestov 2008-03-29 15:50:50 -05:00
parent 72cedcaf47
commit 7174e8cbc4
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -322,7 +322,7 @@ IN: parser.tests
[ [
"IN: parser.tests \\ class-fwd-test" "IN: parser.tests \\ class-fwd-test"
<string-reader> "redefining-a-class-3" parse-stream drop <string-reader> "redefining-a-class-3" parse-stream drop
] [ [ no-word? ] is? ] must-fail-with ] [ [ no-word-error? ] is? ] must-fail-with
[ ] [ [ ] [
"IN: parser.tests TUPLE: class-fwd-test ; SYMBOL: class-fwd-test" "IN: parser.tests TUPLE: class-fwd-test ; SYMBOL: class-fwd-test"
@ -332,7 +332,7 @@ IN: parser.tests
[ [
"IN: parser.tests \\ class-fwd-test" "IN: parser.tests \\ class-fwd-test"
<string-reader> "redefining-a-class-3" parse-stream drop <string-reader> "redefining-a-class-3" parse-stream drop
] [ [ no-word? ] is? ] must-fail-with ] [ [ no-word-error? ] is? ] must-fail-with
[ [
"IN: parser.tests : foo ; TUPLE: foo ;" "IN: parser.tests : foo ; TUPLE: foo ;"

2
core/parser/parser.factor
View File

@ -252,7 +252,7 @@ PREDICATE: unexpected-eof < unexpected
[ "Use the word " swap summary append ] keep [ "Use the word " swap summary append ] keep
] { } map>assoc ; ] { } map>assoc ;
ERROR: no-word-error name ; TUPLE: no-word-error name ;
M: no-word-error summary M: no-word-error summary
drop "Word not found in current vocabulary search path" ; drop "Word not found in current vocabulary search path" ;

2
core/vocabs/loader/loader-tests.factor
View File

@ -68,7 +68,7 @@ IN: vocabs.loader.tests
<string-reader> <string-reader>
"resource:core/vocabs/loader/test/a/a.factor" "resource:core/vocabs/loader/test/a/a.factor"
parse-stream parse-stream
] [ [ no-word? ] is? ] must-fail-with ] [ [ no-word-error? ] is? ] must-fail-with
0 "count-me" set-global 0 "count-me" set-global