Issue #537 - Add tests

justinethier · May 22, 2024 · 65fa16c · 65fa16c
1 parent 6b556d3
commit 65fa16c
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/tests/base.scm b/tests/base.scm
@@ -9,6 +9,7 @@
 
 (import 
   (scheme base)
+  (scheme eval)
   (scheme inexact)
   (cyclone test))
 
@@ -31,6 +32,12 @@
   (test '() (make-list -2))
 )
 
+(test-group
+  "apply"
+  (test '(5 1 2) (eval '(apply cons '(5 (1 2)))))
+  (test '(5 1 2) (apply cons '(5 (1 2))))
+)
+
 (cond-expand
   (memory streams
     (test-group