[DBD::Pg] Quick commit of in-progress testing

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

Quick commit of in-progress testing

---
 testme.tmp.pl |   28 +++++++++++++++++++++++++++-
 1 files changed, 27 insertions(+), 1 deletions(-)

diff --git a/testme.tmp.pl b/testme.tmp.pl
index 92c9204..bdd17f8 100755
--- a/testme.tmp.pl
+++ b/testme.tmp.pl
@@ -26,13 +26,39 @@ my $dbh = DBI->connect($DSN, '', '', {AutoCommit=>0,RaiseError=>1,PrintError=>0}
 my $me = $dbh->{Driver}{Name};
 print "DBI is version $DBI::VERSION, I am $me, version of DBD::Pg is $DBD::Pg::VERSION\n";
 
-utf8_print_test();
+commit_return_test();
+
+#utf8_print_test();
 
 #memory_leak_test_bug_65734();
 
 exit;
 
 
+sub commit_return_test {
+
+	$dbh->{RaiseError} = 0;
+	$dbh->{PrintError} = 1;
+	$dbh->{AutoCommit} = 0;
+
+	## Test value returned by the commit() method
+	my $res = $dbh->commit();
+	print "-->Initial commit returns a value of $res\n";
+
+	$res = $dbh->commit();
+	print "-->When called twice, commit returns a value of $res\n";
+
+	$dbh->do('SELECT 123');
+	$dbh->do('SELECT fail');
+
+	$res = $dbh->commit();
+	print "-->After exception, commit returns a value of $res\n";
+
+	return;
+
+} ## end of commit_return_test
+
+
 sub utf8_print_test {
 
 	## Set things up
-- 
1.7.1