From: Steve Hay <SteveHay@planit.com>
Date: Mon, 14 May 2007 16:56:22 +0000 (+0000)
Subject: Test for [perl #42925], which was fixed by #31214
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad6e06efbb416260f053ee6d400197b407bfac99;p=p5sagit%2Fp5-mst-13.2.git

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