1 files changed, 0 insertions, 114 deletions
diff --git a/lib/NEXT/t/next.t b/lib/NEXT/t/next.t
deleted file mode 100644
index 8b26f0e4aa..0000000000
--- a/lib/NEXT/t/next.t
+++ /dev/null
@@ -1,114 +0,0 @@
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-        chdir('t') if -d 't';
-        @INC = qw(../lib);
-    }
-}
-
-BEGIN { print "1..26\n"; }
-
-use NEXT;
-
-print "ok 1\n";
-
-package A;
-sub A::method   { return ( 3, $_[0]->NEXT::method() ) }
-sub A::DESTROY  { $_[0]->NEXT::DESTROY() }
-sub A::evaled   { eval { $_[0]->NEXT::evaled(); return 'evaled' } }
-
-package B;
-use base qw( A );
-sub B::AUTOLOAD { return ( 9, $_[0]->NEXT::AUTOLOAD() )
-			if $AUTOLOAD =~ /.*(missing_method|secondary)/ }
-sub B::DESTROY  { $_[0]->NEXT::DESTROY() }
-
-package C;
-sub C::DESTROY  { print "ok 24\n"; $_[0]->NEXT::DESTROY() }
-
-package D;
-@D::ISA = qw( B C E );
-sub D::method   { return ( 2, $_[0]->NEXT::method() ) }
-sub D::AUTOLOAD { return ( 8, $_[0]->NEXT::AUTOLOAD() ) }
-sub D::DESTROY  { print "ok 23\n"; $_[0]->NEXT::DESTROY() }
-sub D::oops     { $_[0]->NEXT::method() }
-sub D::secondary { return ( 17, 18, map { $_+10 } $_[0]->NEXT::secondary() ) }
-
-package E;
-@E::ISA = qw( F G );
-sub E::method   { return ( 4,  $_[0]->NEXT::method(), $_[0]->NEXT::method() ) }
-sub E::AUTOLOAD { return ( 10, $_[0]->NEXT::AUTOLOAD() ) 
-			if $AUTOLOAD =~ /.*(missing_method|secondary)/ }
-sub E::DESTROY  { print "ok 25\n"; $_[0]->NEXT::DESTROY() }
-
-package F;
-sub F::method   { return ( 5  ) }
-sub F::AUTOLOAD { return ( 11 ) if $AUTOLOAD =~ /.*(missing_method|secondary)/ }
-sub F::DESTROY  { print "ok 26\n" }
-
-package G;
-sub G::method   { return ( 6 ) }
-sub G::AUTOLOAD { print "not "; return }
-sub G::DESTROY  { print "not ok 22"; return }
-
-package main;
-
-my $obj = bless {}, "D";
-
-my @vals;
-
-# TEST NORMAL REDISPATCH (ok 2..6)
-@vals = $obj->method();
-print map "ok $_\n", @vals;
-
-# RETEST NORMAL REDISPATCH SHOULD BE THE SAME (ok 7)
-@vals = $obj->method();
-print "not " unless join("", @vals) == "23456";
-print "ok 7\n";
-
-# TEST AUTOLOAD REDISPATCH (ok 8..11)
-@vals = $obj->missing_method();
-print map "ok $_\n", @vals;
-
-# NAMED METHOD CAN'T REDISPATCH TO NAMED METHOD OF DIFFERENT NAME (ok 12)
-eval { $obj->oops() } && print "not ";
-print "ok 12\n";
-
-# AUTOLOAD'ED METHOD CAN'T REDISPATCH TO NAMED METHOD (ok 13)
-
-eval {
-	local *C::AUTOLOAD = sub { $_[0]->NEXT::method() };
-	*C::AUTOLOAD = *C::AUTOLOAD;
-	eval { $obj->missing_method(); } && print "not ";
-};
-print "ok 13\n";
-
-# NAMED METHOD CAN'T REDISPATCH TO AUTOLOAD'ED METHOD (ok 14)
-eval { 
-	*C::method = sub{ $_[0]->NEXT::AUTOLOAD() };
-	*C::method = *C::method;
-	eval { $obj->method(); } && print "not ";
-};
-print "ok 14\n";
-
-# BASE CLASS METHODS ONLY REDISPATCHED WITHIN HIERARCHY (ok 15..16)
-my $ob2 = bless {}, "B";
-@val = $ob2->method();         
-print "not " unless @val==1 && $val[0]==3;
-print "ok 15\n";
-
-@val = $ob2->missing_method(); 
-print "not " unless @val==1 && $val[0]==9;
-print "ok 16\n";
-
-# TEST SECONDARY AUTOLOAD REDISPATCH (ok 17..21)
-@vals = $obj->secondary();
-print map "ok $_\n", @vals;
-
-# TEST HANDLING OF NEXT:: INSIDE EVAL (22)
-eval {
-	$obj->evaled;
-	$@ && print "not ";
-};
-print "ok 22\n";
-
-# CAN REDISPATCH DESTRUCTORS (ok 23..26)