diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-04-27 18:44:09 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-04-27 18:44:09 +0200 |
commit | ded0e7d1400751d3c489859d6b5bb6a7ca7340f6 (patch) | |
tree | 0da348a60cea04b3eda7a0b25640111bcbe0f3c7 | |
parent | 906c8419b0f650785edbfd210d2db06617bad1d3 (diff) |
Add some initial tests
-rw-r--r-- | t/50-integration.t | 26 | ||||
-rw-r--r-- | t/in/1023k | bin | 0 -> 1047552 bytes | |||
-rw-r--r-- | t/in/1024k | bin | 0 -> 1048576 bytes | |||
-rw-r--r-- | t/in/1025k | bin | 0 -> 1049600 bytes | |||
-rw-r--r-- | t/in/1k | bin | 0 -> 1024 bytes | |||
-rw-r--r-- | t/in/4 | 1 | ||||
-rw-r--r-- | t/in/4096k | bin | 0 -> 4194304 bytes |
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 Binary files differnew file mode 100644 index 0000000..52cdbc8 --- /dev/null +++ b/t/in/1023k diff --git a/t/in/1024k b/t/in/1024k Binary files differnew file mode 100644 index 0000000..2315abf --- /dev/null +++ b/t/in/1024k diff --git a/t/in/1025k b/t/in/1025k Binary files differBinary files differnew file mode 100644 index 0000000..7bcdb6c --- /dev/null +++ b/t/in/1025k @@ -0,0 +1 @@ +foo diff --git a/t/in/4096k b/t/in/4096k Binary files differnew file mode 100644 index 0000000..59740d4 --- /dev/null +++ b/t/in/4096k |