diff options
| -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'); |