diff options
Diffstat (limited to 't/50-integration.t')
-rw-r--r-- | t/50-integration.t | 26 |
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); +} |