Mercurial > hg > nginx-tests
diff lib/Test/Nginx.pm @ 68:5f56040c39df
Tests: smtp xclient tests.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Tue, 03 Feb 2009 09:27:08 +0300 |
parents | 5d16f380cd75 |
children | ff5f4f298532 |
line wrap: on
line diff
--- a/lib/Test/Nginx.pm +++ b/lib/Test/Nginx.pm @@ -208,21 +208,24 @@ sub testdir() { ############################################################################### -sub log_out { +sub log_core { return unless $ENV{TEST_NGINX_VERBOSE}; - my ($msg) = @_; - $msg =~ s/^/# >> /gm; + my ($prefix, $msg) = @_; + ($prefix, $msg) = ('', $prefix) unless defined $msg; + $prefix .= ' ' if length($prefix) > 0; + + $msg =~ s/^/# $prefix/gm; + $msg =~ s/([^\x20-\x7e])/sprintf('\\x%02x', ord($1)) . (($1 eq "\n") ? "\n" : '')/gmxe; $msg .= "\n" unless $msg =~ /\n\Z/; print $msg; } +sub log_out { + log_core('>>', @_); +} + sub log_in { - return unless $ENV{TEST_NGINX_VERBOSE}; - my ($msg) = @_; - $msg =~ s/^/# << /gm; - $msg =~ s/([^\x20-\x7e])/sprintf('\\x%02x', ord($1)) . (($1 eq "\n") ? "\n" : '')/gmxe; - $msg .= "\n" unless $msg =~ /\n\Z/; - print $msg; + log_core('<<', @_); } ###############################################################################