diff options
| author | Reini Urban <rurban@x-ray.at> | 2008-03-08 21:55:36 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-03-11 20:16:49 +0000 |
| commit | 867ade395b4838b42670e3eb3e274677f9e47a1a (patch) | |
| tree | 013f319801aa132060b2d50805e171d5583691eb /ext/Win32CORE | |
| parent | 7e73a9801b84ea9d4c4040e65a168d6571cee339 (diff) | |
| download | perl-867ade395b4838b42670e3eb3e274677f9e47a1a.tar.gz | |
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
Diffstat (limited to 'ext/Win32CORE')
| -rw-r--r-- | ext/Win32CORE/t/win32core.t | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/ext/Win32CORE/t/win32core.t b/ext/Win32CORE/t/win32core.t index 95db1f1187..5eb0bc4d6d 100644 --- 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); |