Test for RT#56257
Peter Rabbitson [Tue, 4 May 2010 07:44:47 +0000 (07:44 +0000)]
t/72pg.t

index 542b915..e5d1bef 100644 (file)
--- a/t/72pg.t
+++ b/t/72pg.t
@@ -238,12 +238,15 @@ for my $use_insert_returning ($test_server_supports_insert_returning
         $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;