Commit | Line | Data |
---|---|---|
0567538f | 1 | sub run_tests { |
2 | ||
1f6715ab | 3 | plan tests => 3; |
0567538f | 4 | |
5 | ok(DBICTest::FourKeys->find(1,2,3,4), "find multiple pks without hash"); | |
6 | ok(DBICTest::FourKeys->find(5,4,3,6), "find multiple pks without hash"); | |
7 | ||
1f6715ab | 8 | is(DBICTest::FourKeys->find(1,2,3,4)->ID, 'DBICTest::FourKeys|bar=2|foo=1|goodbye=4|hello=3', 'unique object id ok for multiple pks'); |
9 | ||
0567538f | 10 | } |
11 | ||
12 | 1; |