From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 27 Jan 2005 16:40:07 +0000 (+0000)
Subject: Oops. Was forgetting to test n! N! v! V! in pack
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=efb78d13e88f09e1c42f464b0f2a4b96748960bb;p=p5sagit%2Fp5-mst-13.2.git

Oops. Was forgetting to test n! N! v! V! in pack

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

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( ! < > )) {