use Test::More;
$| = 1;
-BEGIN {
- eval "use DBIx::Class::CDBICompat;";
- if ($@) {
- plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
- }
-}
INIT {
use lib 't/cdbi/testlib';
{
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;
}
$film1->discard_changes;
}
+
+done_testing;