This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
RE: $Win32::VERSION problem
[perl5.git] / ext / Win32 / t / GetLongPathName.t
1 use strict;
2 use Test;
3 use Win32;
4
5 my @paths = qw(
6     /
7     //
8     .
9     ..
10     c:
11     c:/
12     c:./
13     c:/.
14     c:/..
15     c:./..
16     //./
17     //.
18     //..
19     //./..
20 );
21 push @paths, map { my $x = $_; $x =~ s,/,\\,g; $x } @paths;
22 push @paths, qw(
23     ../\
24     c:.\\../\
25     c:/\..//
26     c://.\/./\
27     \\.\\../\
28     //\..//
29     //.\/./\
30 );
31
32 my $drive = $ENV{SystemDrive};
33 if ($drive) {
34     for (@paths) {
35         s/^c:/$drive/;
36     }
37     push @paths, $ENV{SystemRoot} if $ENV{SystemRoot};
38 }
39 my %expect;
40 @expect{@paths} = map { my $x = $_; $x =~ s,(.[/\\])[/\\]+,$1,g; $x } @paths;
41
42 plan tests => scalar(@paths);
43
44 my $i = 1;
45 for (@paths) {
46     my $got = Win32::GetLongPathName($_);
47     print "# '$_' => expect '$expect{$_}' => got '$got'\n";
48     print "not " unless $expect{$_} eq $got;
49     print "ok $i\n";
50     ++$i;
51 }