From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 10 Nov 2020 23:54:43 +0000 (-0800)
Subject: added -xci test case
X-Git-Tag: 20201202~43
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=363ccd3332783704457988efa4a84876f82c73ca;p=perltidy.git

added -xci test case
---

diff --git a/t/snippets/expect/xci.def b/t/snippets/expect/xci.def
index cde75b91..43c95ad5 100644
--- a/t/snippets/expect/xci.def
+++ b/t/snippets/expect/xci.def
@@ -20,3 +20,13 @@ my $otherHashRef =
     }
   }
   : undef;
+
+my @globlist = ( grep { defined } @opt{qw( l q S t )} )
+  ? do {
+    local *DIR;
+    opendir DIR, './' or die "can't opendir './': $!";
+    my @a = grep { not /^\.+$/ } readdir DIR;
+    closedir DIR;
+    @a;
+  }
+  : ();
diff --git a/t/snippets/expect/xci.xci1 b/t/snippets/expect/xci.xci1
index 6550b9af..16198657 100644
--- a/t/snippets/expect/xci.xci1
+++ b/t/snippets/expect/xci.xci1
@@ -20,3 +20,13 @@ my $otherHashRef =
       }
   }
   : undef;
+
+my @globlist = ( grep { defined } @opt{qw( l q S t )} )
+  ? do {
+      local *DIR;
+      opendir DIR, './' or die "can't opendir './': $!";
+      my @a = grep { not /^\.+$/ } readdir DIR;
+      closedir DIR;
+      @a;
+  }
+  : ();
diff --git a/t/snippets/expect/xci.xci2 b/t/snippets/expect/xci.xci2
index 24c19b63..27df6136 100644
--- a/t/snippets/expect/xci.xci2
+++ b/t/snippets/expect/xci.xci2
@@ -18,3 +18,13 @@ my $otherHashRef
         }
     }
     : undef;
+
+my @globlist = ( grep {defined} @opt{qw( l q S t )} )
+    ? do {
+        local *DIR;
+        opendir DIR, './' or die "can't opendir './': $!";
+        my @a = grep { not /^\.+$/ } readdir DIR;
+        closedir DIR;
+        @a;
+    }
+    : ();
diff --git a/t/snippets/xci.in b/t/snippets/xci.in
index a51e55ef..d4502f4b 100644
--- a/t/snippets/xci.in
+++ b/t/snippets/xci.in
@@ -20,3 +20,13 @@ my $otherHashRef =
  }
  }
  : undef;
+
+my @globlist = ( grep { defined } @opt{qw( l q S t )} )
+  ? do {
+    local *DIR;
+    opendir DIR, './' or die "can't opendir './': $!";
+    my @a = grep { not /^\.+$/ } readdir DIR;
+    closedir DIR;
+    @a;
+  }
+  : ();
diff --git a/t/snippets22.t b/t/snippets22.t
index 73414883..0ef67a3d 100644
--- a/t/snippets22.t
+++ b/t/snippets22.t
@@ -225,6 +225,16 @@ my $otherHashRef =
  }
  }
  : undef;
+
+my @globlist = ( grep { defined } @opt{qw( l q S t )} )
+  ? do {
+    local *DIR;
+    opendir DIR, './' or die "can't opendir './': $!";
+    my @a = grep { not /^\.+$/ } readdir DIR;
+    closedir DIR;
+    @a;
+  }
+  : ();
 ----------
     };
 
@@ -418,6 +428,16 @@ my $otherHashRef =
     }
   }
   : undef;
+
+my @globlist = ( grep { defined } @opt{qw( l q S t )} )
+  ? do {
+    local *DIR;
+    opendir DIR, './' or die "can't opendir './': $!";
+    my @a = grep { not /^\.+$/ } readdir DIR;
+    closedir DIR;
+    @a;
+  }
+  : ();
 #8...........
         },
 
@@ -447,6 +467,16 @@ my $otherHashRef =
       }
   }
   : undef;
+
+my @globlist = ( grep { defined } @opt{qw( l q S t )} )
+  ? do {
+      local *DIR;
+      opendir DIR, './' or die "can't opendir './': $!";
+      my @a = grep { not /^\.+$/ } readdir DIR;
+      closedir DIR;
+      @a;
+  }
+  : ();
 #9...........
         },
 
@@ -474,6 +504,16 @@ my $otherHashRef
         }
     }
     : undef;
+
+my @globlist = ( grep {defined} @opt{qw( l q S t )} )
+    ? do {
+        local *DIR;
+        opendir DIR, './' or die "can't opendir './': $!";
+        my @a = grep { not /^\.+$/ } readdir DIR;
+        closedir DIR;
+        @a;
+    }
+    : ();
 #10...........
         },