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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-02-08 13:33:09 +0000 (Mon, 08 Feb 2010)
New Revision: 8591

Modified:
   DBIx-Class/0.08/branches/storage-interbase/t/750firebird.t
Log:
test update

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:32:26 UTC (rev 8590)
+++ DBIx-Class/0.08/branches/storage-interbase/t/750firebird.t	2010-02-08 13:33:09 UTC (rev 8591)
@@ -89,6 +89,12 @@
   $new->discard_changes;
   is($new->artistid, 66, 'Explicit PK assigned');
 
+  lives_ok {
+    $new->update({ name => 'baz' })
+  } 'update survived';
+  $new->discard_changes;
+  is $new->name, 'baz', 'row updated';
+
 # test populate
   lives_ok (sub {
     my @pop;