blob: bf7d90b5b82c3baac87707681c4b829300a1fa66 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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)
|
