7 my $cwd = Win32::GetCwd;
\r
8 my @cwd = split/\\/, $cwd;
\r
10 my $dir = join('\\', @cwd);
\r
12 ok(scalar Win32::GetFullPathName('.'), $cwd);
\r
13 ok((Win32::GetFullPathName('.'))[0], "$dir\\");
\r
14 ok((Win32::GetFullPathName('.'))[1], $file);
\r
16 ok((Win32::GetFullPathName('./'))[0], "$cwd\\");
\r
17 ok((Win32::GetFullPathName('.\\'))[0], "$cwd\\");
\r
18 ok((Win32::GetFullPathName('./'))[1], "");
\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
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
28 ok(scalar Win32::GetFullPathName('/Foo Bar/'), substr($cwd,0,2)."\\Foo Bar\\");
\r
31 ok(scalar Win32::GetFullPathName('.'), $dir);
\r
33 ok((Win32::GetFullPathName($file))[0], "$dir\\");
\r
34 ok((Win32::GetFullPathName($file))[1], $file);
\r