1 use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
10 use lib 't/cdbi/testlib';
14 Title => 'This Is Spinal Tap',
15 Director => 'Rob Reiner',
20 my $film1 = Film->retrieve( "This Is Spinal Tap" );
21 my $film2 = Film->retrieve( "This Is Spinal Tap" );
23 $film1->Director("Marty DiBergi");
24 is $film2->Director, "Marty DiBergi", 'retrieve returns the same object';
26 $film1->discard_changes;
32 my $film1 = Film->retrieve( "This Is Spinal Tap" );
33 my $film2 = Film->retrieve( "This Is Spinal Tap" );
35 $film1->Director("Marty DiBergi");
36 is $film2->Director, "Rob Reiner",
39 $film1->discard_changes;
45 my $film1 = Film->retrieve( "This Is Spinal Tap" );
46 my $film2 = Film->retrieve( "This Is Spinal Tap" );
48 $film1->Director("Marty DiBergi");
49 is $film2->Director, "Marty DiBergi",
52 $film1->discard_changes;
59 local $Class::DBI::Weaken_Is_Available = 0;
61 my $film1 = Film->retrieve( "This Is Spinal Tap" );
62 my $film2 = Film->retrieve( "This Is Spinal Tap" );
64 $film1->Director("Marty DiBergi");
65 is $film2->Director, "Rob Reiner",
66 'CDBI::Weaken_Is_Available turns off all caching';
68 $film1->discard_changes;