summaryrefslogtreecommitdiff
path: root/test-suite/tests/peval.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/peval.test')
-rw-r--r--test-suite/tests/peval.test8
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/tests/peval.test b/test-suite/tests/peval.test
index 340780873..4e2ccf9c6 100644
--- a/test-suite/tests/peval.test
+++ b/test-suite/tests/peval.test
@@ -1360,6 +1360,14 @@
(call (toplevel bar) (lexical x _))))))
(pass-if-peval
+ (eq? '(a b) '(a b))
+ (const #t))
+
+ (pass-if-peval
+ (eqv? '(a b) '(a b))
+ (const #t))
+
+ (pass-if-peval
((lambda (foo)
(define* (bar a #:optional (b (1+ a)))
(list a b))