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' if $@;
20 plan skip_all => "Object cache is turned off"
21 if Film->isa("DBIx::Class::CDBICompat::NoObjectIndex");
27 Title => 'This Is Spinal Tap',
28 Director => 'Rob Reiner',
33 my $film1 = Film->retrieve( "This Is Spinal Tap" );
34 my $film2 = Film->retrieve( "This Is Spinal Tap" );
36 $film1->Director("Marty DiBergi");
37 is $film2->Director, "Marty DiBergi", 'retrieve returns the same object';
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, "Rob Reiner",
52 $film1->discard_changes;
58 my $film1 = Film->retrieve( "This Is Spinal Tap" );
59 my $film2 = Film->retrieve( "This Is Spinal Tap" );
61 $film1->Director("Marty DiBergi");
62 is $film2->Director, "Marty DiBergi",
65 $film1->discard_changes;
72 local $Class::DBI::Weaken_Is_Available = 0;
74 my $film1 = Film->retrieve( "This Is Spinal Tap" );
75 my $film2 = Film->retrieve( "This Is Spinal Tap" );
77 $film1->Director("Marty DiBergi");
78 is $film2->Director, "Rob Reiner",
79 'CDBI::Weaken_Is_Available turns off all caching';
81 $film1->discard_changes;