From ded0e7d1400751d3c489859d6b5bb6a7ca7340f6 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 27 Apr 2011 18:44:09 +0200 Subject: Add some initial tests --- t/50-integration.t | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 t/50-integration.t (limited to 't/50-integration.t') 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] [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); +} -- cgit v1.2.3