Commit | Line | Data |
8169206c |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | use Test::Exception; |
6 | |
7 | use lib 't/lib'; |
8 | use DBICTest; |
9 | |
10 | my $schema = DBICTest->init_schema(); |
11 | |
12 | for ( |
13 | { year => [1,2] }, |
14 | { year => ['-and',1,2] }, |
15 | { -or => [ year => 1, year => 2 ] }, |
16 | { -and => [ year => 1, year => 2 ] }, |
17 | ) { |
18 | throws_ok { |
19 | $schema->source('Track')->_resolve_relationship_condition( |
20 | rel_name => 'cd_cref_cond', |
21 | self_alias => 'me', |
22 | foreign_alias => 'cd', |
23 | foreign_values => $_ |
24 | ); |
25 | } qr/ |
26 | \Qis not a column on related source 'CD'\E |
27 | | |
28 | \QValue supplied for '...{foreign_values}{year}' is not a direct equivalence expression\E |
29 | /x; |
30 | } |
31 | |
32 | done_testing; |