Examples/test-suite/schemerunme/argcargvtest.scm

(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)