mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 04:00:26 +02:00
Code Activity

make pass-if-equal' literal in compile-test'

Browse source 
* test-suite/tests/elisp-compiler.test (compile-test): Add
  `pass-if-equal' to the list of literal identifiers
This commit is contained in:
Brian Templeton 2010-06-23 19:40:03 -04:00
parent c55a2ddc1b
commit 3e74b2cc63
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test-suite/tests/elisp-compiler.test
View file

@ -26,7 +26,7 @@
; Macros to handle the compilation conveniently. ; Macros to handle the compilation conveniently.
(define-syntax compile-test (define-syntax compile-test
(syntax-rules (pass-if pass-if-exception) (syntax-rules (pass-if pass-if-equal pass-if-exception)
((_ (pass-if test-name exp)) ((_ (pass-if test-name exp))
(pass-if test-name (compile 'exp #:from 'elisp #:to 'value))) (pass-if test-name (compile 'exp #:from 'elisp #:to 'value)))
((_ (pass-if test-name exp #:opts opts)) ((_ (pass-if test-name exp #:opts opts))