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

tools.test: Rename did-not-fail.

db4
Doug Coleman 2013-03-23 17:09:19 -07:00
parent f4dfc3733a
commit 378300155b
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

@ -65,16 +65,16 @@ SYMBOL: file
[ quot infer drop f f ] [ t ] recover ; [ quot infer drop f f ] [ t ] recover ;
TUPLE: did-not-fail ; TUPLE: did-not-fail ;
CONSTANT: did-not-fail T{ did-not-fail } CONSTANT: did-not-fail-literal T{ did-not-fail }
M: did-not-fail summary drop "Did not fail" ; M: did-not-fail summary drop "Did not fail" ;
:: (must-fail-with) ( quot pred -- error ? ) :: (must-fail-with) ( quot pred -- error ? )
[ { } quot with-datastack drop did-not-fail t ] [ { } quot with-datastack drop did-not-fail-literal t ]
[ dup pred call( error -- ? ) [ drop f f ] [ t ] if ] recover ; [ dup pred call( error -- ? ) [ drop f f ] [ t ] if ] recover ;
:: (must-fail) ( quot -- error ? ) :: (must-fail) ( quot -- error ? )
[ { } quot with-datastack drop did-not-fail t ] [ drop f f ] recover ; [ { } quot with-datastack drop did-not-fail-literal t ] [ drop f f ] recover ;
: experiment-title ( word -- string ) : experiment-title ( word -- string )
"(" ?head drop ")" ?tail drop "(" ?head drop ")" ?tail drop