Add tests for procedure conversions.

gambit · Jan 11, 2023 · 1b9fdcf · 1b9fdcf
1 parent a0805f7
commit 1b9fdcf
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/test/test.scm b/test/test.scm
@@ -66,6 +66,10 @@
 (let ((p (python-eval "foreign(lambda x: x)")))
   \s=`p
   (test-assert \s==`p))
+(let ((p (lambda (x) x)))
+  \s=`(scheme p)
+  (test-assert (eq? \s p)))
+(test-equal (cos 0) \(`cos)(0))
 
 ;; *args and **kwargs
 (let ((p (python-eval "lambda x, *args, **kwargs: args if x else kwargs")))