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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-02-13 20:18:27 +0000 (Sat, 13 Feb 2010)
New Revision: 8696

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

Modified: DBIx-Class/0.08/branches/storage-interbase/t/750firebird.t
===================================================================
--- DBIx-Class/0.08/branches/storage-interbase/t/750firebird.t	2010-02-13 20:15:46 UTC (rev 8695)
+++ DBIx-Class/0.08/branches/storage-interbase/t/750firebird.t	2010-02-13 20:18:27 UTC (rev 8696)
@@ -155,8 +155,8 @@
     my $rs1 = $ars->search({}, { order_by => { -asc  => 'artistid' }});
     my $rs2 = $ars->search({}, { order_by => { -desc => 'artistid' }});
 
-    is $rs1->first->artistid, 1,   'multiple cursors';
-    is $rs2->first->artistid, 102, 'multiple cursors';
+    is $rs1->next->artistid, 1,   'multiple cursors';
+    is $rs2->next->artistid, 102, 'multiple cursors';
   }
 
 # test empty insert