From: Steve Peters <steve@fisharerojo.org>
Date: Mon, 31 Oct 2005 11:58:08 +0000 (+0000)
Subject: Coverage stats showed that there were no tests for taking a slice
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=59abd33597c479b9e5620fa06c6c6a9f2917f858;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";
 }