pod for everything

[gitmo/MooseX-ClassAttribute.git] / t / lib / SharedTests.pm

diff --git a/t/lib/SharedTests.pm b/t/lib/SharedTests.pm
index 55a6656..d9e6cca 100644 (file)
--- a/t/lib/SharedTests.pm
+++ b/t/lib/SharedTests.pm
@@ -15,6 +15,7 @@ BEGIN
     }
 }
 
+sub HasMXAH { $HasMXAH }
 
 {
     package HasClassAttribute;
@@ -71,7 +72,7 @@ BEGIN
           default => sub { Delegatee->new() },
         );
 
-    if ($HasMXAH)
+    if ( SharedTests->HasMXAH() )
     {
         class_has 'Mapping' =>
             ( metaclass => 'Collection::Hash',
@@ -140,6 +141,11 @@ BEGIN
     class_has '+ReadOnlyAttribute' =>
         ( default => 30 );
 
+    class_has 'YetAnotherAttribute' =>
+        ( is      => 'ro',
+          default => 'thing',
+        );
+
     no Moose;
 }
 
@@ -236,7 +242,7 @@ sub run_tests
  SKIP:
     {
         skip 'These tests require MooseX::AttributeHelpers', 4
-            unless $HasMXAH;
+            unless SharedTests->HasMXAH();
 
         my @ids = HasClassAttribute->IdsInMapping();
         is( scalar @ids, 0,