[p5sagit/p5-mst-13.2.git] / ext / Cwd / t / win32.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    if ($ENV{PERL_CORE}) {
        @INC = '../lib';
    }
}

use Test::More;
if( $^O eq 'MSWin32' ) {
  plan tests => 3;
} else {
  plan skip_all => 'this is not win32';
}

use Cwd;
ok 1;

my $cdir = getdcwd('C:');
like $cdir, qr{^C:};

my $ddir = getdcwd('D:');
if (defined $ddir) {
  like $ddir, qr{^D:};
} else {
  # May not have a D: drive mounted
  ok 1;
}
Commit	Line	Data
275e8705	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	if ($ENV{PERL_CORE}) {
	6	@INC = '../lib';
	7	}
	8	}
	9
	10	use Test::More;
	11	if( $^O eq 'MSWin32' ) {
	12	plan tests => 3;
	13	} else {
	14	plan skip_all => 'this is not win32';
	15	}
	16
	17	use Cwd;
	18	ok 1;
	19
	20	my $cdir = getdcwd('C:');
	21	like $cdir, qr{^C:};
	22
	23	my $ddir = getdcwd('D:');
	24	if (defined $ddir) {
	25	like $ddir, qr{^D:};
	26	} else {
	27	# May not have a D: drive mounted
	28	ok 1;
	29	}