get rid of some earlier trash, prepare for putting in the real code

[gitmo/Class-C3-XS.git] / t / 33_next_method_used_with_NEXT.t

diff --git a/t/33_next_method_used_with_NEXT.t b/t/33_next_method_used_with_NEXT.t
deleted file mode 100644 (file)
index b2e4843..0000000
--- a/t/33_next_method_used_with_NEXT.t
+++ /dev/null
@@ -1,55 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More;
-
-BEGIN {
-    eval "use NEXT";
-    plan skip_all => "NEXT required for this test" if $@;
-    plan tests => 4;
-}
-
-{
-    package Foo;
-    use strict;
-    use warnings;
-    use Class::C3;
-    
-    sub foo { 'Foo::foo' }
-    
-    package Fuz;
-    use strict;
-    use warnings;
-    use Class::C3;    
-    use base 'Foo';
-
-    sub foo { 'Fuz::foo => ' . (shift)->next::method }
-        
-    package Bar;
-    use strict;
-    use warnings;    
-    use Class::C3;
-    use base 'Foo';
-
-    sub foo { 'Bar::foo => ' . (shift)->next::method }
-    
-    package Baz;
-    use strict;
-    use warnings;    
-    require NEXT; # load this as late as possible so we can catch the test skip
-
-    use base 'Bar', 'Fuz';
-    
-    sub foo { 'Baz::foo => ' . (shift)->NEXT::foo }    
-}
-
-Class::C3::initialize();
-
-is(Foo->foo, 'Foo::foo', '... got the right value from Foo->foo');
-is(Fuz->foo, 'Fuz::foo => Foo::foo', '... got the right value from Fuz->foo');
-is(Bar->foo, 'Bar::foo => Foo::foo', '... got the right value from Bar->foo');
-
-is(Baz->foo, 'Baz::foo => Bar::foo => Fuz::foo => Foo::foo', '... got the right value using NEXT in a subclass of a C3 class');
-