[svn:DBD-Pg] r14788 - DBD-Pg/trunk/t

Author: turnstep
Date: Mon Mar 28 07:55:23 2011
New Revision: 14788

Modified:
   DBD-Pg/trunk/t/dbdpg_test_setup.pl

Log:
Allow TEST_OUTPUT setting for better redirects during automated testing.


Modified: DBD-Pg/trunk/t/dbdpg_test_setup.pl
==============================================================================
--- DBD-Pg/trunk/t/dbdpg_test_setup.pl	(original)
+++ DBD-Pg/trunk/t/dbdpg_test_setup.pl	Mon Mar 28 07:55:23 2011
@@ -9,6 +9,15 @@
 use 5.006;
 select(($|=1,select(STDERR),$|=1)[1]);
 
+my $testfh;
+if (exists $ENV{TEST_OUTPUT}) {
+	my $file = $ENV{TEST_OUTPUT};
+	open $testfh, '>>', $file or die qq{Could not append file "$file": $!\n};
+	#Test::More->builder->output($testfh);
+	Test::More->builder->failure_output($testfh);
+	Test::More->builder->todo_output($testfh);
+}
+
 my @schemas =
 	(
 	 'dbd_pg_testschema',