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

use strictures 1;
use Test::More;

use System::Introspector::Processes;

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

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

done_testing;
Commit	Line	Data
395c0ef2	1	use strictures 1;
	2	use Test::More;
	3
	4	use System::Introspector::Processes;
	5
	6	my $probe = System::Introspector::Processes->new;
	7	my $data = $probe->gather;
	8
	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');
	12
	13	done_testing;