1 use Test::More tests => 10;
10 BEGIN { use_ok('NEXT') };
16 sub test { ++$order; ::ok($order==1,"test A"); $_[0]->NEXT::ACTUAL::test;}
20 sub test { ++$order; ::ok($order==2,"test B"); $_[0]->NEXT::ACTUAL::test;}
25 ++$order; ::ok($order==4||$order==6,"test C");
26 $_[0]->NEXT::ACTUAL::test;
32 ++$order; ::ok($order==3||$order==5||$order==7||$order==8,"test D");
33 $_[0]->NEXT::ACTUAL::test;
43 ? fail("Didn't die on missing ancestor")
44 : pass("Correctly dies after full traversal");