X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F102load_classes.t;h=ef99b3aec15eb8a2bcd6a4a7ccba9fb438693c7c;hb=296248c3;hp=e7e82f42b8d589a1dfcb11475d76bb20fd01fcec;hpb=89271e5650822407f65f7bda524b31ac042b5fa1;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/102load_classes.t b/t/102load_classes.t
index e7e82f4..ef99b3a 100644
--- a/t/102load_classes.t
+++ b/t/102load_classes.t
@@ -1,12 +1,11 @@
-#!/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 {
@@ -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;