initial import

t/apps/inventory.t

@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use English qw(-no_match_vars);
+use IPC::Run qw(run);
+
+use Test::More tests => 3;
+
+my ($out, $err, $rc);
+
+($out, $err, $rc) = run_inventory('--help');
+ok($rc == 0, '--help exit status');
+like(
+    $out,
+    qr/^Usage:/,
+    '--help stdout'
+);
+is($err, '', '--help stderr');
+
+sub run_inventory {
+    my ($args) = @_;
+    my @args = $args ? split(/\s+/, $args) : ();
+    run(
+        [ $EXECUTABLE_NAME, 'fusioninventory-inventory', @args ],
+        \my ($in, $out, $err)
+    );
+    return ($out, $err, $CHILD_ERROR >> 8);
+}