X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F102load_classes.t;h=d391b3423beef8ff5020d63c1f5034e7d2d73826;hb=dc7d89911b7bb98c30208cf73af522a99998dcd6;hp=6612ffadac3ed37b7e5ce7de36bbfc5afa2907c2;hpb=f54428abf9cc7d7e5604745335694eaf558f6820;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/102load_classes.t b/t/102load_classes.t
index 6612ffa..d391b34 100644
--- a/t/102load_classes.t
+++ b/t/102load_classes.t
@@ -1,16 +1,17 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
 use strict;
 use warnings;
 use Test::More;
 
-unshift(@INC, './t/lib');
 
-plan tests => 4;
+use DBICTest;
 
 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 $@;
@@ -21,3 +22,4 @@ isa_ok($source_a, 'DBIx::Class::ResultSource::Table');
 my $rset_a   = DBICTest::Schema->resultset('Artist');
 isa_ok($rset_a, 'DBIx::Class::ResultSet');
 
+done_testing;