jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix mzscheme name and unions testcases

Browse source
This commit is contained in:
William S Fulton 2019-02-09 18:46:38 +00:00
commit 454c1f1aa4
3 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Examples/test-suite/mzscheme/Makefile.in
View file

@ -61,10 +61,8 @@ valuewrapper_opaque \
FAILING_C_TESTS = \ FAILING_C_TESTS = \
enums \ enums \
integers \ integers \
name \
preproc_constants_c \ preproc_constants_c \
preproc_line_file \ preproc_line_file \
unions \
FAILING_MULTI_CPP_TESTS = \ FAILING_MULTI_CPP_TESTS = \
multi_import \ multi_import \

2
Examples/test-suite/mzscheme/name_runme.scm
View file

@ -1,7 +1,7 @@
;; The SWIG modules have "passive" Linkage, i.e., they don't generate ;; The SWIG modules have "passive" Linkage, i.e., they don't generate
;; Guile modules (namespaces) but simply put all the bindings into the ;; Guile modules (namespaces) but simply put all the bindings into the
;; current module. That's enough for such a simple test. ;; current module. That's enough for such a simple test.
(load-extension "./name.so") (load-extension "name.so")
(foo-2) (foo-2)
bar-2 bar-2

6
Examples/test-suite/mzscheme/unions_runme.scm
View file

@ -25,13 +25,15 @@
(if (not (= Jill1 200)) (if (not (= Jill1 200))
(begin (begin
(display "Runtime test 1 failed.") (display "Runtime test 1 failed.")
(exit 1)))) (exit 1))
(void)))
(let ((Num1 (EmbeddedUnionTest-number-get eut))) (let ((Num1 (EmbeddedUnionTest-number-get eut)))
(if (not (= Num1 1)) (if (not (= Num1 1))
(begin (begin
(display "Runtime test 2 failed.") (display "Runtime test 2 failed.")
(exit 1)))) (exit 1))
(void)))
;; that should do ;; that should do