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