X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=t%2Finflate%2Fdatetime_sybase.t;h=ab641361adf0634666ee4853f5c628b455f020e1;hp=f1ff6fcc9cea2d67c6ddd5f77d977030c3f9e999;hb=68de943862f06cabd397d2e74d12cd9cdc999779;hpb=67b79ae10d09c925c0e120e9de21758f388c8e70 diff --git a/t/inflate/datetime_sybase.t b/t/inflate/datetime_sybase.t index f1ff6fc..ab64136 100644 --- a/t/inflate/datetime_sybase.t +++ b/t/inflate/datetime_sybase.t @@ -1,5 +1,5 @@ use strict; -use warnings; +use warnings; use Test::More; use Test::Exception; @@ -12,13 +12,11 @@ if (not ($dsn && $user)) { plan skip_all => 'Set $ENV{DBICTEST_SYBASE_DSN}, _USER and _PASS to run this test' . "\nWarning: This test drops and creates a table called 'track'"; -} else { - eval "use DateTime; use DateTime::Format::Sybase;"; - if ($@) { - plan skip_all => 'needs DateTime and DateTime::Format::Sybase for testing'; - } } +plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for ('test_rdbms_ase') + unless DBIx::Class::Optional::Dependencies->req_ok_for ('test_rdbms_ase'); + my @storage_types = ( 'DBI::Sybase::ASE', 'DBI::Sybase::ASE::NoBindVars', @@ -46,7 +44,7 @@ for my $storage_type (@storage_types) { # minute precision ['SMALLDATETIME', 'small_dt', '2004-08-21T14:36:00.000Z'], ); - + for my $dt_type (@dt_types) { my ($type, $col, $sample_dt) = @$dt_type;