;;; This file is part of a test for SF bug #231619. ;;; It shows that the %import directive does not work properly in SWIG ;;; 1.3a5: Type information is not properly generated if a base class ;;; comes from an %import-ed file. ;; 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_imports_a_module" (dynamic-link "./libimports_a.so")) (dynamic-call "scm_init_imports_b_module" (dynamic-link "./libimports_b.so")) (define x (new-B)) ;; This fails in 1.3a5 because the SWIG runtime code does not know ;; that x (an instance of class B) can be passed to methods of class A. (A-hello x) (exit 0)