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

tools.test: makes <test-failure> public

db4
Björn Lindqvist 2015-12-17 23:49:57 +01:00
parent 02e7b16ae9
commit 216a1234c2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -31,9 +31,7 @@ T{ error-type-holder
SYMBOL: verbose-tests?
t verbose-tests? set-global
<PRIVATE
: <test-failure> ( error experiment file line# -- triple )
: <test-failure> ( error experiment file line# -- test-failure )
test-failure new
swap >>line#
swap >>path
@ -41,6 +39,8 @@ t verbose-tests? set-global
swap >>error
error-continuation get >>continuation ;
<PRIVATE
: failure ( error experiment file line# -- )
"--> test failed!" print
<test-failure> test-failures get push