regexec.c: Remove unnecessary cBOOLs

[perl5.git] / t / mro / next_edgecases.t

diff --git a/t/mro/next_edgecases.t b/t/mro/next_edgecases.t
index e77ce7b..7402ec9 100644 (file)
--- a/t/mro/next_edgecases.t
+++ b/t/mro/next_edgecases.t
@@ -5,7 +5,7 @@ use warnings;
 
 BEGIN { chdir 't'; require q(./test.pl); @INC = qw "../lib lib" }
 
-plan(tests => 14);
+plan(tests => 12);
 
 {
 
@@ -54,7 +54,7 @@ plan(tests => 14);
 
         can_ok($bar, 'bar');
         my $value = eval { $bar->bar() };
-        ok(!$@, '... calling bar() succedded') || diag $@;
+        ok(!$@, '... calling bar() succeeded') || diag $@;
         is($value, 'Foo::bar', '... got the right return value too');
     }
     
@@ -93,19 +93,3 @@ plan(tests => 14);
     is($@, '', "->next::can on non-existing package name");
 
 }
-
-# Test next::method with UNIVERSAL methods
-{
-    package UNIVERSAL;
-    sub foo { "foo" }
-    our @ISA = "a";
-    package a;
-    sub bar { "bar" }
-    package M;
-    sub foo { shift->next::method }
-    sub bar { shift->next::method }
-    package main;
-
-    is eval { M->foo }, "foo", 'next::method with implicit UNIVERSAL';
-    is eval { M->bar }, "bar", 'n::m w/superclass of implicit UNIVERSAL';
-}