add test cases for -fpva

diff --git a/t/snippets/expect/fpva.def b/t/snippets/expect/fpva.def
index 1931ffb678c95674f227ee405a8129a8ca83cac7..afa88eeae1953bd5d2554148905956ee0614ad3f 100644 (file)
--- 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 0b3a299aeb105656abcec5dffd0e08c7b2792757..9555afa4462f11ace5894bd7d2cd78606cace4b4 100644 (file)
--- 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 f502043c3f13a82441fed438056aed944d764e0e..cd1731d1f59d9d69cc8ce5a4af844aad9a18a281 100644 (file)
--- 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 cc9022af24ad8ac975f555452b7d40bbb981d224..67771c982f5d6167850c59852dd4433aff3eefca 100644 (file)
--- 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 d8c8b00b36c8e4c9f34d448a8bb619b0ab9435b8..1d48104427b4b576e7798e82096d8804bcf9f2a0 100644 (file)
--- 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 5df46196937e43da75a15bc621b2d4b60a433942..889b10e8fa608b29f6008e0b3d9e77b8876ab6d4 100644 (file)
--- 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 f2b83778c6b8ef174f4ef748c3b88857c00a63b3..157093acac8a27df569d150cf240ce39b5e66a67 100644 (file)
--- 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...........
         },