[scpubgit/System-Introspector.git] / t / packages-apt.t

use strictures 1;
use Test::More;

use System::Introspector::Packages::Apt;

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

ok(scalar(keys %$data), 'received packages');
ok(
    not(grep {
        not exists $_->{version}
    } values %{$data->{installed}{packages}}),
    'versions',
);

done_testing;
Commit	Line	Data
8a276d0e	1	use strictures 1;
	2	use Test::More;
	3
	4	use System::Introspector::Packages::Apt;
	5
	6	my $probe = System::Introspector::Packages::Apt->new;
	7	my $data = $probe->gather;
	8
	9	ok(scalar(keys %$data), 'received packages');
	10	ok(
1263950b	11	not(grep {
	12	not exists $_->{version}
	13	} values %{$data->{installed}{packages}}),
8a276d0e	14	'versions',
	15	);
	16
	17	done_testing;