From 2624c936000fb88faf9241ebde9248a9e34cbe47 Mon Sep 17 00:00:00 2001 From: Elizabeth Mattijsen Date: Wed, 17 Apr 2019 15:53:10 +0200 Subject: [PATCH] Simplify sprintf("%d"|"%i") testing The results of all formats with "#" are the same to the results without "#", so create those tests programatically. --- S32-str/sprintf-d.t | 82 +++------------------------------------------ 1 file changed, 4 insertions(+), 78 deletions(-) diff --git a/S32-str/sprintf-d.t b/S32-str/sprintf-d.t index 3e9d11ff94..fe93a0c2fb 100644 --- a/S32-str/sprintf-d.t +++ b/S32-str/sprintf-d.t @@ -31,22 +31,6 @@ my @info = ( # |-----------|-----------|-----------|-----------| '-+0', '', "+0", "+1", "+314", "-314", '-0 ', '', " 0", " 1", " 314", "-314", '-+0 ', '', "+0", "+1", "+314", "-314", - '#', '', "0", "1", "314", "-314", - '# ', '', " 0", " 1", " 314", "-314", - '#0', '', "0", "1", "314", "-314", - '#0 ', '', " 0", " 1", " 314", "-314", - '#+', '', "+0", "+1", "+314", "-314", - '#+ ', '', "+0", "+1", "+314", "-314", - '#+0', '', "+0", "+1", "+314", "-314", - '#+0 ', '', "+0", "+1", "+314", "-314", - '#-', '', "0", "1", "314", "-314", - '#-+', '', "+0", "+1", "+314", "-314", - '#- ', '', " 0", " 1", " 314", "-314", - '#-+ ', '', "+0", "+1", "+314", "-314", - '#-0', '', "0", "1", "314", "-314", - '#-+0', '', "+0", "+1", "+314", "-314", - '#-0 ', '', " 0", " 1", " 314", "-314", - '#-+0 ', '', "+0", "+1", "+314", "-314", # no size, precision 0 '', '.0', "", "1", "314", "-314", @@ -65,22 +49,6 @@ my @info = ( # |-----------|-----------|-----------|-----------| '-+0', '.0', "+", "+1", "+314", "-314", '-0 ', '.0', " ", " 1", " 314", "-314", '-+0 ', '.0', "+", "+1", "+314", "-314", - '#', '.0', "", "1", "314", "-314", - '# ', '.0', " ", " 1", " 314", "-314", - '#0', '.0', "", "1", "314", "-314", - '#0 ', '.0', " ", " 1", " 314", "-314", - '#+', '.0', "+", "+1", "+314", "-314", - '#+ ', '.0', "+", "+1", "+314", "-314", - '#+0', '.0', "+", "+1", "+314", "-314", - '#+0 ', '.0', "+", "+1", "+314", "-314", - '#-', '.0', "", "1", "314", "-314", - '#-+', '.0', "+", "+1", "+314", "-314", - '#- ', '.0', " ", " 1", " 314", "-314", - '#-+ ', '.0', "+", "+1", "+314", "-314", - '#-0', '.0', "", "1", "314", "-314", - '#-+0', '.0', "+", "+1", "+314", "-314", - '#-0 ', '.0', " ", " 1", " 314", "-314", - '#-+0 ', '.0', "+", "+1", "+314", "-314", # 2 positions, usually doesn't fit '', 2, " 0", " 1", "314", "-314", @@ -99,22 +67,6 @@ my @info = ( # |-----------|-----------|-----------|-----------| '-+0', 2, "+0", "+1", "+314", "-314", '-0 ', 2, " 0", " 1", " 314", "-314", '-+0 ', 2, "+0", "+1", "+314", "-314", - '#', 2, " 0", " 1", "314", "-314", - '# ', 2, " 0", " 1", " 314", "-314", - '#0', 2, "00", "01", "314", "-314", - '#0 ', 2, " 0", " 1", " 314", "-314", - '#+', 2, "+0", "+1", "+314", "-314", - '#+ ', 2, "+0", "+1", "+314", "-314", - '#+0', 2, "+0", "+1", "+314", "-314", - '#+0 ', 2, "+0", "+1", "+314", "-314", - '#-', 2, "0 ", "1 ", "314", "-314", - '#-+', 2, "+0", "+1", "+314", "-314", - '#- ', 2, " 0", " 1", " 314", "-314", - '#-+ ', 2, "+0", "+1", "+314", "-314", - '#-0', 2, "0 ", "1 ", "314", "-314", - '#-+0', 2, "+0", "+1", "+314", "-314", - '#-0 ', 2, " 0", " 1", " 314", "-314", - '#-+0 ', 2, "+0", "+1", "+314", "-314", # 8 positions, should always fit '', 8, " 0", " 1", " 314", " -314", @@ -133,21 +85,6 @@ my @info = ( # |-----------|-----------|-----------|-----------| '-+0', 8, "+0 ", "+1 ", "+314 ", "-314 ", '-0 ', 8, " 0 ", " 1 ", " 314 ", "-314 ", '-+0 ', 8, "+0 ", "+1 ", "+314 ", "-314 ", - '#', 8, " 0", " 1", " 314", " -314", - '#0', 8, "00000000", "00000001", "00000314", "-0000314", - '#0 ', 8, " 0000000", " 0000001", " 0000314", "-0000314", - '#+', 8, " +0", " +1", " +314", " -314", - '#+ ', 8, " +0", " +1", " +314", " -314", - '#+0', 8, "+0000000", "+0000001", "+0000314", "-0000314", - '#+0 ', 8, "+0000000", "+0000001", "+0000314", "-0000314", - '#-', 8, "0 ", "1 ", "314 ", "-314 ", - '#-+', 8, "+0 ", "+1 ", "+314 ", "-314 ", - '#- ', 8, " 0 ", " 1 ", " 314 ", "-314 ", - '#-+ ', 8, "+0 ", "+1 ", "+314 ", "-314 ", - '#-0', 8, "0 ", "1 ", "314 ", "-314 ", - '#-+0', 8, "+0 ", "+1 ", "+314 ", "-314 ", - '#-0 ', 8, " 0 ", " 1 ", " 314 ", "-314 ", - '#-+0 ', 8, "+0 ", "+1 ", "+314 ", "-314 ", # 8 positions with precision, precision fits sometimes '', 8.2, " 00", " 01", " 314", " -314", @@ -166,21 +103,6 @@ my @info = ( # |-----------|-----------|-----------|-----------| '-+0', 8.2, "+00 ", "+01 ", "+314 ", "-314 ", '-0 ', 8.2, " 00 ", " 01 ", " 314 ", "-314 ", '-+0 ', 8.2, "+00 ", "+01 ", "+314 ", "-314 ", - '#', 8.2, " 00", " 01", " 314", " -314", - '#0', 8.2, " 00", " 01", " 314", " -314", - '#0 ', 8.2, " 00", " 01", " 314", " -314", - '#+', 8.2, " +00", " +01", " +314", " -314", - '#+ ', 8.2, " +00", " +01", " +314", " -314", - '#+0', 8.2, " +00", " +01", " +314", " -314", - '#+0 ', 8.2, " +00", " +01", " +314", " -314", - '#-', 8.2, "00 ", "01 ", "314 ", "-314 ", - '#-+', 8.2, "+00 ", "+01 ", "+314 ", "-314 ", - '#- ', 8.2, " 00 ", " 01 ", " 314 ", "-314 ", - '#-+ ', 8.2, "+00 ", "+01 ", "+314 ", "-314 ", - '#-0', 8.2, "00 ", "01 ", "314 ", "-314 ", - '#-+0', 8.2, "+00 ", "+01 ", "+314 ", "-314 ", - '#-0 ', 8.2, " 00 ", " 01 ", " 314 ", "-314 ", - '#-+0 ', 8.2, "+00 ", "+01 ", "+314 ", "-314 ", ).map: -> $flags, $size, $r0, $r1, $r4, $rm { my @flat; @@ -188,6 +110,10 @@ my @info = ( # |-----------|-----------|-----------|-----------| @flat.append('%' ~ $permuted ~ $size ~ $_, $r0, $r1, $r4, $rm) for ; } + for "#$flags".comb.permutations>>.join -> $permuted { + @flat.append('%' ~ $permuted ~ $size ~ $_, $r0, $r1, $r4, $rm) + for ; + } |@flat }