| #!/usr/bin/perl -w | |
| use strict; | |
| use Test::More tests => 4; | |
| BEGIN { use_ok('packageoption_a'); } | |
| BEGIN { use_ok('packageoption_b'); } | |
| # Workaround for | |
| # ok( not (expression) , "test description" ); | |
| # does not working in older versions of Perl, eg 5.004_04 | |
| sub ok_not ($;$) { | |
| my($test, $name) = @_; | |
| $test = not $test; | |
| ok($test, $name); | |
| } | |
| my $a = C::A->new(); | |
| isa_ok($a, 'C::A'); | |
| my $b = C::B->new(); | |
| isa_ok($b, 'C::B'); | |