Mercurial > hg > nginx-tests
comparison 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 |
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($) { |