select by id support

[dbsrgits/DBIx-Data-Store-old.git] / t / 01basic_collection.t

diff --git a/t/01basic_collection.t b/t/01basic_collection.t
index 94ccb0f..c987036 100644 (file)
--- a/t/01basic_collection.t
+++ b/t/01basic_collection.t
@@ -120,4 +120,17 @@ my ($fresh_pterry) = grep $_->{name} =~ /Pterry/, $set->flatten;
 
 is($fresh_pterry->{name}, 'Sir Pterry', 'Update persisted correctly');
 
+$set = make_set {}, {
+  select_single_sql => q{SELECT id, name FROM person WHERE id = ?},
+  select_single_argument_order => [ qw(id) ],
+};
+
+my $pterry_id = (grep $_->{name} eq 'Pterry', @expect)[0]->{id};
+
+$pterry = $set->get({ id => $pterry_id });
+
+is($pterry->{name}, 'Sir Pterry', 'Pterry retrieved by id');
+
+ok(!defined($set->get({ id => -1 })), 'undef on missing id');
+
 done_testing;