Move NEXT from ext/ to cpan/

1 files changed, 44 insertions, 0 deletions

diff --git a/cpan/NEXT/t/actual.t b/cpan/NEXT/t/actual.t
new file mode 100644
index 0000000000..a3a724ae4a
--- /dev/null
+++ b/cpan/NEXT/t/actual.t
@@ -0,0 +1,44 @@
+use Test::More tests => 10;
+
+BEGIN {
+    if ($ENV{PERL_CORE}) {
+        chdir('t') if -d 't';
+        @INC = qw(../lib);
+    }
+}
+
+BEGIN { use_ok('NEXT') };
+my $order = 0;
+
+package A;
+@ISA = qw/B C D/;
+
+sub test { ++$order; ::ok($order==1,"test A"); $_[0]->NEXT::ACTUAL::test;}
+
+package B;
+@ISA = qw/D C/;
+sub test { ++$order; ::ok($order==2,"test B"); $_[0]->NEXT::ACTUAL::test;}
+
+package C;
+@ISA = qw/D/;
+sub test {
+	++$order; ::ok($order==4||$order==6,"test C");
+	$_[0]->NEXT::ACTUAL::test;
+}
+
+package D;
+
+sub test {
+	++$order; ::ok($order==3||$order==5||$order==7||$order==8,"test D");
+        $_[0]->NEXT::ACTUAL::test;
+}
+
+package main;
+
+my $foo = {};
+
+bless($foo,"A");
+
+eval{ $foo->test }
+	? fail("Didn't die on missing ancestor") 
+	: pass("Correctly dies after full traversal");