From cc29666695d019a905a4a46d137b779d74b04c11 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Sun, 10 May 2020 07:19:38 -0700 Subject: [PATCH] added test for -wc --- t/snippets/expect/wc.def | 22 ++++++++ t/snippets/expect/wc.wc1 | 21 ++++++++ t/snippets/expect/wc.wc2 | 15 ++++++ t/snippets/packing_list.txt | 4 ++ t/snippets/wc.in | 15 ++++++ t/snippets/wc1.par | 1 + t/snippets/wc2.par | 1 + t/snippets20.t | 102 ++++++++++++++++++++++++++++++++++++ 8 files changed, 181 insertions(+) create mode 100644 t/snippets/expect/wc.def create mode 100644 t/snippets/expect/wc.wc1 create mode 100644 t/snippets/expect/wc.wc2 create mode 100644 t/snippets/wc.in create mode 100644 t/snippets/wc1.par create mode 100644 t/snippets/wc2.par diff --git a/t/snippets/expect/wc.def b/t/snippets/expect/wc.def new file mode 100644 index 00000000..107dfbba --- /dev/null +++ b/t/snippets/expect/wc.def @@ -0,0 +1,22 @@ +{ + my (@indices) = + sort { + $dir eq 'left' ? $cells[$a] <=> $cells[$b] : $cells[$b] <=> $cells[$a]; + } ( 0 .. $#cells ); + + { + { + { + { + if ( !$array[0] ) { + $array[0] = + &$CantProcessPartFunc( + $entity->{'fields'}{'content-type'} ); + } + + } + } + } + } +} + diff --git a/t/snippets/expect/wc.wc1 b/t/snippets/expect/wc.wc1 new file mode 100644 index 00000000..c29a58af --- /dev/null +++ b/t/snippets/expect/wc.wc1 @@ -0,0 +1,21 @@ +{ + my (@indices) = + sort { + $dir eq 'left' ? $cells[$a] <=> $cells[$b] : $cells[$b] <=> $cells[$a]; + } ( 0 .. $#cells ); + + { + { + { + { + if ( !$array[0] ) { + $array[0] = + &$CantProcessPartFunc( $entity->{'fields'}{'content-type'} ); + } + + } + } + } + } +} + diff --git a/t/snippets/expect/wc.wc2 b/t/snippets/expect/wc.wc2 new file mode 100644 index 00000000..c1b7c28b --- /dev/null +++ b/t/snippets/expect/wc.wc2 @@ -0,0 +1,15 @@ +{ + my (@indices) = + sort { + $dir eq 'left' ? $cells[$a] <=> $cells[$b] : $cells[$b] <=> $cells[$a]; + } ( 0 .. $#cells ); + + { { { { + if ( !$array[0] ) { + $array[0] = + &$CantProcessPartFunc( $entity->{'fields'}{'content-type'} ); + } + + } } } } +} + diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt index 7a99d59c..9ecdd1a1 100644 --- a/t/snippets/packing_list.txt +++ b/t/snippets/packing_list.txt @@ -234,6 +234,7 @@ ../snippets2.t ce1.def ../snippets20.t space6.def ../snippets20.t space6.space6 +../snippets20.t sub3.def ../snippets3.t ce_wn1.ce_wn ../snippets3.t ce_wn1.def ../snippets3.t colin.colin @@ -374,3 +375,6 @@ ../snippets9.t rt98902.def ../snippets9.t rt98902.rt98902 ../snippets9.t rt99961.def +../snippets20.t wc.def +../snippets20.t wc.wc1 +../snippets20.t wc.wc2 diff --git a/t/snippets/wc.in b/t/snippets/wc.in new file mode 100644 index 00000000..4504b22b --- /dev/null +++ b/t/snippets/wc.in @@ -0,0 +1,15 @@ +{ + my (@indices) = + sort { + $dir eq 'left' ? $cells[$a] <=> $cells[$b] : $cells[$b] <=> $cells[$a]; + } (0 .. $#cells); + +{{{{ + if ( !$array[0] ) { + $array[0] = + &$CantProcessPartFunc( $entity->{'fields'}{ + 'content-type'} ); + } + +}}}}} + diff --git a/t/snippets/wc1.par b/t/snippets/wc1.par new file mode 100644 index 00000000..2f5c692e --- /dev/null +++ b/t/snippets/wc1.par @@ -0,0 +1 @@ +-wc=4 diff --git a/t/snippets/wc2.par b/t/snippets/wc2.par new file mode 100644 index 00000000..b99db02f --- /dev/null +++ b/t/snippets/wc2.par @@ -0,0 +1 @@ +-wc=4 -wn diff --git a/t/snippets20.t b/t/snippets20.t index 0f7486c5..5f41b56a 100644 --- a/t/snippets20.t +++ b/t/snippets20.t @@ -4,6 +4,9 @@ #1 space6.def #2 space6.space6 #3 sub3.def +#4 wc.def +#5 wc.wc1 +#6 wc.wc2 # To locate test #13 you can search for its name or the string '#13' @@ -26,6 +29,8 @@ BEGIN { -nwrs="+ - / *" -nwls="+ - / *" ---------- + 'wc1' => "-wc=4", + 'wc2' => "-wc=4 -wn", }; ############################ @@ -50,6 +55,24 @@ my $aa = sub my $bb = sub # { n_stmtexp $_[1] }; +---------- + + 'wc' => <<'----------', +{ + my (@indices) = + sort { + $dir eq 'left' ? $cells[$a] <=> $cells[$b] : $cells[$b] <=> $cells[$a]; + } (0 .. $#cells); + +{{{{ + if ( !$array[0] ) { + $array[0] = + &$CantProcessPartFunc( $entity->{'fields'}{ + 'content-type'} ); + } + +}}}}} + ---------- }; @@ -96,6 +119,85 @@ my $bb = sub # { n_stmtexp $_[1] }; #3........... }, + + 'wc.def' => { + source => "wc", + params => "def", + expect => <<'#4...........', +{ + my (@indices) = + sort { + $dir eq 'left' ? $cells[$a] <=> $cells[$b] : $cells[$b] <=> $cells[$a]; + } ( 0 .. $#cells ); + + { + { + { + { + if ( !$array[0] ) { + $array[0] = + &$CantProcessPartFunc( + $entity->{'fields'}{'content-type'} ); + } + + } + } + } + } +} + +#4........... + }, + + 'wc.wc1' => { + source => "wc", + params => "wc1", + expect => <<'#5...........', +{ + my (@indices) = + sort { + $dir eq 'left' ? $cells[$a] <=> $cells[$b] : $cells[$b] <=> $cells[$a]; + } ( 0 .. $#cells ); + + { + { + { + { + if ( !$array[0] ) { + $array[0] = + &$CantProcessPartFunc( $entity->{'fields'}{'content-type'} ); + } + + } + } + } + } +} + +#5........... + }, + + 'wc.wc2' => { + source => "wc", + params => "wc2", + expect => <<'#6...........', +{ + my (@indices) = + sort { + $dir eq 'left' ? $cells[$a] <=> $cells[$b] : $cells[$b] <=> $cells[$a]; + } ( 0 .. $#cells ); + + { { { { + if ( !$array[0] ) { + $array[0] = + &$CantProcessPartFunc( $entity->{'fields'}{'content-type'} ); + } + + } } } } +} + +#6........... + }, }; my $ntests = 0 + keys %{$rtests}; -- 2.39.5