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

View File

@ -40,14 +40,8 @@ SYMBOL: this-test
dup word? [ 1quotation ] when
[ 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 -- )
>r [ expected-error construct-empty throw ] compose r>
>r [ f ] compose r>
[ recover ] 2curry
[ t ] swap unit-test ;