0.10

[gitmo/Class-C3.git] / t / 32_next_method_edge_cases.t

diff --git a/t/32_next_method_edge_cases.t b/t/32_next_method_edge_cases.t
index 0e5e913..94e79bf 100644 (file)
--- a/t/32_next_method_edge_cases.t
+++ b/t/32_next_method_edge_cases.t
@@ -9,8 +9,6 @@ BEGIN {
     use_ok('Class::C3');
 }
 
-use Sub::Name;
-
 {
 
     {
@@ -40,19 +38,24 @@ use Sub::Name;
         our @ISA = ('Foo');
     }
     
-    my $m = sub { (shift)->next::method() };
-    subname('Bar::bar', $m);
-    {
-        no strict 'refs';
-        *{'Bar::bar'} = $m;
-    }
-
     my $bar = Bar->new();
     isa_ok($bar, 'Bar');
-    isa_ok($bar, 'Foo');
-
-    can_ok($bar, 'bar');
-    my $value = eval { $bar->bar() };
-    ok(!$@, '... calling bar() succedded') || diag $@;
-    is($value, 'Foo::bar', '... got the right return value too');
+    isa_ok($bar, 'Foo');    
+    
+    SKIP: {    
+        eval 'use Sub::Name';
+        skip "Sub::Name is required for this test", 3 if $@;
+    
+        my $m = sub { (shift)->next::method() };
+        Sub::Name::subname('Bar::bar', $m);
+        {
+            no strict 'refs';
+            *{'Bar::bar'} = $m;
+        }
+
+        can_ok($bar, 'bar');
+        my $value = eval { $bar->bar() };
+        ok(!$@, '... calling bar() succedded') || diag $@;
+        is($value, 'Foo::bar', '... got the right return value too');
+    }
 }
\ No newline at end of file