diff options
| author | Ævar Arnfjörð Bjarmason <avar@cpan.org> | 2014-06-21 17:57:40 +0000 |
|---|---|---|
| committer | Ævar Arnfjörð Bjarmason <avar@cpan.org> | 2014-06-21 17:58:43 +0000 |
| commit | 43d7f0da895d00d0f557ad72549ddb3194763b55 (patch) | |
| tree | 30c3341d95a37432a0ff126f51be50e8acffa95e /t | |
| parent | 826af139e95c118234b3f5cbaeab5d162e476795 (diff) | |
| download | perl-43d7f0da895d00d0f557ad72549ddb3194763b55.tar.gz | |
Fix black Win32 smoke broken by my v5.21.1-11-g4077a6b (again)
Fix a silly bug in v5.21.1-12-g826af13, when $Q was false I added 12
extra test, but didn't declare them, do that.
Diffstat (limited to 't')
| -rw-r--r-- | t/op/sprintf2.t | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/t/op/sprintf2.t b/t/op/sprintf2.t index 4116237b60..0a60f7bfa0 100644 --- a/t/op/sprintf2.t +++ b/t/op/sprintf2.t @@ -8,7 +8,11 @@ BEGIN { require './test.pl'; } -plan tests => 1406; +# We'll run 12 extra tests (see below) if $Q is false. +eval { my $q = pack "q", 0 }; +my $Q = $@ eq ''; + +plan tests => 1406 + ($Q ? 0 : 12); use strict; use Config; @@ -282,9 +286,6 @@ foreach my $n (2**1e100, -2**1e100, 2**1e100/2**1e100) { # +Inf, -Inf, NaN } # test %ll formats with and without HAS_QUAD -eval { my $q = pack "q", 0 }; -my $Q = $@ eq ''; - my @tests = ( [ '%lld' => [qw( 4294967296 -100000000000000 )] ], [ '%lli' => [qw( 4294967296 -100000000000000 )] ], |