|
Packit |
b48d6e |
#!/usr/bin/perl -w
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
# tree.t
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
use Devel::Symdump;
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
package Coffee;
|
|
Packit |
b48d6e |
@ISA = qw(Liquid Black);
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
package Liquid;
|
|
Packit |
b48d6e |
package Black;
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
package Martini;
|
|
Packit |
b48d6e |
@ISA = qw(Liquid);
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
package Martini::White;
|
|
Packit |
b48d6e |
@ISA = qw(Martini);
|
|
Packit |
b48d6e |
package Martini::Red;
|
|
Packit |
b48d6e |
@ISA = qw(Martini);
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
print "1..2\n";
|
|
Packit |
b48d6e |
my @s = split /\n/, Devel::Symdump->isa_tree;
|
|
Packit |
b48d6e |
print @s >= 11 ? "ok 1\n" : "not ok [@s]\n";
|
|
Packit |
b48d6e |
@s = split /\n/, Devel::Symdump->inh_tree;
|
|
Packit |
b48d6e |
print @s >= 9 ? "ok 2\n" : "not ok [@s]\n";
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
# The tests are testing with the > operator, because we never know where
|
|
Packit |
b48d6e |
# Exporter and Carp (and others) are developing into.
|