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

simple const enum SWIGTYPE & typemap test and enum by value runtime test

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6787 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2004-11-28 19:21:52 +00:00
commit 80b086b382
2 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Examples/test-suite/perl5/enum_thorough_runme.pl Normal file
View file

@ -0,0 +1,9 @@
use enum_thorough;
# Just test an in and out typemap for enum SWIGTYPE and const enum SWIGTYPE & typemaps
if (enum_thorough::speedTest4(SpeedClass_slow) != SpeedClass_slow) {
die "speedTest Global 4 failed";
}
if (enum_thorough::speedTest5(SpeedClass_slow) != SpeedClass_slow) {
die "speedTest Global 5 failed";
}

8
Examples/test-suite/tcl/enum_thorough_runme.tcl Normal file
View file

@ -0,0 +1,8 @@
if [ catch { load ./enum_thorough[info sharedlibextension] enum_thorough} err_msg ] {
puts stderr "Could not load shared object:\n$err_msg"
}
if { [speedTest4 $SpeedClass_slow] != $SpeedClass_slow } { puts stderr "speedTest4 failed" }
if { [speedTest5 $SpeedClass_slow] != $SpeedClass_slow } { puts stderr "speedTest5 failed" }