# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1312220726 -14400
# Node ID f602276b9bb9af3fbcc260c48e75f47ca2a22bd7
# Parent  450206ed1fd2a76ad115ae22c422596281756ff7
Tests: truncate huge messages while logging.

diff --git a/lib/Test/Nginx.pm b/lib/Test/Nginx.pm
--- a/lib/Test/Nginx.pm
+++ b/lib/Test/Nginx.pm
@@ -314,7 +314,12 @@ sub log_core {
 	my ($prefix, $msg) = @_;
 	($prefix, $msg) = ('', $prefix) unless defined $msg;
 	$prefix .= ' ' if length($prefix) > 0;
- 
+
+	if (length($msg) > 4096) {
+		$msg = substr($msg, 0, 4096);
+		$msg .= "(...logged only 4096 of " . length($msg) . " bytes)";
+	}
+
 	$msg =~ s/^/# $prefix/gm;
 	$msg =~ s/([^\x20-\x7e])/sprintf('\\x%02x', ord($1)) . (($1 eq "\n") ? "\n" : '')/gmxe;
 	$msg .= "\n" unless $msg =~ /\n\Z/;