From: Jerry D. Hedden Date: Thu, 6 Sep 2007 14:50:15 +0000 (-0400) Subject: Test fixes to go along with longpath.inc patch X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7fdd88d49ac01332a471908781346d7a74abaf7e;p=p5sagit%2Fp5-mst-13.2.git Test fixes to go along with longpath.inc patch From: "Jerry D. Hedden" Message-ID: <1ff86f510709061150t4838c7d4i4c5b3f1f7dc0edd1@mail.gmail.com> p4raw-id: //depot/perl@31810 --- diff --git a/ext/Win32/t/GetLongPathName.t b/ext/Win32/t/GetLongPathName.t index 22a2f02..834d8d1 100644 --- a/ext/Win32/t/GetLongPathName.t +++ b/ext/Win32/t/GetLongPathName.t @@ -37,7 +37,10 @@ if ($drive) { push @paths, $ENV{SystemRoot} if $ENV{SystemRoot}; } my %expect; -@expect{@paths} = map { my $x = $_; $x =~ s,(.[/\\])[/\\]+,$1,g; $x } @paths; +@expect{@paths} = map { my $x = $_; + $x =~ s,(.[/\\])[/\\]+,$1,g; + $x =~ s,^c,C,; + $x } @paths; plan tests => scalar(@paths);