t/processes.t

   1 use strictures 1;
   2 use Test::More;
   3
   4 use System::Introspector::Processes;
   5
   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');
  12
  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');
  16
  17 done_testing;