From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 27 Apr 2003 08:13:34 +0000 (+0000)
Subject: Add a test case for [perl #15288] (already solved).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=db37a92e82b89bddd13b884e84f66b3fa0b4de08;p=p5sagit%2Fp5-mst-13.2.git

Add a test case for [perl #15288] (already solved).

p4raw-id: //depot/perl@19351
---

diff --git a/t/op/pack.t b/t/op/pack.t
index d3be738..0c7d51d 100755
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan tests => 5849;
+plan tests => 5852;
 
 use strict;
 use warnings;
@@ -1100,3 +1100,11 @@ ok(pack('u2', 'AA'), "[perl #8026]"); # used to hang and eat RAM in perl 5.7.2
 
 $_ = pack('c', 65); # 'A' would not be EBCDIC-friendly
 is(unpack('c'), 65, "one-arg unpack (change #18751)"); # defaulting to $_
+
+{
+    my $a = "X\t01234567\n" x 100;
+    my @a = unpack("(a1 c/a)*", $a);
+    is(scalar @a, 200,       "[perl #15288]");
+    is($a[-1], "01234567\n", "[perl #15288]");
+    is($a[-2], "X",          "[perl #15288]");
+}