swig/SWIG/Examples/test-suite/perl5/multiple_inheritance_runme.pl
John Lenz 09a0978dfc Three new broken test cases created to test various patches in the patch list.
Bugs 909389, 962115, and 899332.
These bugs all have fixes in the patch system.
Patches 903150, 914926, and 962168.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6110 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2004-08-23 07:06:01 +00:00

18 lines
298 B
Perl

use multiple_inheritance;
$fooBar = new multiple_inheritance::FooBar();
if ($fooBar->foo() != 2) {
print "Runtime test1 failed\n";
exit 1;
}
if ($fooBar->bar() != 1) {
print "Runtime test2 failed\n";
exit 1;
}
if ($fooBar->fooBar() != 3) {
print "Runtime test3 failed\n";
exit 1;
}