X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2Fobject_cache.t;h=c3499403cf629c46b1f9c581b4a720040240f054;hb=7e5a0e7c25474567b7f0b0daadba3f9b07297073;hp=896f8eb3a8a23d1f84b5bcd8ac768df6078521ea;hpb=50891152d0b24649bfd67bdba97feec86b11c064;p=dbsrgits%2FDBIx-Class.git diff --git a/t/cdbi/object_cache.t b/t/cdbi/object_cache.t index 896f8eb..c349940 100644 --- a/t/cdbi/object_cache.t +++ b/t/cdbi/object_cache.t @@ -1,16 +1,8 @@ use strict; +use warnings; use Test::More; $| = 1; -BEGIN { - eval "use DBIx::Class::CDBICompat;"; - if ($@) { - plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required'); - } - - eval "use DBD::SQLite"; - plan skip_all => 'needs DBD::SQLite for testing' if $@; -} INIT { use lib 't/cdbi/testlib'; @@ -41,14 +33,14 @@ ok +Film->create({ { Film->nocache(1); - + my $film1 = Film->retrieve( "This Is Spinal Tap" ); my $film2 = Film->retrieve( "This Is Spinal Tap" ); $film1->Director("Marty DiBergi"); is $film2->Director, "Rob Reiner", 'caching turned off'; - + $film1->discard_changes; } @@ -80,3 +72,5 @@ ok +Film->create({ $film1->discard_changes; } + +done_testing;