[scpubgit/System-Introspector.git] / t / processes.t

use strictures 1;
use Test::More;

use System::Introspector::Probe::Processes;

my $probe  = System::Introspector::Probe::Processes->new;
my $result = $probe->gather;

ok($result, 'got result');
my $data = $result->{processes};
ok($data, 'got process data');

ok(@$data, 'received processes');
ok(not(grep { not $_->{pid} } @$data), 'all entries have pid');
ok(not(grep { not $_->{args} } @$data), 'all entries have args');

done_testing;
Commit	Line	Data
395c0ef2	1	use strictures 1;
	2	use Test::More;
	3
afd7c030	4	use System::Introspector::Probe::Processes;
395c0ef2	5
afd7c030	6	my $probe = System::Introspector::Probe::Processes->new;
8c39f05c	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
395c0ef2	17	done_testing;