Coverage stats showed that there were no tests for taking a slice

from ().

p4raw-id: //depot/perl@25920

diff --git a/t/op/list.t b/t/op/list.t
index 89ccf02..d655f6b 100755 (executable)
--- a/t/op/list.t
+++ b/t/op/list.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..30\n";
+print "1..31\n";
 
 @foo = (1, 2, 3, 4);
 if ($foo[0] == 1 && $foo[3] == 4) {print "ok 1\n";} else {print "not ok 1\n";}
@@ -95,4 +95,8 @@ for ($x = 0; $x < 3; $x++) {
     @b = (30, scalar @h{()});
     print "not " if join(':',@b) ne '30:';
     print "ok 30\n";
+
+    my @d = ()[1..1];
+    print "not " if @d != undef;
+    print "ok 31\n";
 }