1 use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
8 #----------------------------------------------------------------------
9 # Test database failures
10 #----------------------------------------------------------------------
12 use lib 't/cdbi/testlib';
15 Film->create_test_film;
18 my $btaste = Film->retrieve('Bad Taste');
19 isa_ok $btaste, 'Film', "We have Bad Taste";
21 no warnings 'redefine';
22 local *DBIx::ContextualFetch::st::execute = sub { die "Database died" };
23 eval { $btaste->delete };
24 ::like $@, qr/Database died/s, "We failed";
26 my $still = Film->retrieve('Bad Taste');
27 isa_ok $btaste, 'Film', "We still have Bad Taste";
31 my $btaste = Film->retrieve('Bad Taste');
32 isa_ok $btaste, 'Film', "We have Bad Taste";
33 $btaste->numexplodingsheep(10);
35 no warnings 'redefine';
36 local *DBIx::ContextualFetch::st::execute = sub { die "Database died" };
37 eval { $btaste->update };
38 ::like $@, qr/Database died/s, "We failed";
40 $btaste->discard_changes;
41 my $still = Film->retrieve('Bad Taste');
42 isa_ok $btaste, 'Film', "We still have Bad Taste";
43 is $btaste->numexplodingsheep, 1, "with 1 sheep";
47 my $sheep = Film->maximum_value_of('numexplodingsheep');
48 is $sheep, 1, "1 exploding sheep";
50 local *DBIx::ContextualFetch::st::execute = sub { die "Database died" };
51 my $sheep = eval { Film->maximum_value_of('numexplodingsheep') };
52 ::like $@, qr/select.*Database died/s,
53 "Handle database death in single value select";