From efb78d13e88f09e1c42f464b0f2a4b96748960bb Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Thu, 27 Jan 2005 16:40:07 +0000 Subject: [PATCH] Oops. Was forgetting to test n! N! v! V! in pack p4raw-id: //depot/perl@23888 --- t/op/pack.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/t/op/pack.t b/t/op/pack.t index df34c39..102a0ce 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -12,7 +12,7 @@ my $no_endianness = $] > 5.009 ? '' : my $no_signedness = $] > 5.009 ? '' : "Signed/unsigned pack modifiers not available on this perl"; -plan tests => 13823; +plan tests => 13855; use strict; use warnings; @@ -228,8 +228,9 @@ sub list_eq ($$) { # expect it for this perl. my $can_endian = $no_endianness ? '' : 'sSiIlLqQjJfFdDpP'; my $can_shriek = 'sSiIlL'; + $can_shriek .= 'nNvV' unless $no_signedness; # h and H can't do either, so act as sanity checks in blead - foreach my $base (split '', 'sSiIlLqQjJfFdDpPhH') { + foreach my $base (split '', 'hHsSiIlLqQjJfFdDpPnNvV') { foreach my $mod ('', '<', '>', '!', '!', '!<', '!>') { SKIP: { # Avoid void context warnings. @@ -271,7 +272,6 @@ sub list_eq ($$) { } } - $can_shriek .= 'nNvV' unless $no_signedness; SKIP: { skip $no_endianness, 2*3 + 2*8 if $no_endianness; for my $mod (qw( ! < > )) { -- 2.7.4