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