Base more tests on DBICTest::BaseSchema (needed further up)
Peter Rabbitson [Sun, 5 Jun 2016 10:00:43 +0000 (12:00 +0200)]
t/102load_classes.t
t/39load_namespaces_1.t
t/39load_namespaces_2.t
t/39load_namespaces_3.t
t/39load_namespaces_4.t
t/39load_namespaces_exception.t
t/39load_namespaces_rt41083.t
t/39load_namespaces_stress.t
t/row/inflate_result.t

index ef99b3a..d391b34 100644 (file)
@@ -11,7 +11,7 @@ my $warnings;
 eval {
     local $SIG{__WARN__} = sub { $warnings .= shift };
     package DBICTest::Schema;
-    use base qw/DBIx::Class::Schema/;
+    use base qw/DBICTest::BaseSchema/;
     __PACKAGE__->load_classes;
 };
 ok(!$@, 'Loaded all loadable classes') or diag $@;
index c6355a7..f7fb08e 100644 (file)
@@ -11,7 +11,7 @@ my $warnings;
 eval {
     local $SIG{__WARN__} = sub { $warnings .= shift };
     package DBICNSTest;
-    use base qw/DBIx::Class::Schema/;
+    use base qw/DBICTest::BaseSchema/;
     __PACKAGE__->load_namespaces;
 };
 ok(!$@, 'load_namespaces doesnt die') or diag $@;
index e38dfd5..1e73c7f 100644 (file)
@@ -13,7 +13,7 @@ my $warnings;
 eval {
     local $SIG{__WARN__} = sub { $warnings .= shift };
     package DBICNSTest;
-    use base qw/DBIx::Class::Schema/;
+    use base qw/DBICTest::BaseSchema/;
     __PACKAGE__->load_namespaces(
         result_namespace => 'Rslt',
         resultset_namespace => 'RSet',
index 144feb6..1b63baa 100644 (file)
@@ -12,7 +12,7 @@ use DBICTest; # do not remove even though it is not used
 lives_ok (sub {
   warnings_exist ( sub {
       package DBICNSTestOther;
-      use base qw/DBIx::Class::Schema/;
+      use base qw/DBICTest::BaseSchema/;
       __PACKAGE__->load_namespaces(
           result_namespace => [ '+DBICNSTest::Rslt', '+DBICNSTest::OtherRslt' ],
           resultset_namespace => '+DBICNSTest::RSet',
index d0e82ed..789ed50 100644 (file)
@@ -13,7 +13,7 @@ my $warnings;
 eval {
     local $SIG{__WARN__} = sub { $warnings .= shift };
     package DBICNSTest;
-    use base qw/DBIx::Class::Schema/;
+    use base qw/DBICTest::BaseSchema/;
     __PACKAGE__->load_namespaces( default_resultset_class => 'RSBase' );
 };
 ok(!$@) or diag $@;
index e0d65ec..14bf342 100644 (file)
@@ -11,7 +11,7 @@ plan tests => 1;
 
 eval {
     package DBICNSTest;
-    use base qw/DBIx::Class::Schema/;
+    use base qw/DBICTest::BaseSchema/;
     __PACKAGE__->load_namespaces(
         result_namespace => 'Bogus',
         resultset_namespace => 'RSet',
index 0e33420..f59d597 100644 (file)
@@ -32,7 +32,7 @@ sub _verify_sources {
   eval {
     local $SIG{__WARN__} = sub { $warnings .= shift };
     package DBICNSTest::RtBug41083;
-    use base 'DBIx::Class::Schema';
+    use base 'DBICTest::BaseSchema';
     __PACKAGE__->load_namespaces(
       result_namespace => 'Result_A',
       resultset_namespace => 'ResultSet_A',
@@ -52,7 +52,7 @@ sub _verify_sources {
   eval {
     local $SIG{__WARN__} = sub { $warnings .= shift };
     package DBICNSTest::RtBug41083;
-    use base 'DBIx::Class::Schema';
+    use base 'DBICTest::BaseSchema';
     __PACKAGE__->load_namespaces(
       default_resultset_class => 'ResultSet'
     );
index ff64dbf..bfef360 100644 (file)
@@ -27,7 +27,7 @@ EOM
 {
   package DBICTest::NS::Stress::Schema;
 
-  use base qw/DBIx::Class::Schema/;
+  use base qw/DBICTest::BaseSchema/;
 
   sub _findallmod {
     return $_[1] eq ( __PACKAGE__ . '::Result' )
index f2f6b80..9fa49ac 100644 (file)
@@ -60,7 +60,7 @@ sub do_admin_stuff {
 
 package My::Schema;
 
-use base qw/DBIx::Class::Schema/;
+use base qw/DBICTest::BaseSchema/;
 
 My::Schema->register_class( Admin => 'My::Schema::Result::User::Admin' );
 My::Schema->register_class( User  => 'My::Schema::Result::User' );