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',
lmpx.com only provides a reader for public news (NNTP) servers. It is not
affiliated with the servers or forums shown here and is not responsible for
the content of articles, which is written by their respective authors.