add test case for parsing signatures

diff --git a/t/snippets/expect/mangle4.def b/t/snippets/expect/mangle4.def
new file mode 100644 (file)
index 0000000..ed06276
--- /dev/null
+++ b/t/snippets/expect/mangle4.def
@@ -0,0 +1,17 @@
+# a useful parsing test from 'signatures.t'
+use feature "signatures";
+no warnings "experimental::signatures";
+
+sub t086 (    #foo)))
+    $         #foo)))
+      a       #foo)))
+    ,         #foo)))
+    ,         #foo)))
+    $         #foo)))
+      b       #foo)))
+      =       #foo)))
+      333     #foo)))
+    ,         #foo)))
+    ,         #foo)))
+  )           #foo)))
+{ $a . $b }

diff --git a/t/snippets/expect/mangle4.mangle b/t/snippets/expect/mangle4.mangle
new file mode 100644 (file)
index 0000000..80e5a40
--- /dev/null
+++ b/t/snippets/expect/mangle4.mangle
@@ -0,0 +1,16 @@
+# a useful parsing test from 'signatures.t'
+use feature "signatures";
+no warnings "experimental::signatures";
+sub t086(#foo)))
+$ #foo)))
+  a#foo)))
+,#foo)))
+,#foo)))
+$ #foo)))
+  b#foo)))
+  =#foo)))
+  333#foo)))
+,#foo)))
+,#foo)))
+  )#foo)))
+{$a.$b}

diff --git a/t/snippets/mangle4.in b/t/snippets/mangle4.in
new file mode 100644 (file)
index 0000000..e8d388a
--- /dev/null
+++ b/t/snippets/mangle4.in
@@ -0,0 +1,17 @@
+# a useful parsing test from 'signatures.t'
+use feature "signatures";
+no warnings "experimental::signatures";
+sub t086
+    ( #foo)))
+    $ #foo)))
+    a #foo)))
+    , #foo)))
+    , #foo)))
+    $ #foo)))
+    b #foo)))
+    = #foo)))
+    333 #foo)))
+    , #foo)))
+    , #foo)))
+    ) #foo)))
+    { $a.$b }

diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt
index cdb09985211d8890712cba941c04341bd5e5f463..f124af0de8892b486dc7f3349105fe298befd380 100644 (file)
--- a/t/snippets/packing_list.txt
+++ b/t/snippets/packing_list.txt
@@ -420,3 +420,5 @@
 ../snippets9.t rt98902.def
 ../snippets9.t rt98902.rt98902
 ../snippets9.t rt99961.def
+../snippets22.t        mangle4.def
+../snippets22.t        mangle4.mangle

diff --git a/t/snippets22.t b/t/snippets22.t
index c36c98061017a4eb336d48dacd048c86c03bfaa2..082fcad0602dbd56b24625e197bacf8992c4caf3 100644 (file)
--- a/t/snippets22.t
+++ b/t/snippets22.t
@@ -11,6 +11,8 @@
 #8 xci.def
 #9 xci.xci1
 #10 xci.xci2
+#11 mangle4.def
+#12 mangle4.mangle
 
 # To locate test #13 you can search for its name or the string '#13'
 
@@ -37,6 +39,7 @@ BEGIN {
 ----------
         'def'       => "",
         'here_long' => "-l=33",
+        'mangle'    => "--mangle",
         'xci1'      => "-xci",
         'xci2'      => "-pbp -nst -nse -xci",
     };
@@ -114,6 +117,26 @@ $sth= $dbh->prepare (<<"END_OF_SELECT") or die "Couldn't prepare SQL" ;
     FROM logins WHERE username='$user'
 END_OF_SELECT
 
+----------
+
+        'mangle4' => <<'----------',
+# a useful parsing test from 'signatures.t'
+use feature "signatures";
+no warnings "experimental::signatures";
+sub t086
+    ( #foo)))
+    $ #foo)))
+    a #foo)))
+    , #foo)))
+    , #foo)))
+    $ #foo)))
+    b #foo)))
+    = #foo)))
+    333 #foo)))
+    , #foo)))
+    , #foo)))
+    ) #foo)))
+    { $a.$b }
 ----------
 
         'xci' => <<'----------',
@@ -390,6 +413,53 @@ my $otherHashRef
     : undef;
 #10...........
         },
+
+        'mangle4.def' => {
+            source => "mangle4",
+            params => "def",
+            expect => <<'#11...........',
+# a useful parsing test from 'signatures.t'
+use feature "signatures";
+no warnings "experimental::signatures";
+
+sub t086 (    #foo)))
+    $         #foo)))
+      a       #foo)))
+    ,         #foo)))
+    ,         #foo)))
+    $         #foo)))
+      b       #foo)))
+      =       #foo)))
+      333     #foo)))
+    ,         #foo)))
+    ,         #foo)))
+  )           #foo)))
+{ $a . $b }
+#11...........
+        },
+
+        'mangle4.mangle' => {
+            source => "mangle4",
+            params => "mangle",
+            expect => <<'#12...........',
+# a useful parsing test from 'signatures.t'
+use feature "signatures";
+no warnings "experimental::signatures";
+sub t086(#foo)))
+$ #foo)))
+  a#foo)))
+,#foo)))
+,#foo)))
+$ #foo)))
+  b#foo)))
+  =#foo)))
+  333#foo)))
+,#foo)))
+,#foo)))
+  )#foo)))
+{$a.$b}
+#12...........
+        },
     };
 
     my $ntests = 0 + keys %{$rtests};