Mercurial > hg > nginx-tests
comparison lib/Test/Nginx.pm @ 861:6868e610eacc
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() { |