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