skip test using around unless CMM is available
Graham Knop [Mon, 15 Jul 2013 03:56:28 +0000 (23:56 -0400)]
Changes
t/subclass.t

diff --git a/Changes b/Changes
index 0d47586..410fce8 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+  - fix test accidentally requiring Class::Method::Modifiers
+
 1.003000 - 2013-07-14
   - allow composing roles simultaneously that mutually require each other
     (RT#82711)
index e1fd793..88dd111 100644 (file)
@@ -96,13 +96,16 @@ ok eval { RoleExtension3->create_class_with_roles('Class2', 'Role3') },
 ok !eval { RoleExtension3->create_class_with_roles('Class2', 'Role4'); },
   'requires checked properly during create_class_with_roles';
 
-{
+SKIP: {
+  skip "Class::Method::Modifiers not installed or too old", 1
+    unless eval "use Class::Method::Modifiers 1.05; 1";
   package Role5;
   $INC{'Role5.pm'} = __FILE__;
   use Role::Tiny;
   around extra_sub2 => sub { my $orig = shift; $orig->(@_); };
+
+  ::ok !eval { RoleExtension3->create_class_with_roles('Class3', 'Role4'); },
+    'requires checked properly during create_class_with_roles';
 }
-ok !eval { RoleExtension3->create_class_with_roles('Class3', 'Role4'); },
-  'requires checked properly during create_class_with_roles';
 
 done_testing;