t/packages-apt.t

   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(
  11     not(grep { not exists $_->{version} } values %{$data->{installed}}),
  12     'versions',
  13 );
  14
  15 done_testing;