apt-get tests for Packages::Apt probe

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

diff --git a/t/packages-apt.t b/t/packages-apt.t
index c9c1300..63b8b67 100644 (file)
--- a/t/packages-apt.t
+++ b/t/packages-apt.t
@@ -1,5 +1,6 @@
 use strictures 1;
 use Test::More;
+use FindBin;
 
 use System::Introspector::Probe::Packages::Apt;
 
@@ -14,4 +15,21 @@ ok(
     '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;