3fa5cb86abc69bfecb6806c41e9ebf1571dccd54
[perl.git] / ext / Cwd / t / win32.t
1 #!./perl
2
3 use File::Spec;
4 use lib File::Spec->catdir('t', 'lib');
5 use Test::More;
6
7 if( $^O eq 'MSWin32' ) {
8   plan tests => 4;
9 } else {
10   plan skip_all => 'this is not win32';
11 }
12
13 use Cwd;
14 ok 1;
15
16 my $cdir = getdcwd('C:');
17 like $cdir, qr{^C:}i;
18
19 my $ddir = getdcwd('D:');
20 if (defined $ddir) {
21   like $ddir, qr{^D:}i;
22 } else {
23   # May not have a D: drive mounted
24   ok 1;
25 }
26
27 # Ensure compatibility with naughty versions of Template::Toolkit,
28 # which pass in a bare $1 as an argument
29 'Foo/strawberry' =~ /(.*)/;
30 my $result = File::Spec::Win32->catfile('C:/cache', $1);
31 is( $result, 'C:\cache\Foo\strawberry' );
32