summaryrefslogtreecommitdiff
path: root/test/50-efa.t
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2010-05-11 18:27:18 +0200
committerDaniel Friesel <derf@derf.homelinux.org>2010-05-11 18:27:18 +0200
commit5e98acb5ba47129fe3d9edcf1b400c3cdacc0838 (patch)
tree69031751ee758ff2caa250befb7778a8e7edde84 /test/50-efa.t
parentb0eb2aa49c97188d4fd25b609f360d5da8c09bca (diff)
Fix --ignore-info handling, add more parser tests
Diffstat (limited to 'test/50-efa.t')
-rw-r--r--test/50-efa.t27
1 files changed, 25 insertions, 2 deletions
diff --git a/test/50-efa.t b/test/50-efa.t
index 21bd515..a47f9a0 100644
--- a/test/50-efa.t
+++ b/test/50-efa.t
@@ -2,7 +2,7 @@
use strict;
use warnings;
use 5.010;
-use Test::Command tests => 57;
+use Test::Command tests => 72;
my $efa = 'bin/efa';
my $testarg = "E HBf MH HBf";
@@ -96,10 +96,33 @@ for my $opt (qw/-v --version/) {
}
-for my $file (qw/e_hbf_mh_hbf e_hbf_du_hbf.ice/) {
+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('');