X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F102load_classes.t;h=d391b3423beef8ff5020d63c1f5034e7d2d73826;hb=refs%2Fheads%2Fpeople%2Filmari%2Fhri-prefetch-test;hp=e7e82f42b8d589a1dfcb11475d76bb20fd01fcec;hpb=89271e5650822407f65f7bda524b31ac042b5fa1;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/102load_classes.t b/t/102load_classes.t
index e7e82f4..d391b34 100644
--- a/t/102load_classes.t
+++ b/t/102load_classes.t
@@ -1,18 +1,17 @@
-#!/usr/bin/perl
+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 $@;
@@ -23,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;