ignore 'expect-fail' forms in elisp tests

[bpt/guile.git] / test-suite / tests / elisp-compiler.test

diff --git a/test-suite/tests/elisp-compiler.test b/test-suite/tests/elisp-compiler.test
index ddfa80a..1e40dc0 100644 (file)
--- a/test-suite/tests/elisp-compiler.test
+++ b/test-suite/tests/elisp-compiler.test
@@ -36,7 +36,9 @@
                                 (compile 'exp #:from 'elisp #:to 'value))))
     ((_ (pass-if-exception test-name exc exp))
      (pass-if-exception test-name exc
-                        (compile 'exp #:from 'elisp #:to 'value)))))
+                        (compile 'exp #:from 'elisp #:to 'value)))
+    ((_ (expect-fail test-name exp))
+     #f)))
 
 (define-syntax with-test-prefix/compile
   (syntax-rules ()