[Bast-commits] r9296 - DBIx-Class/0.08/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-05-04 08:44:47 +0100 (Tue, 04 May 2010)
New Revision: 9296

Modified:
   DBIx-Class/0.08/trunk/t/72pg.t
Log:
Test for RT#56257

Modified: DBIx-Class/0.08/trunk/t/72pg.t
===================================================================
--- DBIx-Class/0.08/trunk/t/72pg.t	2010-05-03 23:04:32 UTC (rev 9295)
+++ DBIx-Class/0.08/trunk/t/72pg.t	2010-05-04 07:44:47 UTC (rev 9296)
@@ -238,12 +238,15 @@
         $schema2->source("Artist")->name("dbic_t_schema.artist");
 
         $schema->txn_do( sub {
-          my $artist = $schema->resultset('Artist')->search(
+          my $rs = $schema->resultset('Artist')->search(
               {
                   artistid => 1
               },
               $t->{update_lock} ? { for => 'update' } : {}
-          )->first;
+          );
+          ok ($rs->count, 'Count works');
+
+          my $artist = $rs->next;
           is($artist->artistid, 1, "select returns artistid = 1");
 
           $timed_out = 0;