# HG changeset patch # User Sergey Kandaurov # Date 1461849871 -10800 # Node ID 8d489e743fcb26856a2987d70aadc3bec542e8cb # Parent 6af0421615ea862c1e78dc25f445b59c99da5146 Tests: TODO certain alerts on win32. diff --git a/lib/Test/Nginx.pm b/lib/Test/Nginx.pm --- a/lib/Test/Nginx.pm +++ b/lib/Test/Nginx.pm @@ -72,6 +72,11 @@ sub DESTROY { $Test::Nginx::TODO = 'alerts' if @alerts && ! grep { $_ !~ /phantom event/ } @alerts; } + if ($^O eq 'MSWin32') { + my $re = qr/CloseHandle|TerminateProcess/; + $Test::Nginx::TODO = 'alerts' if @alerts + && ! grep { $_ !~ $re } @alerts; + } Test::More::is(join("\n", @alerts), '', 'no alerts'); }