;;; 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)
