Re: Perl @ http://www.ccl4.org/~nick/P/perl-33444.tar.bz2

Message-ID: <47D2EF38.10503@x-ray.at>

* CYG10 improve Win32::GetLastError test

p4raw-id: //depot/perl@33482

diff --git a/ext/Win32CORE/t/win32core.t b/ext/Win32CORE/t/win32core.t
index 95db1f1..5eb0bc4 100644 (file)
--- a/ext/Win32CORE/t/win32core.t
+++ b/ext/Win32CORE/t/win32core.t
@@ -10,11 +10,7 @@ BEGIN {
        }
     }
 
-    if ($^O eq 'cygwin') {
-        plan skip_all => '$^E is not Win32::GetLastError() under Cygwin';
-    } else {
         plan tests => 4;
-    }
 };
 use_ok( "Win32CORE" );
 
@@ -24,7 +20,7 @@ ok(!defined &Win32::ExpandEnvironmentStrings);
 # [perl #42925] - Loading Win32::GetLastError() via the forwarder function
 # should not affect the last error being retrieved
 $^E = 42;
-is(Win32::GetLastError(), 42, 'GetLastError() works on the first call');
+is(Win32::GetLastError(), $^O eq 'cygwin' ? 0 : 42, 'GetLastError() works on the first call');
 
 # Now all Win32::* functions should be loaded
 ok(defined &Win32::ExpandEnvironmentStrings);