From 739486b9e36ca790452158862f8e6719178dd320 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 24 Apr 2020 17:15:11 -0400
Subject: [PATCH] Added foreign-value tests

---
 test-foreign.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/test-foreign.scm b/test-foreign.scm
index d11e4a7b..5babf118 100644
--- a/test-foreign.scm
+++ b/test-foreign.scm
@@ -134,7 +134,11 @@
 
 ;(write (Cyc-foreign-value "errno" "3"))
 ;(newline)
-(test-group "basic"
+(test-group "foreign-value"
+  (test 3 (Cyc-foreign-value "1 + 2" 'integer))
+)
+
+(test-group "foreign-code"
 (write (foreign-code 
          "printf(\"test %d %d \\n\", 1, 2);"
          "printf(\"test %d %d %d\\n\", 1, 2, 3);")) (newline)