From 5e98acb5ba47129fe3d9edcf1b400c3cdacc0838 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Tue, 11 May 2010 18:27:18 +0200 Subject: Fix --ignore-info handling, add more parser tests --- test/50-efa.t | 27 +++++++++++++++++++++++++-- 1 file changed, 25 insertions(+), 2 deletions(-) (limited to 'test/50-efa.t') 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(''); -- cgit v1.2.3