1 files changed, 1 insertions, 14 deletions
diff --git a/tests/012/ifa.tl b/tests/012/ifa.tl
index ae283abc..64fc6793 100644
--- a/tests/012/ifa.tl
+++ b/tests/012/ifa.tl
@@ -1,17 +1,4 @@
-(defmacro error-to-sym (expr)
- ^(catch ,expr
-    (error (cond) :error)))
-
-;; test framework for ifa uses ifa!
-(defmacro test (:env env expr expected)
- (catch
-   (let ((expr-expn (macroexpand expr env)))
-     ^(ifa (not (equal (error-to-sym ,expr-expn) ',expected))
-           (error "test case ~s failed: produced ~s; expected ~s"
-                  ',expr it ',expected)))
-   (error (exc)
-          (unless (eq expected :error)
-            (error "test case ~s failed to expand: expected is ~s" expr expected)))))
+(load "../common")
 
 ;; "it" is (+ 2 2)
 (test (ifa (> (+ 2 2) 0) (* it 2))