summaryrefslogtreecommitdiff
path: root/test-suite/tests/elisp-compiler.test
diff options
context:
space:
mode:
authorRobin Templeton <robin@terpri.org>2015-05-10 17:41:12 -0400
committerChristopher Allan Webber <cwebber@dustycloud.org>2016-03-25 12:00:14 -0700
commita005046c5989b9b5cce8f3e60dea297b878ff9b1 (patch)
treefe8b82e436b3b11c435ed6a0484e85e8a9a547ca /test-suite/tests/elisp-compiler.test
parent898e00b6cf984df9f5585719c85d10e2e8fcf785 (diff)
downloadguile-a005046c5989b9b5cce8f3e60dea297b878ff9b1.tar.gz
ignore 'expect-fail' forms in elisp tests
(Best-ability ChangeLog annotation added by Christopher Allan Webber.) * test-suite/tests/elisp-compiler.test (compile-test): Update to support expect-fail.
Diffstat (limited to 'test-suite/tests/elisp-compiler.test')
-rw-r--r--test-suite/tests/elisp-compiler.test4
1 files changed, 3 insertions, 1 deletions
diff --git a/test-suite/tests/elisp-compiler.test b/test-suite/tests/elisp-compiler.test
index ddfa80a9a..1e40dc040 100644
--- 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 ()