From: Peter Rabbitson Date: Thu, 11 Jun 2009 20:09:55 +0000 (+0000) Subject: Adjust tests for the DT::F::MySQL -> DT::F::SQLite change X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9b44fdf9ac050f3210171bc1585f3bc8b22707ae;p=dbsrgits%2FDBIx-Class-Historic.git Adjust tests for the DT::F::MySQL -> DT::F::SQLite change --- diff --git a/t/60core.t b/t/60core.t index 629d49d..b3eda4a 100644 --- a/t/60core.t +++ b/t/60core.t @@ -11,7 +11,7 @@ my $schema = DBICTest->init_schema(); plan tests => 106; -eval { require DateTime::Format::MySQL }; +eval { require DateTime::Format::SQLite }; my $NO_DTFM = $@ ? 1 : 0; my @art = $schema->resultset("Artist")->search({ }, { order_by => 'name DESC'}); @@ -195,7 +195,7 @@ is( $schema->resultset("Track")->find(100)->title, 'Insert or Update - updated', # get_inflated_columns w/relation and accessor alias SKIP: { - skip "This test requires DateTime::Format::MySQL", 8 if $NO_DTFM; + skip "This test requires DateTime::Format::SQLite", 8 if $NO_DTFM; isa_ok($new->updated_date, 'DateTime', 'have inflated object via accessor'); my %tdata = $new->get_inflated_columns; @@ -389,7 +389,7 @@ lives_ok (sub { my $newlink = $newbook->link}, "stringify to false value doesn't # test get_inflated_columns with objects SKIP: { - skip "This test requires DateTime::Format::MySQL", 5 if $NO_DTFM; + skip "This test requires DateTime::Format::SQLite", 5 if $NO_DTFM; my $event = $schema->resultset('Event')->search->first; my %edata = $event->get_inflated_columns; is($edata{'id'}, $event->id, 'got id');