Merge pull request #31 from perl-libwin32/skip-unicode-test-on-cygwin

jandubois · web-flow · commit ff8e0504996a · 2021-12-19T01:21:34.000-08:00
cwd() on Cygwin64 no longer returns an ANSI (short) path
diff --git a/t/Unicode.t b/t/Unicode.t
@@ -90,7 +90,8 @@ if ($^O eq "cygwin") {
     $subdir = Cygwin::posix_to_win_path($subdir, 1);
 }
 $subdir =~ s,/,\\,g;
-ok(Win32::GetLongPathName($subdir), $long);
+# Cygwin64 no longer returns an ANSI name
+skip($^O eq "cygwin", Win32::GetLongPathName($subdir), $long);
 
 # We can chdir() into the Unicode directory if we use the ANSI name
 ok(chdir(Win32::GetANSIPathName($dir)));

Original file line number	Diff line number	Diff line change
`@@ -90,7 +90,8 @@ if ($^O eq "cygwin") {`
`90`	`90`	`$subdir = Cygwin::posix_to_win_path($subdir, 1);`
`91`	`91`	`}`
`92`	`92`	`$subdir =~ s,/,\\,g;`
`93`		`-ok(Win32::GetLongPathName($subdir), $long);`
	`93`	`+# Cygwin64 no longer returns an ANSI name`
	`94`	`+skip($^O eq "cygwin", Win32::GetLongPathName($subdir), $long);`
`94`	`95`
`95`	`96`	`# We can chdir() into the Unicode directory if we use the ANSI name`
`96`	`97`	`ok(chdir(Win32::GetANSIPathName($dir)));`