[DBD::Pg 2/2] Better testing

Committed by Greg Sabino Mullane <greg-O9fzpki4YnJWk0Htik3J/[email protected]>

Subject: [DBD::Pg 2/2] Better testing

---
 testme.tmp.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/testme.tmp.pl b/testme.tmp.pl
index d5b4454..0231f83 100755
--- a/testme.tmp.pl
+++ b/testme.tmp.pl
@@ -40,6 +40,8 @@ memory_leak_arrays();
 
 sub memory_leak_arrays {
 
+#  $dbh->{pg_expand_array} = 0;
+
 	$dbh->do('CREATE TABLE leaktest ( id TEXT, arr TEXT[] )');
 	$dbh->do('TRUNCATE TABLE leaktest');
 	for my $var (qw/ a b c/ ) {
@@ -57,8 +59,9 @@ sub memory_leak_arrays {
 		my $count2 = Devel::Leak::NoteSV( $handle );
 		$count0 ||= $count1;
 		my $diff = $count2 - $count0;
-		printf "New SVs: %4d  Total: %d\n", $count2 - $count0, $count2;
+		printf "New SVs: %4d  Total: %d\n", $diff, $count2;
 		sleep 0.2;
+		last if $diff > 100;
 		redo;
 	}
 
-- 
1.8.4