21 push @paths, map { my $x = $_; $x =~ s,/,\\,g; $x } @paths;
32 my $drive = $ENV{SYSTEMDRIVE};
37 push @paths, $ENV{SYSTEMROOT} if $ENV{SYSTEMROOT};
40 @expect{@paths} = map { my $x = $_;
41 $x =~ s,(.[/\\])[/\\]+,$1,g;
42 $x =~ s,^(\w):,\U$1:,;
45 plan tests => scalar(@paths);
49 my $got = Win32::GetLongPathName($_);
50 print "# '$_' => expect '$expect{$_}' => got '$got'\n";
51 print "not " unless $expect{$_} eq $got;