1BEGIN { 2 chdir 't' if -d 't'; 3 @INC = '../lib'; 4} 5 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' 8 9######################### We start with some black magic to print on failure. 10 11# Change 1..1 below to 1..last_test_to_print . 12# (It may become useful if the test is moved to ./t subdirectory.) 13 14BEGIN { $| = 1; print "1..2\n"; } 15END {print "not ok 1\n" unless $loaded;} 16use Class::ISA; 17$loaded = 1; 18print "ok 1\n"; 19 20######################### End of black magic. 21 22# Insert your test code below (better if it prints "ok 13" 23# (correspondingly "not ok 13") depending on the success of chunk 13 24# of the test code): 25 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); 32 @Matter::ISA = qw(); 33 34 use Class::ISA; 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"; 38 print "not " unless 39 "Food::Fish Food Matter Life::Fungus Life Chemicals" eq $flat_path; 40 print "ok 2\n"; 41