X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2F24-meta_info.t;h=f2fc57ff21ede229d6ab3186ee0dd321edc5f3d5;hb=4a233f3019d2baa4bf2abee0c873c74d5cdf3a11;hp=7a269bd212d618437e1ddd53979d311d31cb38e2;hpb=50891152d0b24649bfd67bdba97feec86b11c064;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/cdbi/24-meta_info.t b/t/cdbi/24-meta_info.t
index 7a269bd..f2fc57f 100644
--- a/t/cdbi/24-meta_info.t
+++ b/t/cdbi/24-meta_info.t
@@ -1,25 +1,20 @@
 use strict;
+use warnings;
 use Test::More;
+use Test::Warn;
 
-BEGIN {
-  eval "use DBIx::Class::CDBICompat;";
-  plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@"
-    if $@;
-
-  plan skip_all => "Time::Piece required for this test"
-    unless eval { require Time::Piece };
-
-  plan tests => 12;
-}
+use lib 't/cdbi/testlib';
+use DBIC::Test::SQLite (); # this will issue the necessary SKIPs on missing reqs
 
-use Test::Warn;
+eval { require Time::Piece }
+  or plan skip_all => 'Time::Piece required for this test';
 
 package Temp::DBI;
 use base qw(DBIx::Class::CDBICompat);
 Temp::DBI->columns(All => qw(id date));
 
-my $strptime_inflate = sub { 
-    Time::Piece->strptime(shift, "%Y-%m-%d") 
+my $strptime_inflate = sub {
+    Time::Piece->strptime(shift, "%Y-%m-%d")
 };
 Temp::DBI->has_a(
     date => 'Time::Piece',
@@ -76,3 +71,5 @@ package main;
     is $date->accessor,         'date';
     is $date->args->{inflate},  $strptime_inflate;
 }
+
+done_testing;