One last tweak to make sure our Sub::Name-using tests _do_ run when we

[gitmo/Class-MOP.git] / t / 082_get_code_info.t

diff --git a/t/082_get_code_info.t b/t/082_get_code_info.t
index 1a10319..e3c74e0 100644 (file)
--- a/t/082_get_code_info.t
+++ b/t/082_get_code_info.t
@@ -3,11 +3,19 @@
 use strict;
 use warnings;
 
-use Test::More 'no_plan';
+use Test::More;
+
+BEGIN {
+    if ( eval 'use Sub::Name qw(subname); 1;' ) {
+        plan tests => 5;
+    }
+    else {
+        plan skip_all => 'These tests require Sub::Name';
+    }
+}
 
 BEGIN { use_ok("Class::MOP") }
 
-use Sub::Name qw(subname);
 
 sub code_name_is ($$$;$) {
     my ( $code, $stash, $name, $desc ) = @_;