5 use System::Introspector::Probe::Packages::Apt;
7 my $probe = System::Introspector::Probe::Packages::Apt->new;
8 my $data = $probe->gather;
10 ok(scalar(keys %$data), 'received packages');
13 not exists $_->{version}
14 } values %{$data->{installed}{packages}}),
19 local $ENV{PATH} = join ':', "$FindBin::Bin/bin", $ENV{PATH};
20 my $probe = System::Introspector::Probe::Packages::Apt->new(
22 apt_update_after => 0,
24 my $data = $probe->gather;
25 is_deeply $data->{upgradable}, {
27 inst => { foo => '(some foo info)' },
28 remv => { baz => '(some baz info)' },
30 }, 'upgradable packages';
31 ok $data->{update}{last}, 'has last update time';
32 ok $data->{update}{run}, 'has apt run state';