3 # tests for Win32::GetLongPathName()
5 $^O =~ /^MSWin/ or print("1..0 # not win32\n" ), exit;
23 push @paths, map { my $x = $_; $x =~ s,/,\\,g; $x } @paths;
34 my $drive = $ENV{SystemDrive};
39 push @paths, $ENV{SystemRoot} if $ENV{SystemRoot};
42 @expect{@paths} = map { my $x = $_; $x =~ s,(.[/\\])[/\\]+,$1,g; $x } @paths;
44 print "1.." . @paths . "\n";
47 my $got = Win32::GetLongPathName($_);
48 print "# '$_' => expect '$expect{$_}' => got '$got'\n";
49 print "not " unless $expect{$_} eq $got;