1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
use warnings;
use Test::More;
use Data::Dumper;
BEGIN {
use_ok('Proc::ProcessTable');
}
SKIP: {
$0 = "PROC_PROCESSTABLE_TEST_CMD";
sleep(1);
my ($ps) = grep {/^$$\s+/} map { chomp; s/^\s*//; $_ } `ps xww`;
skip 'Cannot set process name', 1
unless ($ps && $ps =~ /PROC_PROCESSTABLE_TEST_CMD/);
$SIG{CHLD} = 'IGNORE';
my $pid = fork;
die "cannot fork" unless defined $pid;
if ($pid == 0) {
#child
$0 = '01234567890123456789';
sleep 10000;
} else {
#main
sleep 1;
my $t = Proc::ProcessTable->new;
my ($p) = grep { $_->{pid} == $pid } @{ $t->table };
like($p->{cmndline}, qr/01234567890123456789/, "modulo 20 commandline bugfix");
kill 9, $pid;
}
}
done_testing();
|
