summaryrefslogtreecommitdiff
path: root/test/50-efa.t
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2010-08-01 11:30:21 +0200
committerDaniel Friesel <derf@derf.homelinux.org>2010-08-01 11:30:21 +0200
commit34dddb5db65fefc5c36e8b99b9692dbcc14d8642 (patch)
treed67260ec74027a10669ec0fa66ecb2560132d2a4 /test/50-efa.t
parentdc62ee73443a3259f696c059c3888cce6b06bffd (diff)
Move tests to t/, re-structure the directory while at it
Diffstat (limited to 'test/50-efa.t')
-rw-r--r--test/50-efa.t162
1 files changed, 0 insertions, 162 deletions
diff --git a/test/50-efa.t b/test/50-efa.t
deleted file mode 100644
index 5582e47..0000000
--- a/test/50-efa.t
+++ /dev/null
@@ -1,162 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use 5.010;
-
-use Test::Command tests => 85;
-
-my $efa = 'bin/efa';
-my $testarg = "E HBf MH HBf";
-my $test_parse = "--test-parse $testarg";
-
-my $EMPTY = '';
-
-my $re_usage = qr{Insufficient to/from arguments, see \S*efa --help for usage};
-my $re_version = qr{\S*efa version \S+};
-
-my $err_exclude = "exclude: Invalid argument: invalid\n";
-my $err_prefer = "prefer: Invalid argument. Use speed|nowait|nowalk\n";
-my $err_include = "include: Invalid argument. Use local|ic|ice\n";
-my $err_time = "time: Invalid argument. Use HH:MM\n";
-my $err_date = "date: Invalid argument: Use DD.MM.[YYYY]\n";
-my $err_walk_speed = "walk-speed: Invalid argument. Use normal|fast|slow\n";
-my $err_common = "Please see bin/efa --help\n";
-
-# Usage on invalid invocation
-my $cmd = Test::Command->new(cmd => "$efa");
-
-$cmd->exit_isnt_num(0);
-$cmd->stdout_is_eq($EMPTY);
-$cmd->stderr_like($re_usage);
-
-$cmd = Test::Command->new(cmd => "$efa E HBf MH");
-
-$cmd->exit_isnt_num(0);
-$cmd->stdout_is_eq($EMPTY);
-$cmd->stderr_like($re_usage);
-
-$cmd = Test::Command->new(cmd => "$efa E HBf Du HBf MH");
-
-$cmd->exit_isnt_num(0);
-$cmd->stdout_is_eq($EMPTY);
-$cmd->stderr_like($re_usage);
-
-for my $opt (qw/-e --exclude/) {
- $cmd = Test::Command->new(cmd => "$efa $opt invalid $testarg");
-
- $cmd->exit_isnt_num(0);
- $cmd->stdout_is_eq($EMPTY);
- $cmd->stderr_is_eq($err_exclude . $err_common);
-}
-
-for my $opt (qw/-m --max-change/) {
- $cmd = Test::Command->new(cmd => "$efa $opt nan $testarg");
-
- $cmd->exit_isnt_num(0);
- $cmd->stdout_is_eq($EMPTY);
- # no stderr test - depends on Getopt::Long
-}
-
-for my $opt (qw/-P --prefer/) {
- $cmd = Test::Command->new(cmd => "$efa $opt invalid $testarg");
-
- $cmd->exit_isnt_num(0);
- $cmd->stdout_is_eq($EMPTY);
- $cmd->stderr_is_eq($err_prefer . $err_common);
-}
-
-for my $opt (qw/-i --include/) {
- $cmd = Test::Command->new(cmd => "$efa $opt invalid $testarg");
-
- $cmd->exit_isnt_num(0);
- $cmd->stdout_is_eq($EMPTY);
- $cmd->stderr_is_eq($err_include . $err_common);
-}
-
-for my $opt (qw/-w --walk-speed/) {
- $cmd = Test::Command->new(cmd => "$efa $opt invalid $testarg");
-
- $cmd->exit_isnt_num(0);
- $cmd->stdout_is_eq($EMPTY);
- $cmd->stderr_is_eq($err_walk_speed . $err_common);
-}
-
-for my $opt (qw/-t --time/) {
- $cmd = Test::Command->new(cmd => "$efa $opt 35:12 $testarg");
-
- $cmd->exit_isnt_num(0);
- $cmd->stdout_is_eq($EMPTY);
- $cmd->stderr_is_eq($err_time . $err_common);
-}
-
-for my $opt (qw/-d --date/) {
- $cmd = Test::Command->new(cmd => "$efa $opt 11.23.2010 $testarg");
-
- $cmd->exit_isnt_num(0);
- $cmd->stdout_is_eq($EMPTY);
- $cmd->stderr_is_eq($err_date . $err_common);
-}
-
-for my $opt (qw/-v --version/) {
- $cmd = Test::Command->new(cmd => "$efa $opt");
-
- $cmd->exit_is_num(0);
- $cmd->stdout_like($re_version);
- $cmd->stderr_is_eq($EMPTY);
-}
-
-
-for my $file (qw{
- e_hbf_mh_hbf
- e_hbf_du_hbf.ice
- e_werden_e_hbf
- e_hbf_b_hbf.ice
- e_martinstr_e_florastr
- })
-{
- $cmd = Test::Command->new(cmd => "$efa $test_parse < test/dump_$file");
-
- $cmd->exit_is_num(0);
- $cmd->stdout_is_file("test/parse_$file");
- $cmd->stderr_is_eq($EMPTY);
-}
-
-$cmd = Test::Command->new(
- cmd => "$efa $test_parse --ignore-info '.*' < test/dump_e_hbf_b_hbf.ice"
-);
-
-$cmd->exit_is_num(0);
-$cmd->stdout_is_file("test/parse_e_hbf_b_hbf.ice.ignore_all");
-$cmd->stderr_is_eq($EMPTY);
-
-$cmd = Test::Command->new(
- cmd => "$efa $test_parse --ignore-info < test/dump_e_hbf_mh_hbf"
-);
-
-$cmd->exit_is_num(0);
-$cmd->stdout_is_file("test/parse_e_hbf_mh_hbf.ignore_none");
-$cmd->stderr_is_eq($EMPTY);
-
-$cmd = Test::Command->new(
- cmd => "$efa $test_parse < test/dump_ambiguous"
-);
-
-$cmd->exit_is_num(1);
-$cmd->stdout_is_eq($EMPTY);
-$cmd->stderr_is_file('test/parse_ambiguous');
-
-$cmd = Test::Command->new(
- cmd => "$efa $test_parse < test/dump_no_connections"
-);
-
-$cmd->exit_is_num(2);
-$cmd->stdout_is_eq($EMPTY);
-$cmd->stderr_is_file('test/parse_no_connections');
-
-$cmd = Test::Command->new(
- cmd => "$efa $test_parse < test/dump_invalid_input"
-);
-
-$cmd->exit_is_num(3);
-$cmd->stdout_is_eq($EMPTY);
-$cmd->stderr_is_file('test/parse_invalid_input');