t/05multipk.t

   1 use Test::More;
   2
   3 plan tests => 3;
   4
   5 use lib qw(t/lib);
   6
   7 use_ok('DBICTest');
   8
   9 ok(DBICTest::FourKeys->retrieve(1,2,3,4), "retrieve multiple pks without hash");
  10 ok(DBICTest::FourKeys->retrieve(5,4,3,6), "retrieve multiple pks without hash");