getfullpathname.t

source of perl for linux application,

use strict;
use Test;
use Win32;

plan tests => 16;

my $cwd = Win32::GetCwd;
my @cwd = split/\\/, $cwd;
my $file = pop @cwd;
my $dir = join('\\', @cwd);

ok(scalar Win32::GetFullPathName('.'), $cwd);
ok((Win32::GetFullPathName('.'))[0], "$dir\\");
ok((Win32::GetFullPathName('.'))[1], $file);

ok((Win32::GetFullPathName('./'))[0], "$cwd\\");
ok((Win32::GetFullPathName('.\\'))[0], "$cwd\\");
ok((Win32::GetFullPathName('./'))[1], "");

ok(scalar Win32::GetFullPathName($cwd), $cwd);
ok((Win32::GetFullPathName($cwd))[0], "$dir\\");
ok((Win32::GetFullPathName($cwd))[1], $file);

ok(scalar Win32::GetFullPathName(substr($cwd,2)), $cwd);
ok((Win32::GetFullPathName(substr($cwd,2)))[0], "$dir\\");
ok((Win32::GetFullPathName(substr($cwd,2)))[1], $file);

ok(scalar Win32::GetFullPathName('/Foo Bar/'), substr($cwd,0,2)."\\Foo Bar\\");

chdir($dir);
ok(scalar Win32::GetFullPathName('.'), $dir);

ok((Win32::GetFullPathName($file))[0], "$dir\\");
ok((Win32::GetFullPathName($file))[1], $file);