X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2F24-meta_info.t;h=32cc5cabcf222f6ef3436ccf1e116764fbba11e2;hb=8273e845426f0187b4ad6c4a1b42286fa09a648f;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..32cc5ca 100644 --- a/t/cdbi/24-meta_info.t +++ b/t/cdbi/24-meta_info.t @@ -2,13 +2,10 @@ use strict; use Test::More; BEGIN { - eval "use DBIx::Class::CDBICompat;"; - plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@" + eval "use DBIx::Class::CDBICompat;use Time::Piece;"; + plan skip_all => "Time::Piece, Class::Trigger and DBIx::ContextualFetch required: $@" if $@; - plan skip_all => "Time::Piece required for this test" - unless eval { require Time::Piece }; - plan tests => 12; } @@ -18,8 +15,8 @@ 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',