Add some initial tests

7 files changed, 27 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);
+}
diff --git a/t/in/1023k b/t/in/1023k
new file mode 100644
index 0000000..52cdbc8
--- /dev/null
+++ b/t/in/1023k
diff --git a/t/in/1024k b/t/in/1024k
new file mode 100644
index 0000000..2315abf
--- /dev/null
+++ b/t/in/1024k
diff --git a/t/in/1025k b/t/in/1025k
new file mode 100644
index 0000000..7bcdb6c
--- /dev/null
+++ b/t/in/1025k
diff --git a/t/in/1k b/t/in/1k
new file mode 100644
index 0000000..24c24ec
--- /dev/null
+++ b/t/in/1k
diff --git a/t/in/4 b/t/in/4
new file mode 100644
index 0000000..257cc56
--- /dev/null
+++ b/t/in/4
@@ -0,0 +1 @@
+foo
diff --git a/t/in/4096k b/t/in/4096k
new file mode 100644
index 0000000..59740d4
--- /dev/null
+++ b/t/in/4096k