Reorder a couple stray loads in ResultSource.pm

[dbsrgits/DBIx-Class.git] / t / 102load_classes.t

diff --git a/t/102load_classes.t b/t/102load_classes.t
index e7e82f4..ef99b3a 100644 (file)
--- 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;