From 2bb65ba4782c9208371d823f054ffe4d2cf616a5 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Sat, 18 Sep 2021 06:33:17 -0700 Subject: [PATCH] add test cases for -fpva --- t/snippets/expect/fpva.def | 2 ++ t/snippets/expect/fpva.fpva1 | 2 ++ t/snippets/expect/fpva.fpva2 | 2 ++ t/snippets/fpva.in | 2 ++ t/snippets/fpva2.par | 2 +- t/snippets/packing_list.txt | 7 +++---- t/snippets24.t | 12 +++++++++++- 7 files changed, 23 insertions(+), 6 deletions(-) diff --git a/t/snippets/expect/fpva.def b/t/snippets/expect/fpva.def index 1931ffb6..afa88eea 100644 --- a/t/snippets/expect/fpva.def +++ b/t/snippets/expect/fpva.def @@ -3,3 +3,5 @@ Coro::AnyEvent::sleep( 3, 4 ); use Carp (); use File::Spec (); use File::Path (); +$self->method( 'parameter_0', 'parameter_1' ); +$self->method_with_long_name( 'parameter_0', 'parameter_1' ); diff --git a/t/snippets/expect/fpva.fpva1 b/t/snippets/expect/fpva.fpva1 index 0b3a299a..9555afa4 100644 --- a/t/snippets/expect/fpva.fpva1 +++ b/t/snippets/expect/fpva.fpva1 @@ -3,3 +3,5 @@ Coro::AnyEvent::sleep ( 3, 4 ); use Carp (); use File::Spec (); use File::Path (); +$self->method ( 'parameter_0', 'parameter_1' ); +$self->method_with_long_name ( 'parameter_0', 'parameter_1' ); diff --git a/t/snippets/expect/fpva.fpva2 b/t/snippets/expect/fpva.fpva2 index f502043c..cd1731d1 100644 --- a/t/snippets/expect/fpva.fpva2 +++ b/t/snippets/expect/fpva.fpva2 @@ -3,3 +3,5 @@ Coro::AnyEvent::sleep ( 3, 4 ); use Carp (); use File::Spec (); use File::Path (); +$self -> method ( 'parameter_0', 'parameter_1' ); +$self -> method_with_long_name ( 'parameter_0', 'parameter_1' ); diff --git a/t/snippets/fpva.in b/t/snippets/fpva.in index cc9022af..67771c98 100644 --- a/t/snippets/fpva.in +++ b/t/snippets/fpva.in @@ -3,3 +3,5 @@ Coro::AnyEvent::sleep( 3, 4 ); use Carp (); use File::Spec (); use File::Path (); +$self -> method ( 'parameter_0', 'parameter_1' ); +$self -> method_with_long_name ( 'parameter_0', 'parameter_1' ); diff --git a/t/snippets/fpva2.par b/t/snippets/fpva2.par index d8c8b00b..1d481044 100644 --- a/t/snippets/fpva2.par +++ b/t/snippets/fpva2.par @@ -1 +1 @@ --sfp -nfpva +-sfp -wls='->' -wrs='->' -nfpva diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt index 5df46196..889b10e8 100644 --- a/t/snippets/packing_list.txt +++ b/t/snippets/packing_list.txt @@ -328,7 +328,9 @@ ../snippets24.t git51.git51 ../snippets24.t pretok.def ../snippets25.t novalign.def -../snippets25.t novalign.novalign +../snippets25.t novalign.novalign1 +../snippets25.t novalign.novalign2 +../snippets25.t novalign.novalign3 ../snippets3.t ce_wn1.ce_wn ../snippets3.t ce_wn1.def ../snippets3.t colin.colin @@ -469,6 +471,3 @@ ../snippets9.t rt98902.def ../snippets9.t rt98902.rt98902 ../snippets9.t rt99961.def -../snippets25.t novalign.novalign1 -../snippets25.t novalign.novalign2 -../snippets25.t novalign.novalign3 diff --git a/t/snippets24.t b/t/snippets24.t index f2b83778..157093ac 100644 --- a/t/snippets24.t +++ b/t/snippets24.t @@ -39,7 +39,9 @@ BEGIN { $rparams = { 'def' => "", 'fpva1' => "-sfp", - 'fpva2' => "-sfp -nfpva", + 'fpva2' => <<'----------', +-sfp -wls='->' -wrs='->' -nfpva +---------- 'git51' => <<'----------', --maximum-line-length=120 --converge @@ -119,6 +121,8 @@ Coro::AnyEvent::sleep( 3, 4 ); use Carp (); use File::Spec (); use File::Path (); +$self -> method ( 'parameter_0', 'parameter_1' ); +$self -> method_with_long_name ( 'parameter_0', 'parameter_1' ); ---------- 'git51' => <<'----------', @@ -435,6 +439,8 @@ Coro::AnyEvent::sleep( 3, 4 ); use Carp (); use File::Spec (); use File::Path (); +$self->method( 'parameter_0', 'parameter_1' ); +$self->method_with_long_name( 'parameter_0', 'parameter_1' ); #3........... }, @@ -447,6 +453,8 @@ Coro::AnyEvent::sleep ( 3, 4 ); use Carp (); use File::Spec (); use File::Path (); +$self->method ( 'parameter_0', 'parameter_1' ); +$self->method_with_long_name ( 'parameter_0', 'parameter_1' ); #4........... }, @@ -459,6 +467,8 @@ Coro::AnyEvent::sleep ( 3, 4 ); use Carp (); use File::Spec (); use File::Path (); +$self -> method ( 'parameter_0', 'parameter_1' ); +$self -> method_with_long_name ( 'parameter_0', 'parameter_1' ); #5........... }, -- 2.39.5