X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=t%2F94versioning.t;h=a21141a65fb93043ac472fe28f7cec03f2d2c6a0;hp=2e0d18e7e8c3d60bc04b63aa7363128d752456a8;hb=68de943862f06cabd397d2e74d12cd9cdc999779;hpb=67b79ae10d09c925c0e120e9de21758f388c8e70 diff --git a/t/94versioning.t b/t/94versioning.t index 2e0d18e..a21141a 100644 --- a/t/94versioning.t +++ b/t/94versioning.t @@ -1,13 +1,10 @@ use strict; use warnings; + use Test::More; use Test::Warn; use Test::Exception; -use Path::Class; -use File::Copy; - -#warn "$dsn $user $pass"; my ($dsn, $user, $pass); BEGIN { @@ -16,16 +13,16 @@ BEGIN { plan skip_all => 'Set $ENV{DBICTEST_MYSQL_DSN}, _USER and _PASS to run this test' unless ($dsn); - eval { require Time::HiRes } - || plan skip_all => 'Test needs Time::HiRes'; - Time::HiRes->import(qw/time sleep/); - require DBIx::Class; plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for ('deploy') unless DBIx::Class::Optional::Dependencies->req_ok_for ('deploy') } +use Path::Class; +use File::Copy; +use Time::HiRes qw/time sleep/; + use lib qw(t/lib); use DBICTest; # do not remove even though it is not used