diff options
Diffstat (limited to 'test-suite/tests')
-rw-r--r-- | test-suite/tests/elisp-compiler.test | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/test-suite/tests/elisp-compiler.test b/test-suite/tests/elisp-compiler.test index b76d4fad7..584cfd4bf 100644 --- a/test-suite/tests/elisp-compiler.test +++ b/test-suite/tests/elisp-compiler.test @@ -29,6 +29,8 @@ (syntax-rules (pass-if pass-if-exception) ((_ (pass-if test-name exp)) (pass-if test-name (compile 'exp #:from 'elisp #:to 'value))) + ((_ (pass-if test-name exp #:opts opts)) + (pass-if test-name (compile 'exp #:from 'elisp #:to 'value #:opts opts))) ((_ (pass-if-equal test-name result exp)) (pass-if test-name (equal? result (compile 'exp #:from 'elisp #:to 'value)))) @@ -203,7 +205,14 @@ (progn (setq a 1 b 2) (and (eq (makunbound 'b) 'b) (boundp 'a) - (not (boundp 'b)))))) + (not (boundp 'b))))) + + (pass-if "disabled void check (all)" + (progn (makunbound 'a) a t) + #:opts '(#:disable-void-check all)) + (pass-if "disabled void check (symbol list)" + (progn (makunbound 'a) a t) + #:opts '(#:disable-void-check (x y a b)))) (with-test-prefix/compile "Let and Let*" |