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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
# Test size & RSS attribute on OpenBSD
# Added by Joelle Maslak <jmaslak@antelope.net>, used bugfix-51470 for
# outline.
use warnings;
use Test::More;
use Data::Dumper;
BEGIN {
if ($^O ne 'openbsd') {
plan skip_all => 'OpenBSD-specific tests';
}
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
sleep 10000;
} else {
#main
sleep 1;
my ($pstmp) = grep {/^$pid\s+/} map { chomp; s/^\s*//; $_ } `ps xo pid,vsz,rss`;
my ($ps_pid, $ps_vsize, $ps_rss) = split /\s+/, $pstmp;
$ps_vsize *= 1024;
$ps_rss *= 1024;
my $t = Proc::ProcessTable->new;
my ($p) = grep { $_->{pid} == $pid } @{ $t->table };
is($p->{size}, $ps_vsize, "Process size = ps vsz");
is($p->{rss}, $ps_rss, "Process rss = ps rss");
kill 9, $pid;
}
}
done_testing();
|
