Commit | Line | Data |
5a66aa65 |
1 | use strict; |
2 | use Test::More; |
3 | |
4 | #---------------------------------------------------------------------- |
5 | # Test database failures |
6 | #---------------------------------------------------------------------- |
7 | |
8 | BEGIN { |
9 | eval "use DBD::SQLite"; |
10 | plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 7); |
11 | } |
12 | |
13 | use lib 't/testlib'; |
14 | use Film; |
15 | |
16 | Film->create_test_film; |
17 | |
18 | { |
19 | my $btaste = Film->retrieve('Bad Taste'); |
20 | isa_ok $btaste, 'Film', "We have Bad Taste"; |
21 | { |
22 | no warnings 'redefine'; |
23 | local *DBIx::ContextualFetch::st::execute = sub { die "Database died" }; |
24 | eval { $btaste->delete }; |
25 | ::like $@, qr/Database died/s, "We failed"; |
26 | } |
27 | my $still = Film->retrieve('Bad Taste'); |
28 | isa_ok $btaste, 'Film', "We still have Bad Taste"; |
29 | } |
30 | |
31 | { |
32 | my $btaste = Film->retrieve('Bad Taste'); |
33 | isa_ok $btaste, 'Film', "We have Bad Taste"; |
34 | $btaste->numexplodingsheep(10); |
35 | { |
36 | no warnings 'redefine'; |
37 | local *DBIx::ContextualFetch::st::execute = sub { die "Database died" }; |
38 | eval { $btaste->update }; |
39 | ::like $@, qr/Database died/s, "We failed"; |
40 | } |
41 | $btaste->discard_changes; |
42 | my $still = Film->retrieve('Bad Taste'); |
43 | isa_ok $btaste, 'Film', "We still have Bad Taste"; |
44 | is $btaste->numexplodingsheep, 1, "with 1 sheep"; |
45 | } |
46 | |
47 | if (0) { |
48 | my $sheep = Film->maximum_value_of('numexplodingsheep'); |
49 | is $sheep, 1, "1 exploding sheep"; |
50 | { |
51 | local *DBIx::ContextualFetch::st::execute = sub { die "Database died" }; |
52 | my $sheep = eval { Film->maximum_value_of('numexplodingsheep') }; |
53 | ::like $@, qr/select.*Database died/s, |
54 | "Handle database death in single value select"; |
55 | } |
56 | } |
57 | |