blob: a47f9a00a2d0ac4a83c691bd2b4fe70880b5fe2a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Test::Command tests => 72;
my $efa = 'bin/efa';
my $testarg = "E HBf MH HBf";
my $test_parse = "--test-parse $testarg";
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 = "Invalid argument. See manpage for --exclude usage\n";
my $err_prefer = "Invalid argument. Usage: --prefer speed|nowait|nowalk\n";
my $err_include = "Invalid argument. Usage: --include local|ic|ice\n";
my $err_time = "Invalid argument. Usage: --time HH:MM\n";
my $err_date = "Invalid argument: Usage: --date DD.MM[.YYYY]\n";
my $err_walk_speed
= "Invalid argument. Uaseg: --walk-speed normal|fast|slow\n";
# Usage on invalid invocation
my $cmd = Test::Command->new(cmd => "$efa");
$cmd->exit_isnt_num(0);
$cmd->stdout_is_eq('');
$cmd->stderr_like($re_usage);
$cmd = Test::Command->new(cmd => "$efa E HBf MH");
$cmd->exit_isnt_num(0);
$cmd->stdout_is_eq('');
$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('');
$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('');
$cmd->stderr_is_eq($err_exclude);
}
for my $opt (qw/-P --prefer/) {
$cmd = Test::Command->new(cmd => "$efa $opt invalid $testarg");
$cmd->exit_isnt_num(0);
$cmd->stdout_is_eq('');
$cmd->stderr_is_eq($err_prefer);
}
for my $opt (qw/-i --include/) {
$cmd = Test::Command->new(cmd => "$efa $opt invalid $testarg");
$cmd->exit_isnt_num(0);
$cmd->stdout_is_eq('');
$cmd->stderr_is_eq($err_include);
}
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('');
$cmd->stderr_is_eq($err_walk_speed);
}
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('');
$cmd->stderr_is_eq($err_time);
}
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('');
$cmd->stderr_is_eq($err_date);
}
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('');
}
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('');
}
$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('');
$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('');
|
