This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] Re: perl winpid?
[perl5.git] / t / lib / cygwin.t
1 #!perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = ('../lib');
6     unless ($^O eq "cygwin") {
7         print "1..0 # skipped: cygwin specific test\n";
8         exit 0;
9     }
10 }
11
12 use Test::More tests => 4;
13
14 is(Cygwin::winpid_to_pid(Cygwin::pid_to_winpid($$)), $$,
15    "perl pid translates to itself");
16
17 my $parent = getppid;
18 SKIP: {
19     skip "test not run from cygwin process", 1 if $parent <= 1;
20     is(Cygwin::winpid_to_pid(Cygwin::pid_to_winpid($parent)), $parent,
21        "parent pid translates to itself");
22 }
23
24 my $catpid = open my $cat, "|cat" or die "Couldn't cat: $!";
25 open my $ps, "ps|" or die "Couldn't do ps: $!";
26 my ($catwinpid) = map /^.\s+$catpid\s+\d+\s+\d+\s+(\d+)/, <$ps>;
27 close($ps);
28
29 is(Cygwin::winpid_to_pid($catwinpid), $catpid, "winpid to pid");
30 is(Cygwin::pid_to_winpid($catpid), $catwinpid, "pid to winpid");
31 close($cat);