From db37a92e82b89bddd13b884e84f66b3fa0b4de08 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sun, 27 Apr 2003 08:13:34 +0000 Subject: [PATCH] Add a test case for [perl #15288] (already solved). p4raw-id: //depot/perl@19351 --- t/op/pack.t | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) 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]"); +} -- 2.7.4