diff options
| author | Steve Hay <SteveHay@planit.com> | 2007-05-14 16:56:22 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2007-05-14 16:56:22 +0000 |
| commit | ad6e06efbb416260f053ee6d400197b407bfac99 (patch) | |
| tree | 8c4f770f1db7389d0a873009464b2324ba6906b6 /ext/Win32CORE | |
| parent | dcd628c71019d2ab6ad9086f53e399febeeda3cb (diff) | |
| download | perl-ad6e06efbb416260f053ee6d400197b407bfac99.tar.gz | |
Test for [perl #42925], which was fixed by #31214
p4raw-id: //depot/perl@31215
Diffstat (limited to 'ext/Win32CORE')
| -rw-r--r-- | ext/Win32CORE/t/win32core.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/ext/Win32CORE/t/win32core.t b/ext/Win32CORE/t/win32core.t index 7c637bbe9e..7bc8968c55 100644 --- a/ext/Win32CORE/t/win32core.t +++ b/ext/Win32CORE/t/win32core.t @@ -10,6 +10,11 @@ BEGIN { } } - plan tests => 1; + plan tests => 2; }; use_ok( "Win32CORE" ); + +# [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'); |