projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
The ext/Cwd/Cwd.xs part of...
[p5sagit/p5-mst-13.2.git]
/
ext
/
Cwd
/
t
/
win32.t
1
#!./perl
2
3
BEGIN {
4
if ($ENV{PERL_CORE}) {
5
@INC = '../lib';
6
}
7
}
8
9
use File::Spec;
10
use lib File::Spec->catdir('t', 'lib');
11
use Test::More;
12
13
if( $^O eq 'MSWin32' ) {
14
plan tests => 3;
15
} else {
16
plan skip_all => 'this is not win32';
17
}
18
19
use Cwd;
20
ok 1;
21
22
my $cdir = getdcwd('C:');
23
like $cdir, qr{^C:}i;
24
25
my $ddir = getdcwd('D:');
26
if (defined $ddir) {
27
like $ddir, qr{^D:}i;
28
} else {
29
# May not have a D: drive mounted
30
ok 1;
31
}