This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
hexfp: printf %.13a 1.0
[perl5.git] / t / op / sprintf2.t
index 6aa994c..1f0c515 100644 (file)
@@ -67,6 +67,9 @@ if ($Config{nvsize} == 8 &&
         [ '% 20.10a', '3.14',   '   0x1.91eb851eb8p+1' ],
         [ '%020.10a', '3.14',   '0x0001.91eb851eb8p+1' ],
 
+        [ '%.13a',    '1',   '0x1.0000000000000p+0' ],
+        [ '%.13a',    '-1',  '-0x1.0000000000000p+0' ],
+
         [ '%30a',  '3.14',   '          0x1.91eb851eb851fp+1' ],
         [ '%-30a', '3.14',   '0x1.91eb851eb851fp+1          ' ],
         [ '%030a',  '3.14',  '0x00000000001.91eb851eb851fp+1' ],