7 use lib 't/cdbi/testlib';
10 plan skip_all => "Object cache is turned off"
11 if Film->isa("DBIx::Class::CDBICompat::NoObjectIndex");
17 Title => 'This Is Spinal Tap',
18 Director => 'Rob Reiner',
23 my $film1 = Film->retrieve( "This Is Spinal Tap" );
24 my $film2 = Film->retrieve( "This Is Spinal Tap" );
26 $film1->Director("Marty DiBergi");
27 is $film2->Director, "Marty DiBergi", 'retrieve returns the same object';
29 $film1->discard_changes;
35 my $film1 = Film->retrieve( "This Is Spinal Tap" );
36 my $film2 = Film->retrieve( "This Is Spinal Tap" );
38 $film1->Director("Marty DiBergi");
39 is $film2->Director, "Rob Reiner",
42 $film1->discard_changes;
48 my $film1 = Film->retrieve( "This Is Spinal Tap" );
49 my $film2 = Film->retrieve( "This Is Spinal Tap" );
51 $film1->Director("Marty DiBergi");
52 is $film2->Director, "Marty DiBergi",
55 $film1->discard_changes;
62 local $Class::DBI::Weaken_Is_Available = 0;
64 my $film1 = Film->retrieve( "This Is Spinal Tap" );
65 my $film2 = Film->retrieve( "This Is Spinal Tap" );
67 $film1->Director("Marty DiBergi");
68 is $film2->Director, "Rob Reiner",
69 'CDBI::Weaken_Is_Available turns off all caching';
71 $film1->discard_changes;