Commit | Line | Data |
0567538f |
1 | sub run_tests { |
2 | |
716b3d29 |
3 | plan tests => 4; |
4 | $artist = DBICTest::Artist->find(1); |
5 | ok($artist->find_related('twokeys', {cd => 1}), "find multiple pks using relationships + args"); |
3712e4f4 |
6 | ok(DBICTest->class("FourKeys")->find(1,2,3,4), "find multiple pks without hash"); |
7 | ok(DBICTest->class("FourKeys")->find(5,4,3,6), "find multiple pks without hash"); |
3712e4f4 |
8 | is(DBICTest->class("FourKeys")->find(1,2,3,4)->ID, 'DBICTest::FourKeys|bar=2|foo=1|goodbye=4|hello=3', 'unique object id ok for multiple pks'); |
1f6715ab |
9 | |
0567538f |
10 | } |
11 | |
12 | 1; |