diff options
| -rwxr-xr-x | bin/efa | 16 | ||||
| -rw-r--r-- | test/50-efa.t | 12 |
2 files changed, 15 insertions, 13 deletions
@@ -26,6 +26,7 @@ my $ignore_info = 'Fahrradmitnahme'; my ($test_dump, $test_parse); binmode(STDOUT, ':utf8'); +binmode(STDERR, ':utf8'); sub check_ambiguous { my ($full_tree) = @_; @@ -36,13 +37,13 @@ sub check_ambiguous { foreach my $select (@{$full_tree->findnodes($xp_select)}) { $ambiguous = 1; - printf( + printf {*STDERR} ( "Ambiguous input for %s\n", $select->getAttribute('name'), ); foreach my $val ($select->findnodes($xp_option)) { - print "\t"; - say $val->textContent(); + print {*STDERR} "\t"; + say {*STDERR} $val->textContent(); } } if ($ambiguous) { @@ -59,10 +60,10 @@ sub check_no_connections { my $err_node = $full_tree->findnodes($xp_err_img)->[0]; if ($err_node) { - say "Looks like efa.vrr.de showed an error."; - say "I will now try to dump the error message:"; + say {*STDERR} "Looks like efa.vrr.de showed an error."; + say {*STDERR} "I will now try to dump the error message:"; - say $err_node->parentNode()->parentNode()->textContent(); + say {*STDERR} $err_node->parentNode()->parentNode()->textContent(); exit 2; } @@ -268,7 +269,8 @@ sub parse_tree { return $cons; } else { - say "efa.vrr.de returned no connections, check your input data."; + say {*STDERR} + "efa.vrr.de returned no connections, check your input data."; exit 3; } } diff --git a/test/50-efa.t b/test/50-efa.t index ef97fb9..0c1d7ab 100644 --- a/test/50-efa.t +++ b/test/50-efa.t @@ -142,21 +142,21 @@ $cmd = Test::Command->new( ); $cmd->exit_is_num(1); -$cmd->stdout_is_file('test/parse_ambiguous'); -$cmd->stderr_is_eq($EMPTY); +$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_file('test/parse_no_connections'); -$cmd->stderr_is_eq($EMPTY); +$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_file('test/parse_invalid_input'); -$cmd->stderr_is_eq($EMPTY); +$cmd->stdout_is_eq($EMPTY); +$cmd->stderr_is_file('test/parse_invalid_input'); |