Mercurial > hg > nginx-tests

comparison lib/Test/Nginx.pm @ 861:6868e610eacc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: detect Sanitizer errors.
author Sergey Kandaurov <pluknet@nginx.com>
date Tue, 01 Mar 2016 12:55:59 +0300
parents d39e98893265
children f8f8304c8832
comparison
equal deleted inserted replaced
860:cba4b1bccfd1 861:6868e610eacc
67 local $Test::Nginx::TODO = 'alerts' unless $self->{_alerts}; 67 local $Test::Nginx::TODO = 'alerts' unless $self->{_alerts};
68 68
69 my $alerts = $self->read_file('error.log'); 69 my $alerts = $self->read_file('error.log');
70 $alerts = join "\n", $alerts =~ /.+\[alert\].+/gm; 70 $alerts = join "\n", $alerts =~ /.+\[alert\].+/gm;
71 Test::More::is($alerts, '', 'no alerts'); 71 Test::More::is($alerts, '', 'no alerts');
72 }
73
74 if (Test::More->builder->expected_tests) {
75 my $errors = $self->read_file('error.log');
76 $errors = join "\n", $errors =~ /.+Sanitizer.+/gm;
77 Test::More::is($errors, '', 'no sanitizer errors');
72 } 78 }
73 79
74 if ($ENV{TEST_NGINX_CATLOG}) { 80 if ($ENV{TEST_NGINX_CATLOG}) {
75 system("cat $self->{_testdir}/error.log"); 81 system("cat $self->{_testdir}/error.log");
76 } 82 }
238 } 244 }
239 245
240 sub plan($) { 246 sub plan($) {
241 my ($self, $plan) = @_; 247 my ($self, $plan) = @_;
242 248
243 Test::More::plan(tests => $plan + 1); 249 Test::More::plan(tests => $plan + 2);
244 250
245 return $self; 251 return $self;
246 } 252 }
247 253
248 sub todo_alerts() { 254 sub todo_alerts() {