88c0b425e2
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6302 626c5289-ae23-0410-ae9c-e8d60b6d4f22
15 lines
262 B
Perl
15 lines
262 B
Perl
|
|
use multiple_inheritance;
|
|
|
|
$fooBar = new multiple_inheritance::FooBar();
|
|
if ($fooBar->foo() != 2) {
|
|
die "Runtime test1 failed\n";
|
|
}
|
|
|
|
if ($fooBar->bar() != 1) {
|
|
die "Runtime test2 failed\n";
|
|
}
|
|
|
|
if ($fooBar->fooBar() != 3) {
|
|
die "Runtime test3 failed\n";
|
|
}
|