update command

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

diff --git a/t/01basic_collection.t b/t/01basic_collection.t
index 65e55ce..94ccb0f 100644 (file)
--- a/t/01basic_collection.t
+++ b/t/01basic_collection.t
@@ -103,4 +103,21 @@ $set = make_set;
 
 is_deeply([ sort_set $set->flatten ], \@expect, 'new row still gone on reload');
 
+$set = make_set {}, {
+  update_sql => q{UPDATE person SET name = ? WHERE id = ?},
+  update_argument_order => [ qw(name id) ]
+};
+
+my ($pterry) = grep $_->{name} eq 'Pterry', $set->flatten;
+
+$pterry->{name} = 'Sir Pterry'; # http://xrl.us/bgse8s
+
+$set->_update_in_store($pterry);
+
+$set = make_set;
+
+my ($fresh_pterry) = grep $_->{name} =~ /Pterry/, $set->flatten;
+
+is($fresh_pterry->{name}, 'Sir Pterry', 'Update persisted correctly');
+
 done_testing;