Blame t/tree.t

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.