[svn:dbi] r14931 - in dbi/trunk: . t

[timbo]

Author: timbo
Date: Wed Sep 14 02:01:06 2011
New Revision: 14931

Modified:
   dbi/trunk/dbixs_rev.h
   dbi/trunk/t/10examp.t

Log:
Add some more fetchall_arrayref(..., $maxrows) tests re RT68126

Modified: dbi/trunk/dbixs_rev.h
==============================================================================
--- dbi/trunk/dbixs_rev.h       (original)
+++ dbi/trunk/dbixs_rev.h       Wed Sep 14 02:01:06 2011
@@ -1,3 +1,3 @@
-/* Sun Feb  6 12:56:22 2011 */
+/* Tue Feb 22 17:17:57 2011 */
 /* Code modified since last checkin */
-#define DBIXS_REVISION 14685
+#define DBIXS_REVISION 14701

Modified: dbi/trunk/t/10examp.t
==============================================================================
--- dbi/trunk/t/10examp.t       (original)
+++ dbi/trunk/t/10examp.t       Wed Sep 14 02:01:06 2011
@@ -14,7 +14,7 @@
 require File::Spec;
 require VMS::Filespec if $^O eq 'VMS';
 
-use Test::More tests => 212;
+use Test::More tests => 215;
 
 do {
     # provide some protection against growth in size of '.' during the test
@@ -253,6 +253,15 @@
 ok($r);
 is_deeply($r, [[$row_a[0]]]);
 
+$r = $csr_b->fetchall_arrayref([], 1);
+is @$r, 1, 'should fetch one row';
+
+$r = $csr_b->fetchall_arrayref([], 99999);
+ok @$r, 'should fetch all the remaining rows';
+
+$r = $csr_b->fetchall_arrayref([], 99999);
+is $r, undef, 'should return undef as there are no more rows';
+
 # ---
 
 print "selectrow_array\n";
@@ -319,7 +328,7 @@
 print "selectcol_arrayref column slice\n";
 $r = $dbh->selectcol_arrayref($std_sql, { Columns => [3,2] }, $dir);
 ok($r);
-# use Data::Dumper; warn Dumper([\@row_b, $r]);
+# warn Dumper([\@row_b, $r]);
 ok(@$r == $rows * 2);
 ok($r->[0] eq $row_b[2]);
 ok($r->[1] eq $row_b[1]);