PageRenderTime 6ms CodeModel.GetById 1ms app.highlight 1ms RepoModel.GetById 2ms app.codeStats 0ms

/trunk/Examples/test-suite/guile/li_typemaps_runme.scm

#
Lisp | 18 lines | 9 code | 4 blank | 5 comment | 0 complexity | 318c5afd6dcbcff98c969ca87605b17b MD5 | raw file
 1;;; This is the union runtime testcase. It ensures that values within a
 2;;; union embedded within a struct can be set and read correctly.
 3
 4;; The SWIG modules have "passive" Linkage, i.e., they don't generate
 5;; Guile modules (namespaces) but simply put all the bindings into the
 6;; current module.  That's enough for such a simple test.
 7(dynamic-call "scm_init_li_typemaps_module" (dynamic-link "./libli_typemaps.so"))
 8(load "../schemerunme/li_typemaps.scm")
 9
10(let ((lst (inoutr-int2 3 -2)))
11  (if (not (and (= (car lst) 3) (= (cadr lst) -2)))
12    (error "Error in inoutr-int2")))
13
14(let ((lst (out-foo 4)))
15  (if (not (and (= (Foo-a-get (car lst)) 4) (= (cadr lst) 8)))
16    (error "Error in out-foo")))
17
18(exit 0)