apt-get tests for Packages::Apt probe

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

use strictures 1;
use Test::More;
use FindBin;

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

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

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

do {
    local $ENV{PATH} = join ':', "$FindBin::Bin/bin", $ENV{PATH};
    my $probe = System::Introspector::Probe::Packages::Apt->new(
        apt_update => 1,
        apt_update_after => 0,
    );
    my $data = $probe->gather;
    is_deeply $data->{upgradable}, {
        actions => {
            inst => { foo => '(some foo info)' },
            remv => { baz => '(some baz info)' },
        },
    }, 'upgradable packages';
    ok $data->{update}{last}, 'has last update time';
    ok $data->{update}{run}, 'has apt run state';
};

done_testing;