Author: Nicholas Bamber <nicholas@periapt.co.uk>
Subject: test script hangs waiting on STDIN
Forwarded: not-needed
Last-Update: 2011-11-06
--- a/t/02-self_link.t
+++ b/t/02-self_link.t
@@ -59,6 +59,9 @@
     }
 }
 
+local *STDIN;
+open(STDIN, '<', '/dev/null');
+
 $ENV{'REQUEST_METHOD'} = 'POST';
 $ENV{'SERVER_PORT'}    = '80';
 $ENV{'SCRIPT_NAME'}    = '/cgi-bin/app.cgi';
--- a/t/03-path_info_link.t
+++ b/t/03-path_info_link.t
@@ -91,6 +91,9 @@
     }
 }
 
+local *STDIN;
+open(STDIN, '<', '/dev/null');
+
 $ENV{'REQUEST_METHOD'} = 'POST';
 $ENV{'SERVER_PORT'}    = '80';
 $ENV{'SCRIPT_NAME'}    = '/cgi-bin/app.cgi';
--- a/t/05-tampering.t
+++ b/t/05-tampering.t
@@ -88,6 +88,9 @@
 CGI::initialize_globals();
 is(WebApp->new->run, 'rm=link_okay', "[$meth] entry_point (no params) link_okay");
 
+local *STDIN;
+open(STDIN, '<', '/dev/null');
+
 $ENV{'REQUEST_METHOD'} = $meth = 'POST';
 $ENV{'SERVER_PORT'}    = $link->port;
 $ENV{'SCRIPT_NAME'}    = $link->path;
--- a/t/06-built_in_link_tampered_rm.t
+++ b/t/06-built_in_link_tampered_rm.t
@@ -65,6 +65,9 @@
 
 }
 ###########################################################################
+local *STDIN;
+open(STDIN, '<', '/dev/null');
+
 # Build the link
 $ENV{'REQUEST_METHOD'} = 'POST';
 $ENV{'SERVER_PORT'}    = '80';
--- a/t/07-invalid_checksum_hook.t
+++ b/t/07-invalid_checksum_hook.t
@@ -68,6 +68,10 @@
     }
 }
 ###########################################################################
+local *STDIN;
+open(STDIN, '<', '/dev/null');
+
+$ENV{'REQUEST_METHOD'} = 'POST';
 # Build the link
 $ENV{'REQUEST_METHOD'} = 'POST';
 $ENV{'SERVER_PORT'}    = '80';