8 use lib 't/cdbi/testlib';
12 plan skip_all => "Object cache is turned off"
13 if Film->isa("DBIx::Class::CDBICompat::NoObjectIndex");
19 Title => 'This Is Spinal Tap',
20 Director => 'Rob Reiner',
25 my $film1 = Film->retrieve( "This Is Spinal Tap" );
26 my $film2 = Film->retrieve( "This Is Spinal Tap" );
28 $film1->Director("Marty DiBergi");
29 is $film2->Director, "Marty DiBergi", 'retrieve returns the same object';
31 $film1->discard_changes;
37 my $film1 = Film->retrieve( "This Is Spinal Tap" );
38 my $film2 = Film->retrieve( "This Is Spinal Tap" );
40 $film1->Director("Marty DiBergi");
41 is $film2->Director, "Rob Reiner",
44 $film1->discard_changes;
50 my $film1 = Film->retrieve( "This Is Spinal Tap" );
51 my $film2 = Film->retrieve( "This Is Spinal Tap" );
53 $film1->Director("Marty DiBergi");
54 is $film2->Director, "Marty DiBergi",
57 $film1->discard_changes;
64 local $Class::DBI::Weaken_Is_Available = 0;
66 my $film1 = Film->retrieve( "This Is Spinal Tap" );
67 my $film2 = Film->retrieve( "This Is Spinal Tap" );
69 $film1->Director("Marty DiBergi");
70 is $film2->Director, "Rob Reiner",
71 'CDBI::Weaken_Is_Available turns off all caching';
73 $film1->discard_changes;