Mercurial > hg > nginx-tests
comparison lib/Test/Nginx.pm @ 51:d59ae7bab0a6
Tests: cat error log to stdout if TEST_NGINX_CATLOG set.
Note: this isn't really TAP complaint and may confuse Test::Harness. But it's
useful for development and analysing test failures by hand.
use
| author | Maxim Dounin <mdounin@mdounin.ru> |
|---|---|
| date | Mon, 24 Nov 2008 13:06:21 +0300 |
| parents | b494fe5b12d1 |
| children | 5d16f380cd75 |
comparison
equal
deleted
inserted
replaced
| 50:b494fe5b12d1 | 51:d59ae7bab0a6 |
|---|---|
| 40 } | 40 } |
| 41 | 41 |
| 42 sub DESTROY { | 42 sub DESTROY { |
| 43 my ($self) = @_; | 43 my ($self) = @_; |
| 44 $self->stop(); | 44 $self->stop(); |
| 45 if ($ENV{TEST_NGINX_CATLOG}) { | |
| 46 system("cat $self->{_testdir}/error.log"); | |
| 47 } | |
| 45 } | 48 } |
| 46 | 49 |
| 47 sub has { | 50 sub has { |
| 48 my ($self, $feature) = @_; | 51 my ($self, $feature) = @_; |
| 49 | 52 |