PageRenderTime 25ms CodeModel.GetById 1ms RepoModel.GetById 0ms 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
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
  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. ;; The SWIG modules have "passive" Linkage, i.e., they don't generate
  4. ;; Guile modules (namespaces) but simply put all the bindings into the
  5. ;; current module. That's enough for such a simple test.
  6. (dynamic-call "scm_init_li_typemaps_module" (dynamic-link "./libli_typemaps.so"))
  7. (load "../schemerunme/li_typemaps.scm")
  8. (let ((lst (inoutr-int2 3 -2)))
  9. (if (not (and (= (car lst) 3) (= (cadr lst) -2)))
  10. (error "Error in inoutr-int2")))
  11. (let ((lst (out-foo 4)))
  12. (if (not (and (= (Foo-a-get (car lst)) 4) (= (cadr lst) 8)))
  13. (error "Error in out-foo")))
  14. (exit 0)