Mercurial > hg > nginx-tests

comparison lib/Test/Nginx.pm @ 67:5d16f380cd75

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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;