Code

Make check_tcp.t compatible with picky web servers.
authorThomas Guyot-Sionnest <dermoth@users.sourceforge.net>
Fri, 18 May 2007 07:17:59 +0000 (07:17 +0000)
committerThomas Guyot-Sionnest <dermoth@users.sourceforge.net>
Fri, 18 May 2007 07:17:59 +0000 (07:17 +0000)
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@1714 f882894a-f735-0410-b71e-b25c423dba1c

plugins/t/check_tcp.t

index c38fca7ff515317c202818bf6c158a38a16c818f..2914350e6158f649e3682c2587a3ec31123647f0 100644 (file)
@@ -34,7 +34,7 @@ $t += checkCmd( "./check_tcp $hostname_invalid   -p 80 -wt   0 -ct   0 -to 1", 2
 
 # Need the \r\n to make it more standards compliant with web servers. Need the various quotes
 # so that perl doesn't interpret the \r\n and is passed onto command line correctly
-$t += checkCmd( "./check_tcp $host_tcp_http      -p 80 -E -s ".'"GET /\r\n\r\n"'." -e 'ThisShouldntMatch' -j", 1, $failedExpect );
+$t += checkCmd( "./check_tcp $host_tcp_http      -p 80 -E -s ".'"GET / HTTP/1.1\r\n\r\n"'." -e 'ThisShouldntMatch' -j", 1, $failedExpect );
 
 exit(0) if defined($Test::Harness::VERSION);
 exit($tests - $t);