changeset 164:f602276b9bb9

Tests: truncate huge messages while logging.
author Maxim Dounin <mdounin@mdounin.ru>
date Mon, 01 Aug 2011 21:45:26 +0400
parents 450206ed1fd2
children fca70f483608
files lib/Test/Nginx.pm
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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/;