From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 4 May 2010 07:44:47 +0000 (+0000)
Subject: Test for RT#56257
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d24080672cef48eace7f3a16f44fec9319e17ae5;p=dbsrgits%2FDBIx-Class-Historic.git

Test for RT#56257
---

diff --git a/t/72pg.t b/t/72pg.t
index 542b915..e5d1bef 100644
--- 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;