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

[turnstep]

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';
 }