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