|
Lines 35-41
my $builder = t::lib::TestBuilder->new;
Link Here
|
| 35 |
|
35 |
|
| 36 |
subtest 'store() tests' => sub { |
36 |
subtest 'store() tests' => sub { |
| 37 |
|
37 |
|
| 38 |
plan tests => 17; |
38 |
plan tests => 18; |
| 39 |
|
39 |
|
| 40 |
$schema->storage->txn_begin; |
40 |
$schema->storage->txn_begin; |
| 41 |
|
41 |
|
|
Lines 114-119
subtest 'store() tests' => sub {
Link Here
|
| 114 |
}, |
114 |
}, |
| 115 |
qr{a foreign key constraint fails} |
115 |
qr{a foreign key constraint fails} |
| 116 |
); |
116 |
); |
|
|
117 |
|
| 118 |
is( "$@", "Invalid parameter passed, patron_id=$deleted_id does not exist" ); |
| 117 |
is( $@->message, 'Broken FK constraint', 'Exception message is correct' ); |
119 |
is( $@->message, 'Broken FK constraint', 'Exception message is correct' ); |
| 118 |
is( $@->broken_fk, 'patron_id', 'Exception field is correct' ); |
120 |
is( $@->broken_fk, 'patron_id', 'Exception field is correct' ); |
| 119 |
|
121 |
|
| 120 |
- |
|
|