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

tools.test: move fake-unit-test utility from test suite to module

db4
Joe Groff 2011-09-19 16:39:30 -07:00
parent dc36fd712d
commit 5a21742f74
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/tools/test/test-tests.factor
View File

@ -1,14 +1,6 @@
IN: tools.test.tests IN: tools.test.tests
USING: tools.test tools.test.private namespaces kernel sequences ; USING: tools.test tools.test.private namespaces kernel sequences ;
: fake-unit-test ( quot -- )
[
"fake" file set
V{ } clone test-failures set
call
test-failures get
] with-scope ; inline
[ 1 ] [ [ 1 ] [
[ [
[ "OOPS" ] must-fail [ "OOPS" ] must-fail

9
basis/tools/test/test.factor
View File

@ -111,6 +111,14 @@ SYNTAX: TEST:
>> >>
: fake-unit-test ( quot -- test-failures )
[
"fake" file set
V{ } clone test-failures set
call
test-failures get
] with-scope ; inline
PRIVATE> PRIVATE>
: run-test-file ( path -- ) : run-test-file ( path -- )
@ -160,3 +168,4 @@ M: test-failure error. ( error -- )
: test ( prefix -- ) child-vocabs test-vocabs ; : test ( prefix -- ) child-vocabs test-vocabs ;
: test-all ( -- ) vocabs filter-don't-test test-vocabs ; : test-all ( -- ) vocabs filter-don't-test test-vocabs ;