1 files changed, 38 insertions, 0 deletions
diff --git a/Examples/test-suite/schemerunme/argcargvtest.scm b/Examples/test-suite/schemerunme/argcargvtest.scm
new file mode 100644
index 000000000..bf7d90b5b
--- /dev/null
+++ b/Examples/test-suite/schemerunme/argcargvtest.scm
@@ -0,0 +1,38 @@
+(define largs #("hi" "hola" "hello"))
+(when (not (= (mainc largs) 3))
+    (error "calling mainc failed"))
+
+(define targs #("hi" "hola"))
+(when (not (string=? (mainv targs 0) "hi"))
+    (error "calling mainv failed"))
+(when (not (string=? (mainv targs 1) "hola"))
+    (error "calling mainv failed"))
+(when (not (string=? (mainv targs 2) "<<NULL>>"))
+    (error "calling mainv failed"))
+
+(expect-throw 'swig-contract-assertion-failed
+    (mainv "hello"  1))
+
+(initializeApp largs)
+
+; Check that an empty array works.
+(define empty_args #())
+(when (not (= (mainc empty_args) 0))
+    (error "calling mainc failed"))
+(when (not (string=? (mainv empty_args 0) "<<NULL>>"))
+    (error "calling mainv failed"))
+
+; Check that empty strings are handled.
+(define empty_string #("hello" "" "world"))
+(when (not (= (mainc empty_string) 3))
+    (error "calling mainc failed"))
+(when (not (string=? (mainv empty_string 0) "hello"))
+    (error "calling mainv 0 failed"))
+(when (not (string=? (mainv empty_string 1) ""))
+    (error "calling mainv 1 failed"))
+(when (not (string=? (mainv empty_string 2) "world"))
+    (error "calling mainv 2 failed"))
+(when (not (string=? (mainv empty_string 3) "<<NULL>>"))
+    (error "calling mainv 3 failed"))
+
+(exit 0)