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