diff options
Diffstat (limited to 't/60-bin-efa.t')
| -rw-r--r-- | t/60-bin-efa.t | 164 |
1 files changed, 164 insertions, 0 deletions
diff --git a/t/60-bin-efa.t b/t/60-bin-efa.t new file mode 100644 index 0000000..d14c399 --- /dev/null +++ b/t/60-bin-efa.t @@ -0,0 +1,164 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.010; + +use Test::Command tests => (27); + +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 < t/in/$file"); + + $cmd->exit_is_num(0); + $cmd->stdout_is_file("t/out/$file"); + $cmd->stderr_is_eq($EMPTY); +} + +$cmd = Test::Command->new( + cmd => "$efa $test_parse --ignore-info '.*' < t/in/e_hbf_b_hbf.ice" +); + +$cmd->exit_is_num(0); +$cmd->stdout_is_file("t/out/e_hbf_b_hbf.ice.ignore_all"); +$cmd->stderr_is_eq($EMPTY); + +$cmd = Test::Command->new( + cmd => "$efa $test_parse --ignore-info '' < t/in/e_hbf_mh_hbf" +); + +$cmd->exit_is_num(0); +$cmd->stdout_is_file("t/out/e_hbf_mh_hbf.ignore_none"); +$cmd->stderr_is_eq($EMPTY); + +__END__ + +$cmd = Test::Command->new( + cmd => "$efa $test_parse < t/in/ambiguous" +); + +$cmd->exit_is_num(1); +$cmd->stdout_is_eq($EMPTY); +$cmd->stderr_is_file('t/out/ambiguous'); + +$cmd = Test::Command->new( + cmd => "$efa $test_parse < t/in/no_connections" +); + +$cmd->exit_is_num(2); +$cmd->stdout_is_eq($EMPTY); +$cmd->stderr_is_file('t/out/no_connections'); + +$cmd = Test::Command->new( + cmd => "$efa $test_parse < t/in/invalid_input" +); + +$cmd->exit_is_num(3); +$cmd->stdout_is_eq($EMPTY); +$cmd->stderr_is_file('t/out/invalid_input'); |