Mercurial > hg > nginx-tests

comparison lib/Test/Nginx.pm @ 918:8d489e743fcb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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