From: Moritz Lenz <moritz@faui2k3.org>
Date: Mon, 8 Feb 2010 13:32:26 +0000 (+0000)
Subject: test ->update({...}) for firebird
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=72537d318df2a57e647fe9a749ed2dedfb4a77a5;p=dbsrgits%2FDBIx-Class-Historic.git

test ->update({...}) for firebird
---

diff --git a/t/750firebird.t b/t/750firebird.t
index 0c98f95..d7f80cf 100644
--- a/t/750firebird.t
+++ b/t/750firebird.t
@@ -111,6 +111,17 @@ EOF
 # count what we did so far
   is ($ars->count, 6, 'Simple count works');
 
+# test UPDATE
+  lives_ok {
+    $schema->resultset('Artist')
+           ->search({name => 'foo'})
+           ->update({rank => 4 });
+  } 'Can update a column';
+
+  my ($updated) = $schema->resultset('Artist')->search({name => 'foo'});
+  is $updated->rank, 4, 'and the update made it to the database';
+
+
 # test LIMIT support
   my $lim = $ars->search( {},
     {