2
use multiple_inheritance;
4
$fooBar = new multiple_inheritance::FooBar();
5
if ($fooBar->foo() != 2) {
6
die "Runtime test1 failed\n";
9
if ($fooBar->bar() != 1) {
10
die "Runtime test2 failed\n";
13
if ($fooBar->fooBar() != 3) {
14
die "Runtime test3 failed\n";
3
use Test::More tests => 5;
4
BEGIN { use_ok('multiple_inheritance') }
5
require_ok('multiple_inheritance');
7
my $fooBar = new multiple_inheritance::FooBar();
8
is($fooBar->foo(), 2, "Runtime test1");
10
is($fooBar->bar(), 1, "Runtime test2");
12
is($fooBar->fooBar(), 3, "Runtime test3 ");