Mercurial > hg > nginx-tests
comparison lib/Test/Nginx.pm @ 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 | d59ae7bab0a6 |
children | 5f56040c39df |
comparison
equal
deleted
inserted
replaced
66:b4f1e64882b7 | 67:5d16f380cd75 |
---|---|
207 } | 207 } |
208 | 208 |
209 ############################################################################### | 209 ############################################################################### |
210 | 210 |
211 sub log_out { | 211 sub log_out { |
212 return unless $ENV{TEST_NGINX_VERBOSE}; | |
212 my ($msg) = @_; | 213 my ($msg) = @_; |
213 $msg =~ s/^/# >> /gm; | 214 $msg =~ s/^/# >> /gm; |
214 $msg .= "\n" unless $msg =~ /\n\Z/; | 215 $msg .= "\n" unless $msg =~ /\n\Z/; |
215 print $msg; | 216 print $msg; |
216 } | 217 } |
217 | 218 |
218 sub log_in { | 219 sub log_in { |
220 return unless $ENV{TEST_NGINX_VERBOSE}; | |
219 my ($msg) = @_; | 221 my ($msg) = @_; |
220 $msg =~ s/^/# << /gm; | 222 $msg =~ s/^/# << /gm; |
221 $msg =~ s/([^\x20-\x7e])/sprintf('\\x%02x', ord($1)) . (($1 eq "\n") ? "\n" : '')/gmxe; | 223 $msg =~ s/([^\x20-\x7e])/sprintf('\\x%02x', ord($1)) . (($1 eq "\n") ? "\n" : '')/gmxe; |
222 $msg .= "\n" unless $msg =~ /\n\Z/; | 224 $msg .= "\n" unless $msg =~ /\n\Z/; |
223 print $msg; | 225 print $msg; |