Add some initial tests

1 files changed, 26 insertions, 0 deletions

diff --git a/t/50-integration.t b/t/50-integration.t
new file mode 100644
index 0000000..1219323
--- /dev/null
+++ b/t/50-integration.t
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.010;
+use autodie;
+
+use Cwd;
+use Test::Command tests => 6;
+
+my $hashl = '../../bin/hashl';
+
+my $EMPTY = q{};
+my $usage = <<'EOF';
+Usage: ../../bin/hashl [options] <update|list|info|...> [args]
+See 'perldoc -F ../../bin/hashl' (or 'man hashl' if it is properly installed)
+EOF
+
+chdir('t/in');
+
+for my $cmd ("$hashl", "$hashl copy") {
+	my $tc = Test::Command->new(cmd => $cmd);
+
+	$tc->exit_isnt_num(0);
+	$tc->stdout_is_eq($EMPTY);
+	$tc->stderr_is_eq($usage);
+}