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

Fix must-fail-with

db4
Slava Pestov 2008-02-10 01:38:58 -06:00
parent 6bf808172b
commit f052852a27
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/tools/test/test.factor
View File

@ -40,14 +40,8 @@ SYMBOL: this-test
dup word? [ 1quotation ] when dup word? [ 1quotation ] when
[ infer drop ] curry [ ] swap unit-test ; [ infer drop ] curry [ ] swap unit-test ;
TUPLE: expected-error ;
M: expected-error summary
drop
"The unit test expected the quotation to throw an error" ;
: must-fail-with ( quot pred -- ) : must-fail-with ( quot pred -- )
>r [ expected-error construct-empty throw ] compose r> >r [ f ] compose r>
[ recover ] 2curry [ recover ] 2curry
[ t ] swap unit-test ; [ t ] swap unit-test ;