[svn:DBD-Pg] r14787 - in DBD-Pg/trunk: . t

Author: turnstep
Date: Mon Mar 28 07:15:20 2011
New Revision: 14787

Added:
   DBD-Pg/trunk/t/00_signature.t
      - copied, changed from r14601, /DBD-Pg/trunk/t/00-signature.t
Removed:
   DBD-Pg/trunk/t/00-signature.t
Modified:
   DBD-Pg/trunk/MANIFEST

Log:
Rename signature test file to same underscore format as the rest.


Modified: DBD-Pg/trunk/MANIFEST
==============================================================================
--- DBD-Pg/trunk/MANIFEST	(original)
+++ DBD-Pg/trunk/MANIFEST	Mon Mar 28 07:15:20 2011
@@ -27,7 +27,7 @@
 
 .perlcriticrc
 t/dbdpg_test_setup.pl
-t/00-signature.t
+t/00_signature.t
 t/00basic.t
 t/01connect.t
 t/01constants.t

Copied: DBD-Pg/trunk/t/00_signature.t (from r14601, /DBD-Pg/trunk/t/00-signature.t)
==============================================================================
--- /DBD-Pg/trunk/t/00-signature.t	(original)
+++ DBD-Pg/trunk/t/00_signature.t	Mon Mar 28 07:15:20 2011
@@ -8,6 +8,20 @@
 use Test::More;
 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);
+}
+END {
+	if (defined $testfh) {
+		close $testfh or warn qq{Could not close testing file handle: $!\n};
+	}
+}
+
 if (!$ENV{TEST_SIGNATURE}) {
 	plan skip_all => 'Set the environment variable TEST_SIGNATURE to enable this test';
 }