added test case for tabs within var names

diff --git a/t/snippets/expect/space1.def b/t/snippets/expect/space1.def
index 015d278800cc1f12fb7ad011dd1a2abb3d600def..4537b7b9b4f32849d06bef7105cf796aeaff34c1 100644 (file)
--- a/t/snippets/expect/space1.def
+++ b/t/snippets/expect/space1.def
@@ -6,3 +6,6 @@
 
     # remove unwanted spaces after $ and -> here
     &{ $_->[1] }( delete $_[$#_]{ $_->[0] } );
+
+    # this has both tabs and spaces to remove
+    $setup = $labels->labelsetup( Output_Width => 2.625 );

diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt
index a662e85a9d9a1476aebf5ca9369b49d88cd436e1..943a49d4cd0879ae04896fb99f76890ee33d720c 100644 (file)
--- a/t/snippets/packing_list.txt
+++ b/t/snippets/packing_list.txt
@@ -286,6 +286,8 @@
 ../snippets22.t        extrude5.extrude
 ../snippets22.t        kba1.def
 ../snippets22.t        kba1.kba1
+../snippets22.t        git45.def
+../snippets22.t        git45.git45
 ../snippets3.t ce_wn1.ce_wn
 ../snippets3.t ce_wn1.def
 ../snippets3.t colin.colin
@@ -426,5 +428,3 @@
 ../snippets9.t rt98902.def
 ../snippets9.t rt98902.rt98902
 ../snippets9.t rt99961.def
-../snippets22.t        git45.def
-../snippets22.t        git45.git45

diff --git a/t/snippets/space1.in b/t/snippets/space1.in
index 0cd7329ebd65e7d8c4c91e1b98b8f2134253d17f..199f28df6a57f6bbaec7defd5d383b52f1005b08 100644 (file)
--- a/t/snippets/space1.in
+++ b/t/snippets/space1.in
@@ -6,3 +6,6 @@
 
     # remove unwanted spaces after $ and -> here
     &{ $ _ -> [1] }( delete $ _ [$#_   ]{ $_   ->     [0] } );
+
+    # this has both tabs and spaces to remove
+    $   setup = $       labels ->       labelsetup( Output_Width       => 2.625) ;

diff --git a/t/snippets10.t b/t/snippets10.t
index 4220258d99827f045711125a199ab3f945447e74..c6f904efea0fedb4b8defbea9a9949dc9ce43fad 100644 (file)
--- a/t/snippets10.t
+++ b/t/snippets10.t
@@ -302,6 +302,9 @@ qr/3/ ~~ 12345;
 
     # remove unwanted spaces after $ and -> here
     &{ $ _ -> [1] }( delete $ _ [$#_   ]{ $_   ->     [0] } );
+
+    # this has both tabs and spaces to remove
+    $   setup = $       labels ->       labelsetup( Output_Width       => 2.625) ;
 ----------
 
         'space2' => <<'----------',
@@ -620,6 +623,9 @@ qr/3/                   ~~ 12345;
 
     # remove unwanted spaces after $ and -> here
     &{ $_->[1] }( delete $_[$#_]{ $_->[0] } );
+
+    # this has both tabs and spaces to remove
+    $setup = $labels->labelsetup( Output_Width => 2.625 );
 #9...........
         },