Examples/test-suite/guile/li_typemaps_runme.scm

   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)