Test for [perl #42925], which was fixed by #31214

p4raw-id: //depot/perl@31215

diff --git a/ext/Win32CORE/t/win32core.t b/ext/Win32CORE/t/win32core.t
index 7c637bb..7bc8968 100644 (file)
--- 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');