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

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

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