ext/Cwd/t/win32.t

   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 }