# HG changeset patch
# User Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>
# Date 1608114706 -3600
# Node ID 536255410444abfa4978b1865fcf776f663d9056
# Parent  a0b0ed79f8abc9a01801e57c533012d0cf238355
Test fetchrow_array

diff --git a/DBD/t/15many.t b/DBD/t/15many.t
--- a/DBD/t/15many.t
+++ b/DBD/t/15many.t
@@ -16,7 +16,7 @@ use DBD_TEST();
 use Test::More;
 
 if (defined $ENV{DBI_DSN}) {
-  plan tests => 4;
+  plan tests => 5;
 } else {
   plan skip_all => 'Cannot test without DB info';
 }
@@ -44,7 +44,17 @@ ok($count == 1000, 'got 1000 rows as req
 $count = scalar(@{$r});
 ok($count % 1000 == 0, "got $count rows");
 
-
-
+# fetch some data using fetchrow_array
+# fetch a lot of rows and see we don't get disconnected halfway, see Bug 2897
+$query = qq{
+	SELECT value as i, value as j, value as k FROM sys.generate_series(0,100);
+};
+$sth = $dbh->prepare($query);
+$sth->execute;
+my $cells = 0;
+while (my @row = $sth->fetchrow_array) {
+	$cells += 1 + $#row;
+}
+is($cells, 300, 'fetch items using fetchrow_array');
 
 ok( $dbh->disconnect,'Disconnect');