4 use System::Introspector::Probe::Processes;
6 my $probe = System::Introspector::Probe::Processes->new;
7 my $result = $probe->gather;
9 ok($result, 'got result');
10 my $data = $result->{processes};
11 ok($data, 'got process data');
13 ok(@$data, 'received processes');
14 ok(not(grep { not $_->{pid} } @$data), 'all entries have pid');
15 ok(not(grep { not $_->{args} } @$data), 'all entries have args');