swig/Examples/test-suite/schemerunme/char_binary_rev_len.scm

(define t (new-Test))

(if (not (= (Test-strlen t "hile") 4))
    (error "bad multi-arg typemap"))

(if (not (= (Test-strlen t "hil\x00") 4))
    (error "bad multi-arg typemap"))

(exit 0)