/trunk/Examples/test-suite/mzscheme/imports_runme.scm

# · Lisp · 16 lines · 5 code · 5 blank · 6 comment · 0 complexity · 56eb25945f106a3c4ccae88ce3e4420d MD5 · raw file

  1. ;;; This file is part of a test for SF bug #231619.
  2. ;;; It shows that the %import directive does not work properly in SWIG
  3. ;;; 1.3a5: Type information is not properly generated if a base class
  4. ;;; comes from an %import-ed file.
  5. (load-extension "imports_a.so")
  6. (load-extension "imports_b.so")
  7. (define x (new-B))
  8. ;; This fails in 1.3a5 because the SWIG runtime code does not know
  9. ;; that x (an instance of class B) can be passed to methods of class A.
  10. (A-hello x)
  11. (exit 0)