This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Additional hexfp %a tests inspired by c95ea682.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 3 Feb 2016 02:28:32 +0000 (21:28 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 3 Feb 2016 11:51:18 +0000 (06:51 -0500)
If both plus and space are specified, the space is ignored.

t/op/sprintf2.t

index d03deb1..43ed919 100644 (file)
@@ -55,6 +55,11 @@ if ($Config{nvsize} == 8 &&
         [ '% a',      ' 1',      ' 0x1p+0' ],
         [ '% a',      '-1',      '-0x1p+0' ],
 
+        [ '%+ a',     '1',       '+0x1p+0' ],
+        [ '%+ a',     '-1',      '-0x1p+0' ],
+        [ '% +a',     ' 1',      '+0x1p+0' ],
+        [ '% +a',     '-1',      '-0x1p+0' ],
+
         [ '%8a',      '3.14',   '0x1.91eb851eb851fp+1' ],
         [ '%13a',     '3.14',   '0x1.91eb851eb851fp+1' ],
         [ '%20a',     '3.14',   '0x1.91eb851eb851fp+1' ],
@@ -112,6 +117,11 @@ if ($Config{nvsize} == 8 &&
         [ '% a',      ' 1',      ' 0x8p-3' ],
         [ '% a',      '-1',      '-0x8p-3' ],
 
+        [ '%+ a',     '1',       '+0x8p-3' ],
+        [ '%+ a',     '-1',      '-0x8p-3' ],
+        [ '% +a',     ' 1',      '+0x8p-3' ],
+        [ '% +a',     '-1',      '-0x8p-3' ],
+
         [ '%8a',      '3.14',    '0xc.8f5c28f5c28f5c3p-2' ],
         [ '%13a',     '3.14',    '0xc.8f5c28f5c28f5c3p-2' ],
         [ '%20a',     '3.14',    '0xc.8f5c28f5c28f5c3p-2' ],
@@ -166,6 +176,11 @@ if ($Config{nvsize} == 8 &&
        [ '% a', '1',      ' 0x1p+0' ],
        [ '% a', '-1',     '-0x1p+0' ],
 
+        [ '%+ a', '1',     '+0x1p+0' ],
+        [ '%+ a', '-1',    '-0x1p+0' ],
+        [ '% +a', ' 1',    '+0x1p+0' ],
+        [ '% +a', '-1',    '-0x1p+0' ],
+
        [ '%8a',      '3.14', '0x1.91eb851eb851eb851eb851eb851fp+1' ],
        [ '%13a',     '3.14', '0x1.91eb851eb851eb851eb851eb851fp+1' ],
        [ '%20a',     '3.14', '0x1.91eb851eb851eb851eb851eb851fp+1' ],