/trunk/Examples/test-suite/guile/li_typemaps_runme.scm
Lisp | 18 lines | 9 code | 4 blank | 5 comment | 0 complexity | 318c5afd6dcbcff98c969ca87605b17b MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- ;;; This is the union runtime testcase. It ensures that values within a
- ;;; union embedded within a struct can be set and read correctly.
- ;; The SWIG modules have "passive" Linkage, i.e., they don't generate
- ;; Guile modules (namespaces) but simply put all the bindings into the
- ;; current module. That's enough for such a simple test.
- (dynamic-call "scm_init_li_typemaps_module" (dynamic-link "./libli_typemaps.so"))
- (load "../schemerunme/li_typemaps.scm")
- (let ((lst (inoutr-int2 3 -2)))
- (if (not (and (= (car lst) 3) (= (cadr lst) -2)))
- (error "Error in inoutr-int2")))
- (let ((lst (out-foo 4)))
- (if (not (and (= (Foo-a-get (car lst)) 4) (= (cadr lst) 8)))
- (error "Error in out-foo")))
- (exit 0)