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