This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
(perl #134008) an alternative test
authorTony Cook <tony@develop-help.com>
Mon, 3 Jun 2019 04:34:17 +0000 (14:34 +1000)
committerTony Cook <tony@develop-help.com>
Mon, 3 Jun 2019 04:46:42 +0000 (14:46 +1000)
t/op/sprintf2.t

index 569bd80..84259a4 100644 (file)
@@ -840,6 +840,7 @@ SKIP: {
 
     # [rt.perl.org #134008]
     is(sprintf("%.*a", -99999, 1.03125), "0x1.08p+0", "[rt.perl.org #134008]");
+    is(sprintf("%.*a", -100000,0), "0x0p+0", "negative precision ignored by format_hexfp");
 
     # [rt.perl.org #128890]
     is(sprintf("%a", 0x1.18p+0), "0x1.18p+0");