let u know what's wrong

git-svn-id: svn://svn.lighttpd.net/lighttpd/branches/lighttpd-merge-1.4.x@760 152afb58-edef-0310-8abb-c4023f1b3aa9

1 files changed, 6 insertions, 1 deletions

diff --git a/tests/LightyTest.pm b/tests/LightyTest.pm
index 5080f7fe..37023d3b 100755
--- a/tests/LightyTest.pm
+++ b/tests/LightyTest.pm
@@ -189,6 +189,7 @@ sub handle_http {
 
 					$resp_hdr{$h} = $2;
 				} else {
+					diag(sprintf("unexpected line '$line'\n"));
 					return -1;
 				}
 			}
@@ -219,6 +220,7 @@ sub handle_http {
 				return -1;
 			}
 		} else {
+			diag(sprintf("unexpected resp_line '$resp_line'\n"));
 			return -1;
 		}
 
@@ -275,7 +277,10 @@ sub handle_http {
 	}
 
 	# we should have sucked up everything
-	return -1 if (defined $lines); 
+	if (defined $lines) {
+		diag(sprintf("unexpected lines '$lines'\n"));
+		return -1;
+	}
 
 	return 0;
 }