6 # Before `make install' is performed this script should be runnable with
7 # `make test'. After `make install' it should work as `perl test.pl'
9 ######################### We start with some black magic to print on failure.
11 # Change 1..1 below to 1..last_test_to_print .
12 # (It may become useful if the test is moved to ./t subdirectory.)
14 BEGIN { $| = 1; print "1..2\n"; }
15 END {print "not ok 1\n" unless $loaded;}
20 ######################### End of black magic.
22 # Insert your test code below (better if it prints "ok 13"
23 # (correspondingly "not ok 13") depending on the success of chunk 13
26 @Food::Fishstick::ISA = qw(Food::Fish Life::Fungus Chemicals);
27 @Food::Fish::ISA = qw(Food);
28 @Food::ISA = qw(Matter);
29 @Life::Fungus::ISA = qw(Life);
30 @Chemicals::ISA = qw(Matter);
31 @Life::ISA = qw(Matter);
35 my @path = Class::ISA::super_path('Food::Fishstick');
36 my $flat_path = join ' ', @path;
37 print "# Food::Fishstick path is:\n# $flat_path\n";
39 "Food::Fish Food Matter Life::Fungus Life Chemicals" eq $flat_path;