Commit | Line | Data |
c0329273 |
1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | |
34b6b86f |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
7 | use Test::Exception; |
8 | |
c0329273 |
9 | |
34b6b86f |
10 | use DBICTest; |
11 | |
12 | my $schema = DBICTest->init_schema(); |
13 | |
14 | my $cd = $schema->resultset('CD')->search ({}, { columns => ['year'], rows => 1 })->single; |
15 | |
16 | |
17 | throws_ok ( |
18 | sub { $cd->tracks }, |
19 | qr/Unable to resolve relationship .+ column .+ not loaded from storage/, |
20 | 'Correct exception on nonresolvable object-based condition' |
21 | ); |
22 | |
23 | done_testing; |