Commit | Line | Data |
395c0ef2 |
1 | use strictures 1; |
2 | use Test::More; |
3 | |
4 | use System::Introspector::Processes; |
5 | |
8c39f05c |
6 | my $probe = System::Introspector::Processes->new; |
7 | my $result = $probe->gather; |
8 | |
9 | ok($result, 'got result'); |
10 | my $data = $result->{processes}; |
11 | ok($data, 'got process data'); |
395c0ef2 |
12 | |
13 | ok(@$data, 'received processes'); |
14 | ok(not(grep { not $_->{pid} } @$data), 'all entries have pid'); |
8c39f05c |
15 | ok(not(grep { not $_->{args} } @$data), 'all entries have args'); |
395c0ef2 |
16 | |
17 | done_testing; |