From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 8 Nov 2020 15:04:58 +0000 (-0800)
Subject: added test case for tabs within var names
X-Git-Tag: 20201202~49
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=287a749aa31b51885462221861b51c8227931e87;p=perltidy.git

added test case for tabs within var names
---

diff --git a/t/snippets/expect/space1.def b/t/snippets/expect/space1.def
index 015d2788..4537b7b9 100644
--- 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 a662e85a..943a49d4 100644
--- 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 0cd7329e..199f28df 100644
--- 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 4220258d..c6f904ef 100644
--- 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...........
         },