[Bast-commits] r8590 - DBIx-Class/0.08/branches/storage-interbase/t

[moritz at dev.catalyst.perl.org]

Author: moritz
Date: 2010-02-08 13:32:26 +0000 (Mon, 08 Feb 2010)
New Revision: 8590

Modified:
   DBIx-Class/0.08/branches/storage-interbase/t/750firebird.t
Log:
test ->update({...}) for firebird

Modified: DBIx-Class/0.08/branches/storage-interbase/t/750firebird.t
===================================================================
--- DBIx-Class/0.08/branches/storage-interbase/t/750firebird.t	2010-02-08 13:27:39 UTC (rev 8589)
+++ DBIx-Class/0.08/branches/storage-interbase/t/750firebird.t	2010-02-08 13:32:26 UTC (rev 8590)
@@ -111,6 +111,17 @@
 # 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( {},
     {