Commit | Line | Data |
6909ab3c |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | use Test::Exception; |
6 | use lib qw(t/lib); |
7 | use DBICTest::Schema::Artist; |
8 | |
9 | my $pkg = 'DBICTest::Schema::Artist'; |
10 | |
11 | for my $call (qw(has_many might_have has_one belongs_to)) { |
12 | { |
13 | local $TODO = 'stupid stupid heuristic - needs to die' |
14 | if $call eq 'belongs_to'; |
15 | |
16 | throws_ok { |
17 | $pkg->$call( foos => 'nonexistent bars', { foo => 'self.artistid' } ); |
18 | } qr/Malformed relationship condition key 'foo': must be prefixed with 'foreign.'/, |
19 | "Correct exception on $call with malformed foreign."; |
20 | } |
21 | |
22 | throws_ok { |
23 | $pkg->has_many( foos => 'nonexistent bars', { 'foreign.foo' => 'name' } ); |
24 | } qr/\QMalformed relationship condition value 'name': must be prefixed with 'self.'/, |
25 | "Correct exception on $call with malformed self."; |
26 | } |
27 | |
28 | done_testing; |