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

Fix bugs in tools.test

db4
Slava Pestov 2008-02-08 01:49:05 -06:00
parent 52b5c5a068
commit 59cc83c296
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/tools/test/test.factor
View File

@ -81,7 +81,7 @@ M: expected-error summary
"Traceback" swap third write-object ;
: test-failures. ( assoc -- )
dup [
[
nl
dup empty? [
drop
@ -90,15 +90,15 @@ M: expected-error summary
"==== FAILING TESTS:" print
[
swap vocab-heading.
[ nl failure. nl ] each
[ failure. nl ] each
] assoc-each
] if
] [
drop "==== NOTHING TO TEST" print
] if ;
"==== NOTHING TO TEST" print
] if* ;
: run-tests ( prefix -- failures )
child-vocabs dup empty? [ f ] [
child-vocabs dup empty? [ drop f ] [
[ dup run-test ] { } map>assoc
[ second empty? not ] subset
] if ;