1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
2 use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
11 use lib 't/cdbi/testlib';
15 Title => 'This Is Spinal Tap',
16 Director => 'Rob Reiner',
21 my $film1 = Film->retrieve( "This Is Spinal Tap" );
22 my $film2 = Film->retrieve( "This Is Spinal Tap" );
24 $film1->Director("Marty DiBergi");
25 is $film2->Director, "Marty DiBergi", 'retrieve returns the same object';
27 $film1->discard_changes;
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, "Rob Reiner",
40 $film1->discard_changes;
46 my $film1 = Film->retrieve( "This Is Spinal Tap" );
47 my $film2 = Film->retrieve( "This Is Spinal Tap" );
49 $film1->Director("Marty DiBergi");
50 is $film2->Director, "Marty DiBergi",
53 $film1->discard_changes;
60 local $Class::DBI::Weaken_Is_Available = 0;
62 my $film1 = Film->retrieve( "This Is Spinal Tap" );
63 my $film2 = Film->retrieve( "This Is Spinal Tap" );
65 $film1->Director("Marty DiBergi");
66 is $film2->Director, "Rob Reiner",
67 'CDBI::Weaken_Is_Available turns off all caching';
69 $film1->discard_changes;