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

tools.test: less duplication in unit-test~/v~.

modern-harvey2
John Benediktsson 2017-07-25 11:31:30 -07:00
parent 47b45ccad3
commit 154de53470
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -66,15 +66,16 @@ SYMBOL: current-test-file
: (unit-test-comparator) ( output input comparator -- error/f failed? tested? ) : (unit-test-comparator) ( output input comparator -- error/f failed? tested? )
swapd '[ swapd '[
{ } _ with-datastack { } _ with-datastack _ >quotation
_ >quotation _ compose with-datastack first dup not [ 3dup @ [ 3drop t ] [ drop assert ] if ] compose
with-datastack first dup not
] [ t ] recover t ; inline ] [ t ] recover t ; inline
: (unit-test~) ( output input -- error/f failed? tested? ) : (unit-test~) ( output input -- error/f failed? tested? )
[ 3dup ~ [ 3drop t ] [ drop assert ] if ] (unit-test-comparator) ; [ ~ ] (unit-test-comparator) ;
: (unit-test-v~) ( output input -- error/f failed? tested? ) : (unit-test-v~) ( output input -- error/f failed? tested? )
[ 3dup v~ [ 3drop t ] [ drop assert ] if ] (unit-test-comparator) ; [ v~ ] (unit-test-comparator) ;
: short-effect ( effect -- pair ) : short-effect ( effect -- pair )
[ in>> length ] [ out>> length ] bi 2array ; [ in>> length ] [ out>> length ] bi 2array ;