From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 18 Sep 2021 13:33:17 +0000 (-0700)
Subject: add test cases for -fpva
X-Git-Tag: 20210717.03~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2bb65ba4782c9208371d823f054ffe4d2cf616a5;p=perltidy.git

add test cases for -fpva
---

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...........
         },