7 use lib 't/cdbi/testlib';
11 plan skip_all => "Object cache is turned off"
12 if Film->isa("DBIx::Class::CDBICompat::NoObjectIndex");
18 Title => 'This Is Spinal Tap',
19 Director => 'Rob Reiner',
24 my $film1 = Film->retrieve( "This Is Spinal Tap" );
25 my $film2 = Film->retrieve( "This Is Spinal Tap" );
27 $film1->Director("Marty DiBergi");
28 is $film2->Director, "Marty DiBergi", 'retrieve returns the same object';
30 $film1->discard_changes;
36 my $film1 = Film->retrieve( "This Is Spinal Tap" );
37 my $film2 = Film->retrieve( "This Is Spinal Tap" );
39 $film1->Director("Marty DiBergi");
40 is $film2->Director, "Rob Reiner",
43 $film1->discard_changes;
49 my $film1 = Film->retrieve( "This Is Spinal Tap" );
50 my $film2 = Film->retrieve( "This Is Spinal Tap" );
52 $film1->Director("Marty DiBergi");
53 is $film2->Director, "Marty DiBergi",
56 $film1->discard_changes;
63 local $Class::DBI::Weaken_Is_Available = 0;
65 my $film1 = Film->retrieve( "This Is Spinal Tap" );
66 my $film2 = Film->retrieve( "This Is Spinal Tap" );
68 $film1->Director("Marty DiBergi");
69 is $film2->Director, "Rob Reiner",
70 'CDBI::Weaken_Is_Available turns off all caching';
72 $film1->discard_changes;