From fd8cb32e4611b9ef7109b1aa47327e83095a28b9 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 11 May 2020 22:03:07 -0400 Subject: [PATCH] Added more tests --- libs/test-foreign.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/libs/test-foreign.scm b/libs/test-foreign.scm index 42c5a2ad..ad492033 100644 --- a/libs/test-foreign.scm +++ b/libs/test-foreign.scm @@ -38,11 +38,13 @@ ; Would need to generate scheme wrappers to handle these conversions (c-define scm-strlen my-integer "strlen" string) +(c-define scm-strlen-str my-integer-as-string "strlen" string) ;(c-define scm-strlen "int" "strlen" string) (c-define scm-strlend double "strlen" string) (test-group "foreign lambda" (test 15 (scm-strlen "testing 1, 2, 3")) (test 15.0 (scm-strlend "testing 1, 2, 3")) + (test "15" (scm-strlen-str "testing 1, 2, 3")) ) (test-exit)