Test for [perl #42925], which was fixed by #31214
authorSteve Hay <SteveHay@planit.com>
Mon, 14 May 2007 16:56:22 +0000 (16:56 +0000)
committerSteve Hay <SteveHay@planit.com>
Mon, 14 May 2007 16:56:22 +0000 (16:56 +0000)
p4raw-id: //depot/perl@31215

ext/Win32CORE/t/win32core.t

index 7c637bb..7bc8968 100644 (file)
@@ -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');