Mercurial > hg > nginx-tests

comparison lib/Test/Nginx.pm @ 68:5f56040c39df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: smtp xclient tests.
author Maxim Dounin <mdounin@mdounin.ru>
date Tue, 03 Feb 2009 09:27:08 +0300
parents 5d16f380cd75
children ff5f4f298532
comparison
equal deleted inserted replaced
67:5d16f380cd75 68:5f56040c39df
206 return $self->{_testdir}; 206 return $self->{_testdir};
207 } 207 }
208 208
209 ############################################################################### 209 ###############################################################################
210 210
211 sub log_out { 211 sub log_core {
212 return unless $ENV{TEST_NGINX_VERBOSE}; 212 return unless $ENV{TEST_NGINX_VERBOSE};
213 my ($msg) = @_; 213 my ($prefix, $msg) = @_;
214 $msg =~ s/^/# >> /gm; 214 ($prefix, $msg) = ('', $prefix) unless defined $msg;
215 $msg .= "\n" unless $msg =~ /\n\Z/; 215 $prefix .= ' ' if length($prefix) > 0;
216 print $msg; 216
217 } 217 $msg =~ s/^/# $prefix/gm;
218
219 sub log_in {
220 return unless $ENV{TEST_NGINX_VERBOSE};
221 my ($msg) = @_;
222 $msg =~ s/^/# << /gm;
223 $msg =~ s/([^\x20-\x7e])/sprintf('\\x%02x', ord($1)) . (($1 eq "\n") ? "\n" : '')/gmxe; 218 $msg =~ s/([^\x20-\x7e])/sprintf('\\x%02x', ord($1)) . (($1 eq "\n") ? "\n" : '')/gmxe;
224 $msg .= "\n" unless $msg =~ /\n\Z/; 219 $msg .= "\n" unless $msg =~ /\n\Z/;
225 print $msg; 220 print $msg;
221 }
222
223 sub log_out {
224 log_core('>>', @_);
225 }
226
227 sub log_in {
228 log_core('<<', @_);
226 } 229 }
227 230
228 ############################################################################### 231 ###############################################################################
229 232
230 sub http_get($) { 233 sub http_get($) {