added -xci test case

diff --git a/t/snippets/expect/xci.def b/t/snippets/expect/xci.def
index cde75b91f837ec3eb1f9a2872585c43b88ec8733..43c95ad5b7dac941821c6f5de23aaa599b21298a 100644 (file)
--- 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 6550b9af4d8158ace58dd738ad6a55df6f291cbc..1619865753aad0b6426f67f43b8801b876dc2689 100644 (file)
--- 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 24c19b636b0bc24dd707526397418effc6143dac..27df61364c995737a0809cea277d486668615f49 100644 (file)
--- 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 a51e55efbb273a870ccbc6f244cfddba50b907a5..d4502f4b7973bec15bdfba48e641db073cd11f3b 100644 (file)
--- 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 73414883fdc759e172c6791b6a403944be3fc3fe..0ef67a3d147c3c589cd005d0f9c4c1a48fd7963e 100644 (file)
--- 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...........
         },