apt-get tests for Packages::Apt probe

[scpubgit/System-Introspector.git] / t / bin / apt-get

diff --git a/t/bin/apt-get b/t/bin/apt-get
new file mode 100755 (executable)
index 0000000..045b689
--- /dev/null
+++ b/t/bin/apt-get
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+if (grep { $_ eq 'upgrade' } @ARGV) {
+    printf "%s %s (%s)\n", @$_ for
+        ['Inst', 'foo', 'some foo info'],
+        ['Somethingelse', 'bar', 'some bar info'],
+        ['Remv', 'baz', 'some baz info'];
+}
+elsif (grep { $_ eq 'update' } @ARGV) {
+    print "OK\n";
+}