Commit | Line | Data |
76cc4546 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | use Test::Exception; |
6 | |
7 | use lib qw(t/lib); |
8 | use DBICTest; |
9 | |
10 | my $schema = DBICTest->init_schema(); |
11 | my $rs = $schema->resultset('Artist'); |
12 | |
13 | for my $id ( |
14 | 2, |
15 | \' = 2 ', |
16 | \[ '= ?', 2 ], |
17 | ) { |
18 | lives_ok { |
19 | is( $rs->find({ artistid => $id })->id, 2 ) |
20 | } "Correctly found artist with id of @{[ explain $id ]}"; |
21 | } |
22 | |
23 | for my $id ( |
24 | 2, |
25 | \'2', |
26 | \[ '?', 2 ], |
27 | ) { |
28 | my $cond = { artistid => { '=', $id } }; |
29 | lives_ok { |
30 | is( $rs->find($cond)->id, 2 ) |
31 | } "Correctly found artist with id of @{[ explain $cond ]}"; |
32 | } |
33 | |
34 | done_testing; |