swig/Examples/test-suite/perl5/enum_thorough_runme.pl
2004-11-28 19:21:52 +00:00

9 lines
323 B
Perl

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";
}