6 eval "use DBIx::Class::CDBICompat;";
8 plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
11 eval "use DBD::SQLite";
12 plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 5);
21 Title => 'This Is Spinal Tap',
22 Director => 'Rob Reiner',
27 my $film1 = Film->retrieve( "This Is Spinal Tap" );
28 my $film2 = Film->retrieve( "This Is Spinal Tap" );
30 $film1->Director("Marty DiBergi");
31 is $film2->Director, "Marty DiBergi", 'retrieve returns the same object';
33 $film1->discard_changes;
39 my $film1 = Film->retrieve( "This Is Spinal Tap" );
40 my $film2 = Film->retrieve( "This Is Spinal Tap" );
42 $film1->Director("Marty DiBergi");
43 is $film2->Director, "Rob Reiner",
46 $film1->discard_changes;
52 my $film1 = Film->retrieve( "This Is Spinal Tap" );
53 my $film2 = Film->retrieve( "This Is Spinal Tap" );
55 $film1->Director("Marty DiBergi");
56 is $film2->Director, "Marty DiBergi",
59 $film1->discard_changes;
66 local $Class::DBI::Weaken_Is_Available = 0;
68 my $film1 = Film->retrieve( "This Is Spinal Tap" );
69 my $film2 = Film->retrieve( "This Is Spinal Tap" );
71 $film1->Director("Marty DiBergi");
72 is $film2->Director, "Rob Reiner",
73 'CDBI::Weaken_Is_Available turns off all caching';
75 $film1->discard_changes;