cpan/Win32/t/GetFullPathName.t

   1 use strict;\r
   2 use Test;\r
   3 use Win32;\r
   4 \r
   5 plan tests => 16;\r
   6 \r
   7 my $cwd = Win32::GetCwd;\r
   8 my @cwd = split/\\/, $cwd;\r
   9 my $file = pop @cwd;\r
  10 my $dir = join('\\', @cwd);\r
  11 \r
  12 ok(scalar Win32::GetFullPathName('.'), $cwd);\r
  13 ok((Win32::GetFullPathName('.'))[0], "$dir\\");\r
  14 ok((Win32::GetFullPathName('.'))[1], $file);\r
  15 \r
  16 ok((Win32::GetFullPathName('./'))[0], "$cwd\\");\r
  17 ok((Win32::GetFullPathName('.\\'))[0], "$cwd\\");\r
  18 ok((Win32::GetFullPathName('./'))[1], "");\r
  19 \r
  20 ok(scalar Win32::GetFullPathName($cwd), $cwd);\r
  21 ok((Win32::GetFullPathName($cwd))[0], "$dir\\");\r
  22 ok((Win32::GetFullPathName($cwd))[1], $file);\r
  23 \r
  24 ok(scalar Win32::GetFullPathName(substr($cwd,2)), $cwd);\r
  25 ok((Win32::GetFullPathName(substr($cwd,2)))[0], "$dir\\");\r
  26 ok((Win32::GetFullPathName(substr($cwd,2)))[1], $file);\r
  27 \r
  28 ok(scalar Win32::GetFullPathName('/Foo Bar/'), substr($cwd,0,2)."\\Foo Bar\\");\r
  29 \r
  30 chdir($dir);\r
  31 ok(scalar Win32::GetFullPathName('.'), $dir);\r
  32 \r
  33 ok((Win32::GetFullPathName($file))[0], "$dir\\");\r
  34 ok((Win32::GetFullPathName($file))[1], $file);\r