1#!perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = ('../lib'); 6 require './test.pl'; 7 skip_all('cygwin specific test') unless $^O eq 'cygwin'; 8} 9 10plan(tests => 16); 11 12is(Cygwin::winpid_to_pid(Cygwin::pid_to_winpid($$)), $$, 13 "perl pid translates to itself"); 14 15my $parent = getppid; 16SKIP: { 17 skip "test not run from cygwin process", 1 if $parent <= 1; 18 is(Cygwin::winpid_to_pid(Cygwin::pid_to_winpid($parent)), $parent, 19 "parent pid translates to itself"); 20} 21 22my $catpid = open my $cat, "|cat" or die "Couldn't cat: $!"; 23open my $ps, "ps|" or die "Couldn't do ps: $!"; 24my ($catwinpid) = map /^.\s+$catpid\s+\d+\s+\d+\s+(\d+)/, <$ps>; 25close($ps); 26 27is(Cygwin::winpid_to_pid($catwinpid), $catpid, "winpid to pid"); 28is(Cygwin::pid_to_winpid($catpid), $catwinpid, "pid to winpid"); 29close($cat); 30 31is(Cygwin::win_to_posix_path("t\\lib"), "t/lib", "win to posix path: t/lib"); 32is(Cygwin::posix_to_win_path("t/lib"), "t\\lib", "posix to win path: t\\lib"); 33 34use Win32; 35use Cwd; 36my $pwd = getcwd(); 37chdir("/"); 38my $winpath = Win32::GetCwd(); 39is(Cygwin::posix_to_win_path("/", 1), $winpath, "posix to absolute win path"); 40chdir($pwd); 41is(Cygwin::win_to_posix_path($winpath, 1), "/", "win to absolute posix path"); 42 43my $mount = join '', `/usr/bin/mount`; 44$mount =~ m|on /usr/bin type .+ \((\w+)[,\)]|m; 45my $binmode = $1 =~ /binmode|binary/; 46is(Cygwin::is_binmount("/"), $binmode ? 1 : '', "check / for binmount"); 47 48my $rootmnt = Cygwin::mount_flags("/"); 49ok($binmode ? ($rootmnt =~ /,(binmode|binary)/) : ($rootmnt =~ /,textmode/), "check / mount_flags"); 50is(Cygwin::mount_flags("/cygdrive") =~ /,cygdrive/, 1, "check cygdrive mount_flags"); 51 52# Cygdrive mount prefix 53my @flags = split(/,/, Cygwin::mount_flags('/cygdrive')); 54my $prefix = pop(@flags); 55ok($prefix, "cygdrive mount prefix = " . (($prefix) ? $prefix : '<none>')); 56my $prefix2 = readlink "/proc/cygdrive"; 57unless ($prefix2) { 58 # fallback to old Cygwin, the drive need not actually exist, so 59 # this will always work (but might return the wrong prefix if the 60 # user re-mounted C:\ 61 chomp($prefix2 = `cygpath C:`); 62 $prefix2 = substr($prefix2, 0, -1-(length($prefix2)>2)); 63} 64is($prefix, $prefix2, 'cygdrive mount prefix2 = ' . $prefix2); 65 66my @mnttbl = Cygwin::mount_table(); 67ok(@mnttbl > 0, "non empty mount_table"); 68for $i (@mnttbl) { 69 if ($i->[0] eq '/') { 70 is($i->[2].",".$i->[3], $rootmnt, "same root mount flags"); 71 last; 72 } 73} 74 75ok(Cwd->cwd(), "bug#38628 legacy"); 76