Mercurial > hg > nginx-tests
changeset 67:5d16f380cd75
Tests: don't output in/out unless TEST_NGINX_VERBOSE set.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Tue, 27 Jan 2009 01:32:47 +0300 |
parents | b4f1e64882b7 |
children | 5f56040c39df |
files | lib/Test/Nginx.pm |
diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lib/Test/Nginx.pm Mon Jan 26 19:22:53 2009 +0300 +++ b/lib/Test/Nginx.pm Tue Jan 27 01:32:47 2009 +0300 @@ -209,6 +209,7 @@ ############################################################################### sub log_out { + return unless $ENV{TEST_NGINX_VERBOSE}; my ($msg) = @_; $msg =~ s/^/# >> /gm; $msg .= "\n" unless $msg =~ /\n\Z/; @@ -216,6 +217,7 @@ } 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;