6 eval "use DBIx::Class::CDBICompat;";
8 plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
13 use lib 't/cdbi/testlib';
17 plan skip_all => "Object cache is turned off"
18 if Film->isa("DBIx::Class::CDBICompat::NoObjectIndex");
24 Title => 'This Is Spinal Tap',
25 Director => 'Rob Reiner',
30 my $film1 = Film->retrieve( "This Is Spinal Tap" );
31 my $film2 = Film->retrieve( "This Is Spinal Tap" );
33 $film1->Director("Marty DiBergi");
34 is $film2->Director, "Marty DiBergi", 'retrieve returns the same object';
36 $film1->discard_changes;
42 my $film1 = Film->retrieve( "This Is Spinal Tap" );
43 my $film2 = Film->retrieve( "This Is Spinal Tap" );
45 $film1->Director("Marty DiBergi");
46 is $film2->Director, "Rob Reiner",
49 $film1->discard_changes;
55 my $film1 = Film->retrieve( "This Is Spinal Tap" );
56 my $film2 = Film->retrieve( "This Is Spinal Tap" );
58 $film1->Director("Marty DiBergi");
59 is $film2->Director, "Marty DiBergi",
62 $film1->discard_changes;
69 local $Class::DBI::Weaken_Is_Available = 0;
71 my $film1 = Film->retrieve( "This Is Spinal Tap" );
72 my $film2 = Film->retrieve( "This Is Spinal Tap" );
74 $film1->Director("Marty DiBergi");
75 is $film2->Director, "Rob Reiner",
76 'CDBI::Weaken_Is_Available turns off all caching';
78 $film1->discard_changes;