# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1227521181 -10800
# Node ID d59ae7bab0a6745fbaddda1266f6806a335a7e77
# Parent  b494fe5b12d11ed9ddc0d61888c89b915c193e60
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

diff --git a/lib/Test/Nginx.pm b/lib/Test/Nginx.pm
--- a/lib/Test/Nginx.pm
+++ b/lib/Test/Nginx.pm
@@ -42,6 +42,9 @@ sub new {
 sub DESTROY {
 	my ($self) = @_;
 	$self->stop();
+	if ($ENV{TEST_NGINX_CATLOG}) {
+		system("cat $self->{_testdir}/error.log");
+	}
 }
 
 sub has {