From f052852a274092f89cd682e2174b6173004946b2 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sun, 10 Feb 2008 01:38:58 -0600
Subject: [PATCH] Fix must-fail-with
---
extra/tools/test/test.factor | 8 +-------
1 file changed, 1 insertion(+), 7 deletions(-)
diff --git a/extra/tools/test/test.factor b/extra/tools/test/test.factor
index 0b5e436e44..5673e41c62 100755
--- a/extra/tools/test/test.factor
+++ b/extra/tools/test/test.factor
@@ -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 ;