897e5ad40d
The only tests that are failing are ones that depend on std_vector.i and similar git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7079 626c5289-ae23-0410-ae9c-e8d60b6d4f22
17 lines
352 B
Scheme
17 lines
352 B
Scheme
(define x "hello")
|
|
|
|
(if (not (string=? (test-value x) x))
|
|
(begin (error "Error 1") (exit 1)))
|
|
|
|
(if (not (string=? (test-const-reference x) x))
|
|
(begin (error "Error 2") (exit 1)))
|
|
|
|
(define y (test-pointer-out))
|
|
(test-pointer y)
|
|
(define z (test-const-pointer-out))
|
|
(test-const-pointer z)
|
|
|
|
(define a (test-reference-out))
|
|
(test-reference a)
|
|
|
|
(exit 0)
|