The great merge
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
5fcae5eb66
commit
12a43edc2d
1508 changed files with 125983 additions and 44037 deletions
18
Examples/test-suite/guile/overload_complicated_runme.scm
Normal file
18
Examples/test-suite/guile/overload_complicated_runme.scm
Normal file
|
|
@ -0,0 +1,18 @@
|
|||
;; 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_overload_complicated_module" (dynamic-link "./liboverload_complicated.so"))
|
||||
|
||||
(define-macro (check form)
|
||||
`(if (not ,form)
|
||||
(error "Check failed: " ',form)))
|
||||
|
||||
;; Check first method
|
||||
(check (= (foo 1 2 "bar" 4) 15))
|
||||
|
||||
;; Check second method
|
||||
(check (= (foo 1 2) 4811.4))
|
||||
(check (= (foo 1 2 3.2) 4797.2))
|
||||
(check (= (foo 1 2 3.2 #\Q) 4798.2))
|
||||
|
||||
(exit 0)
|
||||
Loading…
Add table
Add a link
Reference in a new issue