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',
