Fix ext/Win32/t/Unicode.t test bug
authorJerry D. Hedden <jdhedden@cpan.org>
Wed, 5 Sep 2007 10:59:49 +0000 (06:59 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 5 Sep 2007 15:15:58 +0000 (15:15 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510709050759v27872bbam3f191283996960d3@mail.gmail.com>

p4raw-id: //depot/perl@31796

ext/Win32/t/Unicode.t

index 0de9463..f88ace3 100644 (file)
@@ -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") {