X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Frun%2F146db2_400.tl;h=6c2344cd60ef414af4434d64ce411ce144ecc38f;hb=70350518bbb31e5ac22fb3cb73d3e17409fcd332;hp=ac6cd479fce00ad62cbd2720c2ccfbd39f782ecc;hpb=4b8dcc58874223164d4a379a5db4a9cb737d7c7a;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/run/146db2_400.tl b/t/run/146db2_400.tl
index ac6cd47..6c2344c 100644
--- a/t/run/146db2_400.tl
+++ b/t/run/146db2_400.tl
@@ -1,5 +1,9 @@
-sub run_tests {
-my $schema = shift;
+use strict;
+use warnings;  
+
+use Test::More;
+use lib qw(t/lib);
+use DBICTest;
 
 my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_DB2_400_${_}" } qw/DSN USER PASS/};
 
@@ -69,6 +73,3 @@ is_deeply($type_info, $test_type_info, 'columns_info_for - column data types');
 # clean up our mess
 $dbh->do("DROP TABLE artist");
 
-}
-
-1;