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 }