From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Wed, 5 Sep 2007 10:59:49 +0000 (-0400)
Subject: Fix ext/Win32/t/Unicode.t test bug
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38bfad488a28af9fd073332d031bfcf0baed9010;p=p5sagit%2Fp5-mst-13.2.git

Fix ext/Win32/t/Unicode.t test bug
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510709050759v27872bbam3f191283996960d3@mail.gmail.com>

p4raw-id: //depot/perl@31796
---

diff --git a/ext/Win32/t/Unicode.t b/ext/Win32/t/Unicode.t
index 0de9463..f88ace3 100644
--- a/ext/Win32/t/Unicode.t
+++ b/ext/Win32/t/Unicode.t
@@ -60,8 +60,8 @@ ok($long, Win32::GetLongPathName($home)."\\$dir");
 
 # We can Win32::SetCwd() into the Unicode directory
 ok(Win32::SetCwd($dir));
-ok(Win32::GetLongPathName(Win32::GetCwd()), $long);
 
+my $w32dir = Win32::GetCwd();
 # cwd() also returns a usable ANSI directory name
 my $subdir = cwd();
 
@@ -70,6 +70,8 @@ my $subdir = cwd();
 ok(chdir($home));
 ok(Win32::GetCwd(), $home);
 
+ok(Win32::GetLongPathName($w32dir), $long);
+
 # cwd() on Cygwin returns a mapped path that we need to translate
 # back to a Windows path. Invoking `cygpath` on $subdir doesn't work.
 if ($^O eq "cygwin") {