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

tools.test: better errors when unit-test-~/v~ fail.

modern-harvey2
John Benediktsson 2017-07-25 11:26:50 -07:00
parent 0ac181c797
commit 47b45ccad3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -71,10 +71,10 @@ SYMBOL: current-test-file
] [ t ] recover t ; inline ] [ t ] recover t ; inline
: (unit-test~) ( output input -- error/f failed? tested? ) : (unit-test~) ( output input -- error/f failed? tested? )
[ ~ ] (unit-test-comparator) ; [ 3dup ~ [ 3drop t ] [ drop assert ] if ] (unit-test-comparator) ;
: (unit-test-v~) ( output input -- error/f failed? tested? ) : (unit-test-v~) ( output input -- error/f failed? tested? )
[ v~ ] (unit-test-comparator) ; [ 3dup v~ [ 3drop t ] [ drop assert ] if ] (unit-test-comparator) ;
: short-effect ( effect -- pair ) : short-effect ( effect -- pair )
[ in>> length ] [ out>> length ] bi 2array ; [ in>> length ] [ out>> length ] bi 2array ;