X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fdbixcsl_common_tests.pm;h=75e2e61a75ea97d3d1589957f96ed22d92e030c7;hb=4be0d9b1f0da85288f5c0defe631c69ef7bcf08c;hp=b610fb55993af60cbe86adf23edd21ad49c2848f;hpb=95b0a8b9f13c30c12c23f28e0cd6ff642412d009;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/t/lib/dbixcsl_common_tests.pm b/t/lib/dbixcsl_common_tests.pm
index b610fb5..75e2e61 100644
--- a/t/lib/dbixcsl_common_tests.pm
+++ b/t/lib/dbixcsl_common_tests.pm
@@ -371,8 +371,13 @@ sub test_schema {
     is $class2->column_info('testcomponent_fqn')->{accessor}, undef,
         'accessor for column name that conflicts with a fully qualified component class method removed';
 
-    is $class2->column_info('meta')->{accessor}, undef,
-        'accessor for column name that conflicts with Moose removed';
+    if ($conn->_loader->use_moose) {
+        is $class2->column_info('meta')->{accessor}, undef,
+            'accessor for column name that conflicts with Moose removed';
+    }
+    else {
+        pass "not removing 'meta' accessor with use_moose disabled";
+    }
 
     my %uniq1 = $class1->unique_constraints;
     my $uniq1_test = 0;