Lines Matching full:cwd
7 my $cwd = Win32::GetCwd;
8 my @cwd = split/\\/, $cwd;
9 my $file = pop @cwd;
10 my $dir = join('\\', @cwd);
12 ok(scalar Win32::GetFullPathName('.'), $cwd);
16 ok((Win32::GetFullPathName('./'))[0], "$cwd\\");
17 ok((Win32::GetFullPathName('.\\'))[0], "$cwd\\");
20 ok(scalar Win32::GetFullPathName($cwd), $cwd);
21 ok((Win32::GetFullPathName($cwd))[0], "$dir\\");
22 ok((Win32::GetFullPathName($cwd))[1], $file);
24 ok(scalar Win32::GetFullPathName(substr($cwd,2)), $cwd);
25 ok((Win32::GetFullPathName(substr($cwd,2)))[0], "$dir\\");
26 ok((Win32::GetFullPathName(substr($cwd,2)))[1], $file);
28 ok(scalar Win32::GetFullPathName('/Foo Bar/'), substr($cwd,0,2)."\\Foo Bar\\");