Mercurial > hg > nginx-tests
comparison lib/Test/Nginx.pm @ 918:8d489e743fcb
Tests: TODO certain alerts on win32.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Thu, 28 Apr 2016 16:24:31 +0300 |
parents | 49579dd88e3f |
children | b9e42c554ba7 |
comparison
equal
deleted
inserted
replaced
917:6af0421615ea | 918:8d489e743fcb |
---|---|
69 my @alerts = $self->read_file('error.log') =~ /.+\[alert\].+/gm; | 69 my @alerts = $self->read_file('error.log') =~ /.+\[alert\].+/gm; |
70 | 70 |
71 if ($^O eq 'solaris') { | 71 if ($^O eq 'solaris') { |
72 $Test::Nginx::TODO = 'alerts' if @alerts | 72 $Test::Nginx::TODO = 'alerts' if @alerts |
73 && ! grep { $_ !~ /phantom event/ } @alerts; | 73 && ! grep { $_ !~ /phantom event/ } @alerts; |
74 } | |
75 if ($^O eq 'MSWin32') { | |
76 my $re = qr/CloseHandle|TerminateProcess/; | |
77 $Test::Nginx::TODO = 'alerts' if @alerts | |
78 && ! grep { $_ !~ $re } @alerts; | |
74 } | 79 } |
75 | 80 |
76 Test::More::is(join("\n", @alerts), '', 'no alerts'); | 81 Test::More::is(join("\n", @alerts), '', 'no alerts'); |
77 } | 82 } |
78 | 83 |