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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-05-14 10:14:19 +0000 (Thu, 14 May 2009)
New Revision: 6255

Modified:
   DBIx-Class/0.08/trunk/t/71mysql.t
   DBIx-Class/0.08/trunk/t/93nobindvars.t
Log:
Clarify test

Modified: DBIx-Class/0.08/trunk/t/71mysql.t
===================================================================
--- DBIx-Class/0.08/trunk/t/71mysql.t	2009-05-14 10:12:44 UTC (rev 6254)
+++ DBIx-Class/0.08/trunk/t/71mysql.t	2009-05-14 10:14:19 UTC (rev 6255)
@@ -54,7 +54,7 @@
       offset => 2,
       order_by => 'artistid' }
 );
-is( $it->count, 3, "LIMIT count ok" );
+is( $it->count, 3, "LIMIT count ok" );  # ask for 3 rows out of 7 artists
 is( $it->next->name, "Artist 2", "iterator->next ok" );
 $it->next;
 $it->next;

Modified: DBIx-Class/0.08/trunk/t/93nobindvars.t
===================================================================
--- DBIx-Class/0.08/trunk/t/93nobindvars.t	2009-05-14 10:12:44 UTC (rev 6254)
+++ DBIx-Class/0.08/trunk/t/93nobindvars.t	2009-05-14 10:14:19 UTC (rev 6255)
@@ -57,7 +57,7 @@
       offset => 2,
       order_by => 'artistid' }
 );
-is( $it->count, 3, "LIMIT count ok" );
+is( $it->count, 3, "LIMIT count ok" );  # ask for 3 rows out of 7 artists
 is( $it->next->name, "Artist 2", "iterator->next ok" );
 $it->next;
 $it->next;