Skip to content

Commit 1d409c2

Browse files
lizmatlizmat
committed
Fix up all %x tests
1 parent f388fef commit 1d409c2

File tree

1 file changed

+117
-125
lines changed

1 file changed

+117
-125
lines changed

‎S32-str/sprintf-x.t

Lines changed: 117 additions & 125 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
use v6.e.PREVIEW;
22

3-
#BEGIN %*ENV<PERL6_TEST_DIE_ON_FAIL> = True;
3+
BEGIN %*ENV<PERL6_TEST_DIE_ON_FAIL> = True;
44
use Test;
55

66
# Test combinations of flags for "%x". The @info array is intialized with the
@@ -30,23 +30,22 @@ my @info = ( # |-----------|-----------|-----------|-----------|
3030
'-+0', '', "0", "1", "100", "-100",
3131
'-0 ', '', "0", "1", "100", "-100",
3232
'-+0 ', '', "0", "1", "100", "-100",
33-
# NOTE: all the "0x-100" are bogus, but provided by the current implementation
34-
'#', '', "0", "0x1", "0x100", "0x-100",
35-
'# ', '', "0", "0x1", "0x100", "0x-100",
36-
'#0', '', "0", "0x1", "0x100", "0x-100",
37-
'#0 ', '', "0", "0x1", "0x100", "0x-100",
38-
'#+', '', "0", "0x1", "0x100", "0x-100",
39-
'#+ ', '', "0", "0x1", "0x100", "0x-100",
40-
'#+0', '', "0", "0x1", "0x100", "0x-100",
41-
'#+0 ', '', "0", "0x1", "0x100", "0x-100",
42-
'#-', '', "0", "0x1", "0x100", "0x-100",
43-
'#-+', '', "0", "0x1", "0x100", "0x-100",
44-
'#- ', '', "0", "0x1", "0x100", "0x-100",
45-
'#-+ ', '', "0", "0x1", "0x100", "0x-100",
46-
'#-0', '', "0", "0x1", "0x100", "0x-100",
47-
'#-+0', '', "0", "0x1", "0x100", "0x-100",
48-
'#-0 ', '', "0", "0x1", "0x100", "0x-100",
49-
'#-+0 ', '', "0", "0x1", "0x100", "0x-100",
33+
'#', '', "0", "0x1", "0x100", "-0x100",
34+
'# ', '', "0", "0x1", "0x100", "-0x100",
35+
'#0', '', "0", "0x1", "0x100", "-0x100",
36+
'#0 ', '', "0", "0x1", "0x100", "-0x100",
37+
'#+', '', "0", "0x1", "0x100", "-0x100",
38+
'#+ ', '', "0", "0x1", "0x100", "-0x100",
39+
'#+0', '', "0", "0x1", "0x100", "-0x100",
40+
'#+0 ', '', "0", "0x1", "0x100", "-0x100",
41+
'#-', '', "0", "0x1", "0x100", "-0x100",
42+
'#-+', '', "0", "0x1", "0x100", "-0x100",
43+
'#- ', '', "0", "0x1", "0x100", "-0x100",
44+
'#-+ ', '', "0", "0x1", "0x100", "-0x100",
45+
'#-0', '', "0", "0x1", "0x100", "-0x100",
46+
'#-+0', '', "0", "0x1", "0x100", "-0x100",
47+
'#-0 ', '', "0", "0x1", "0x100", "-0x100",
48+
'#-+0 ', '', "0", "0x1", "0x100", "-0x100",
5049

5150
# no size, precision 0
5251
'', '.0', "", "1", "100", "-100",
@@ -65,23 +64,22 @@ my @info = ( # |-----------|-----------|-----------|-----------|
6564
'-+0', '.0', "", "1", "100", "-100",
6665
'-0 ', '.0', "", "1", "100", "-100",
6766
'-+0 ', '.0', "", "1", "100", "-100",
68-
# NOTE: all the "0x-100" are bogus, but provided by the current implementation
69-
'#', '.0', "", "0x1", "0x100", "0x-100",
70-
'# ', '.0', "", "0x1", "0x100", "0x-100",
71-
'#0', '.0', "", "0x1", "0x100", "0x-100",
72-
'#0 ', '.0', "", "0x1", "0x100", "0x-100",
73-
'#+', '.0', "", "0x1", "0x100", "0x-100",
74-
'#+ ', '.0', "", "0x1", "0x100", "0x-100",
75-
'#+0', '.0', "", "0x1", "0x100", "0x-100",
76-
'#+0 ', '.0', "", "0x1", "0x100", "0x-100",
77-
'#-', '.0', "", "0x1", "0x100", "0x-100",
78-
'#-+', '.0', "", "0x1", "0x100", "0x-100",
79-
'#- ', '.0', "", "0x1", "0x100", "0x-100",
80-
'#-+ ', '.0', "", "0x1", "0x100", "0x-100",
81-
'#-0', '.0', "", "0x1", "0x100", "0x-100",
82-
'#-+0', '.0', "", "0x1", "0x100", "0x-100",
83-
'#-0 ', '.0', "", "0x1", "0x100", "0x-100",
84-
'#-+0 ', '.0', "", "0x1", "0x100", "0x-100",
67+
'#', '.0', "", "0x1", "0x100", "-0x100",
68+
'# ', '.0', "", "0x1", "0x100", "-0x100",
69+
'#0', '.0', "", "0x1", "0x100", "-0x100",
70+
'#0 ', '.0', "", "0x1", "0x100", "-0x100",
71+
'#+', '.0', "", "0x1", "0x100", "-0x100",
72+
'#+ ', '.0', "", "0x1", "0x100", "-0x100",
73+
'#+0', '.0', "", "0x1", "0x100", "-0x100",
74+
'#+0 ', '.0', "", "0x1", "0x100", "-0x100",
75+
'#-', '.0', "", "0x1", "0x100", "-0x100",
76+
'#-+', '.0', "", "0x1", "0x100", "-0x100",
77+
'#- ', '.0', "", "0x1", "0x100", "-0x100",
78+
'#-+ ', '.0', "", "0x1", "0x100", "-0x100",
79+
'#-0', '.0', "", "0x1", "0x100", "-0x100",
80+
'#-+0', '.0', "", "0x1", "0x100", "-0x100",
81+
'#-0 ', '.0', "", "0x1", "0x100", "-0x100",
82+
'#-+0 ', '.0', "", "0x1", "0x100", "-0x100",
8583

8684
# 2 positions, usually doesn't fit
8785
'', 2, " 0", " 1", "100", "-100",
@@ -100,34 +98,32 @@ my @info = ( # |-----------|-----------|-----------|-----------|
10098
'-+0', 2, "0 ", "1 ", "100", "-100",
10199
'-0 ', 2, "0 ", "1 ", "100", "-100",
102100
'-+0 ', 2, "0 ", "1 ", "100", "-100",
103-
# NOTE: all the "0x-100" are bogus, but provided by the current implementation
104-
'#', 2, " 0", "0x1", "0x100", "0x-100",
105-
'# ', 2, " 0", "0x1", "0x100", "0x-100",
106-
'#0', 2, "00", "0x1", "0x100", "0x-100",
107-
'#0 ', 2, "00", "0x1", "0x100", "0x-100",
108-
'#+', 2, " 0", "0x1", "0x100", "0x-100",
109-
'#+ ', 2, " 0", "0x1", "0x100", "0x-100",
110-
'#+0', 2, "00", "0x1", "0x100", "0x-100",
111-
'#+0 ', 2, "00", "0x1", "0x100", "0x-100",
112-
'#-', 2, "0 ", "0x1", "0x100", "0x-100",
113-
'#-+', 2, "0 ", "0x1", "0x100", "0x-100",
114-
'#- ', 2, "0 ", "0x1", "0x100", "0x-100",
115-
'#-+ ', 2, "0 ", "0x1", "0x100", "0x-100",
116-
'#-0', 2, "0 ", "0x1", "0x100", "0x-100",
117-
'#-+0', 2, "0 ", "0x1", "0x100", "0x-100",
118-
'#-0 ', 2, "0 ", "0x1", "0x100", "0x-100",
119-
'#-+0 ', 2, "0 ", "0x1", "0x100", "0x-100",
101+
'#', 2, " 0", "0x1", "0x100", "-0x100",
102+
'# ', 2, " 0", "0x1", "0x100", "-0x100",
103+
'#0', 2, "00", "0x1", "0x100", "-0x100",
104+
'#0 ', 2, "00", "0x1", "0x100", "-0x100",
105+
'#+', 2, " 0", "0x1", "0x100", "-0x100",
106+
'#+ ', 2, " 0", "0x1", "0x100", "-0x100",
107+
'#+0', 2, "00", "0x1", "0x100", "-0x100",
108+
'#+0 ', 2, "00", "0x1", "0x100", "-0x100",
109+
'#-', 2, "0 ", "0x1", "0x100", "-0x100",
110+
'#-+', 2, "0 ", "0x1", "0x100", "-0x100",
111+
'#- ', 2, "0 ", "0x1", "0x100", "-0x100",
112+
'#-+ ', 2, "0 ", "0x1", "0x100", "-0x100",
113+
'#-0', 2, "0 ", "0x1", "0x100", "-0x100",
114+
'#-+0', 2, "0 ", "0x1", "0x100", "-0x100",
115+
'#-0 ', 2, "0 ", "0x1", "0x100", "-0x100",
116+
'#-+0 ', 2, "0 ", "0x1", "0x100", "-0x100",
120117

121118
# 8 positions, should always fit
122119
'', 8, " 0", " 1", " 100", " -100",
123120
' ', 8, " 0", " 1", " 100", " -100",
124-
# NOTE: all the "0000-100" are bogus, but provided by the current implementation
125-
'0', 8, "00000000", "00000001", "00000100", "0000-100",
126-
'0 ', 8, "00000000", "00000001", "00000100", "0000-100",
121+
'0', 8, "00000000", "00000001", "00000100", "-0000100",
122+
'0 ', 8, "00000000", "00000001", "00000100", "-0000100",
127123
'+', 8, " 0", " 1", " 100", " -100",
128124
'+ ', 8, " 0", " 1", " 100", " -100",
129-
'+0', 8, "00000000", "00000001", "00000100", "0000-100",
130-
'+0 ', 8, "00000000", "00000001", "00000100", "0000-100",
125+
'+0', 8, "00000000", "00000001", "00000100", "-0000100",
126+
'+0 ', 8, "00000000", "00000001", "00000100", "-0000100",
131127
'-', 8, "0 ", "1 ", "100 ", "-100 ",
132128
'-+', 8, "0 ", "1 ", "100 ", "-100 ",
133129
'- ', 8, "0 ", "1 ", "100 ", "-100 ",
@@ -136,23 +132,22 @@ my @info = ( # |-----------|-----------|-----------|-----------|
136132
'-+0', 8, "0 ", "1 ", "100 ", "-100 ",
137133
'-0 ', 8, "0 ", "1 ", "100 ", "-100 ",
138134
'-+0 ', 8, "0 ", "1 ", "100 ", "-100 ",
139-
# NOTE: all the "*0x-100" are bogus, but provided by the current implementation
140-
'#', 8, " 0", " 0x1", " 0x100", " 0x-100",
141-
'# ', 8, " 0", " 0x1", " 0x100", " 0x-100",
142-
'#0', 8, "00000000", "000000x1", "0000x100", "000x-100",
143-
'#0 ', 8, "00000000", "000000x1", "0000x100", "000x-100",
144-
'#+', 8, " 0", " 0x1", " 0x100", " 0x-100",
145-
'#+ ', 8, " 0", " 0x1", " 0x100", " 0x-100",
146-
'#+0', 8, "00000000", "000000x1", "0000x100", "000x-100",
147-
'#+0 ', 8, "00000000", "000000x1", "0000x100", "000x-100",
148-
'#-', 8, "0 ", "0x1 ", "0x100 ", "0x-100 ",
149-
'#-+', 8, "0 ", "0x1 ", "0x100 ", "0x-100 ",
150-
'#- ', 8, "0 ", "0x1 ", "0x100 ", "0x-100 ",
151-
'#-+ ', 8, "0 ", "0x1 ", "0x100 ", "0x-100 ",
152-
'#-0', 8, "0 ", "0x1 ", "0x100 ", "0x-100 ",
153-
'#-+0', 8, "0 ", "0x1 ", "0x100 ", "0x-100 ",
154-
'#-0 ', 8, "0 ", "0x1 ", "0x100 ", "0x-100 ",
155-
'#-+0 ', 8, "0 ", "0x1 ", "0x100 ", "0x-100 ",
135+
'#', 8, " 0", " 0x1", " 0x100", " -0x100",
136+
'# ', 8, " 0", " 0x1", " 0x100", " -0x100",
137+
'#0', 8, "00000000", "0x000001", "0x000100", "-0x00100",
138+
'#0 ', 8, "00000000", "0x000001", "0x000100", "-0x00100",
139+
'#+', 8, " 0", " 0x1", " 0x100", " -0x100",
140+
'#+ ', 8, " 0", " 0x1", " 0x100", " -0x100",
141+
'#+0', 8, "00000000", "0x000001", "0x000100", "-0x00100",
142+
'#+0 ', 8, "00000000", "0x000001", "0x000100", "-0x00100",
143+
'#-', 8, "0 ", "0x1 ", "0x100 ", "-0x100 ",
144+
'#-+', 8, "0 ", "0x1 ", "0x100 ", "-0x100 ",
145+
'#- ', 8, "0 ", "0x1 ", "0x100 ", "-0x100 ",
146+
'#-+ ', 8, "0 ", "0x1 ", "0x100 ", "-0x100 ",
147+
'#-0', 8, "0 ", "0x1 ", "0x100 ", "-0x100 ",
148+
'#-+0', 8, "0 ", "0x1 ", "0x100 ", "-0x100 ",
149+
'#-0 ', 8, "0 ", "0x1 ", "0x100 ", "-0x100 ",
150+
'#-+0 ', 8, "0 ", "0x1 ", "0x100 ", "-0x100 ",
156151

157152
# 8 positions with precision, precision fits sometimes
158153
'', 8.2, " 00", " 01", " 100", " -100",
@@ -171,23 +166,22 @@ my @info = ( # |-----------|-----------|-----------|-----------|
171166
'-+0', 8.2, "00 ", "01 ", "100 ", "-100 ",
172167
'-0 ', 8.2, "00 ", "01 ", "100 ", "-100 ",
173168
'-+0 ', 8.2, "00 ", "01 ", "100 ", "-100 ",
174-
# NOTE: all the "0x-100" are bogus, but provided by the current implementation
175-
'#', 8.2, " 00", " 0x01", " 0x100", " 0x-100",
176-
'# ', 8.2, " 00", " 0x01", " 0x100", " 0x-100",
177-
'#0', 8.2, " 00", " 0x01", " 0x100", " 0x-100",
178-
'#0 ', 8.2, " 00", " 0x01", " 0x100", " 0x-100",
179-
'#+', 8.2, " 00", " 0x01", " 0x100", " 0x-100",
180-
'#+ ', 8.2, " 00", " 0x01", " 0x100", " 0x-100",
181-
'#+0', 8.2, " 00", " 0x01", " 0x100", " 0x-100",
182-
'#+0 ', 8.2, " 00", " 0x01", " 0x100", " 0x-100",
183-
'#-', 8.2, "00 ", "0x01 ", "0x100 ", "0x-100 ",
184-
'#-+', 8.2, "00 ", "0x01 ", "0x100 ", "0x-100 ",
185-
'#- ', 8.2, "00 ", "0x01 ", "0x100 ", "0x-100 ",
186-
'#-+ ', 8.2, "00 ", "0x01 ", "0x100 ", "0x-100 ",
187-
'#-0', 8.2, "00 ", "0x01 ", "0x100 ", "0x-100 ",
188-
'#-+0', 8.2, "00 ", "0x01 ", "0x100 ", "0x-100 ",
189-
'#-0 ', 8.2, "00 ", "0x01 ", "0x100 ", "0x-100 ",
190-
'#-+0 ', 8.2, "00 ", "0x01 ", "0x100 ", "0x-100 ",
169+
'#', 8.2, " 00", " 0x01", " 0x100", " -0x100",
170+
'# ', 8.2, " 00", " 0x01", " 0x100", " -0x100",
171+
'#0', 8.2, " 00", " 0x01", " 0x100", " -0x100",
172+
'#0 ', 8.2, " 00", " 0x01", " 0x100", " -0x100",
173+
'#+', 8.2, " 00", " 0x01", " 0x100", " -0x100",
174+
'#+ ', 8.2, " 00", " 0x01", " 0x100", " -0x100",
175+
'#+0', 8.2, " 00", " 0x01", " 0x100", " -0x100",
176+
'#+0 ', 8.2, " 00", " 0x01", " 0x100", " -0x100",
177+
'#-', 8.2, "00 ", "0x01 ", "0x100 ", "-0x100 ",
178+
'#-+', 8.2, "00 ", "0x01 ", "0x100 ", "-0x100 ",
179+
'#- ', 8.2, "00 ", "0x01 ", "0x100 ", "-0x100 ",
180+
'#-+ ', 8.2, "00 ", "0x01 ", "0x100 ", "-0x100 ",
181+
'#-0', 8.2, "00 ", "0x01 ", "0x100 ", "-0x100 ",
182+
'#-+0', 8.2, "00 ", "0x01 ", "0x100 ", "-0x100 ",
183+
'#-0 ', 8.2, "00 ", "0x01 ", "0x100 ", "-0x100 ",
184+
'#-+0 ', 8.2, "00 ", "0x01 ", "0x100 ", "-0x100 ",
191185

192186
).map: -> $flags, $size, $r0, $r1, $r4, $rm {
193187
my @flat;
@@ -217,23 +211,22 @@ my @info = ( # |-----------|-----------|-----------|-----------|
217211
'-+0', '.*', "", "1", "100", "-100",
218212
'-0 ', '.*', "", "1", "100", "-100",
219213
'-+0 ', '.*', "", "1", "100", "-100",
220-
# NOTE: all the "0x-100" are bogus, but provided by the current implementation
221-
'#', '.*', "", "0x1", "0x100", "0x-100",
222-
'# ', '.*', "", "0x1", "0x100", "0x-100",
223-
'#0', '.*', "", "0x1", "0x100", "0x-100",
224-
'#0 ', '.*', "", "0x1", "0x100", "0x-100",
225-
'#+', '.*', "", "0x1", "0x100", "0x-100",
226-
'#+ ', '.*', "", "0x1", "0x100", "0x-100",
227-
'#+0', '.*', "", "0x1", "0x100", "0x-100",
228-
'#+0 ', '.*', "", "0x1", "0x100", "0x-100",
229-
'#-', '.*', "", "0x1", "0x100", "0x-100",
230-
'#-+', '.*', "", "0x1", "0x100", "0x-100",
231-
'#- ', '.*', "", "0x1", "0x100", "0x-100",
232-
'#-+ ', '.*', "", "0x1", "0x100", "0x-100",
233-
'#-0', '.*', "", "0x1", "0x100", "0x-100",
234-
'#-+0', '.*', "", "0x1", "0x100", "0x-100",
235-
'#-0 ', '.*', "", "0x1", "0x100", "0x-100",
236-
'#-+0 ', '.*', "", "0x1", "0x100", "0x-100",
214+
'#', '.*', "", "0x1", "0x100", "-0x100",
215+
'# ', '.*', "", "0x1", "0x100", "-0x100",
216+
'#0', '.*', "", "0x1", "0x100", "-0x100",
217+
'#0 ', '.*', "", "0x1", "0x100", "-0x100",
218+
'#+', '.*', "", "0x1", "0x100", "-0x100",
219+
'#+ ', '.*', "", "0x1", "0x100", "-0x100",
220+
'#+0', '.*', "", "0x1", "0x100", "-0x100",
221+
'#+0 ', '.*', "", "0x1", "0x100", "-0x100",
222+
'#-', '.*', "", "0x1", "0x100", "-0x100",
223+
'#-+', '.*', "", "0x1", "0x100", "-0x100",
224+
'#- ', '.*', "", "0x1", "0x100", "-0x100",
225+
'#-+ ', '.*', "", "0x1", "0x100", "-0x100",
226+
'#-0', '.*', "", "0x1", "0x100", "-0x100",
227+
'#-+0', '.*', "", "0x1", "0x100", "-0x100",
228+
'#-0 ', '.*', "", "0x1", "0x100", "-0x100",
229+
'#-+0 ', '.*', "", "0x1", "0x100", "-0x100",
237230

238231
).map: -> $flags, $size, $r0, $r1, $r4, $rm {
239232
my @flat;
@@ -262,23 +255,22 @@ my @info = ( # |-----------|-----------|-----------|-----------|
262255
'-+0', "8.*", "00 ", "01 ", "100 ", "-100 ",
263256
'-0 ', "8.*", "00 ", "01 ", "100 ", "-100 ",
264257
'-+0 ', "8.*", "00 ", "01 ", "100 ", "-100 ",
265-
# NOTE: all the "0x-100" are bogus, but provided by the current implementation
266-
'#', "8.*", " 00", " 0x01", " 0x100", " 0x-100",
267-
'# ', "8.*", " 00", " 0x01", " 0x100", " 0x-100",
268-
'#0', "8.*", " 00", " 0x01", " 0x100", " 0x-100",
269-
'#0 ', "8.*", " 00", " 0x01", " 0x100", " 0x-100",
270-
'#+', "8.*", " 00", " 0x01", " 0x100", " 0x-100",
271-
'#+ ', "8.*", " 00", " 0x01", " 0x100", " 0x-100",
272-
'#+0', "8.*", " 00", " 0x01", " 0x100", " 0x-100",
273-
'#+0 ', "8.*", " 00", " 0x01", " 0x100", " 0x-100",
274-
'#-', "8.*", "00 ", "0x01 ", "0x100 ", "0x-100 ",
275-
'#-+', "8.*", "00 ", "0x01 ", "0x100 ", "0x-100 ",
276-
'#- ', "8.*", "00 ", "0x01 ", "0x100 ", "0x-100 ",
277-
'#-+ ', "8.*", "00 ", "0x01 ", "0x100 ", "0x-100 ",
278-
'#-0', "8.*", "00 ", "0x01 ", "0x100 ", "0x-100 ",
279-
'#-+0', "8.*", "00 ", "0x01 ", "0x100 ", "0x-100 ",
280-
'#-0 ', "8.*", "00 ", "0x01 ", "0x100 ", "0x-100 ",
281-
'#-+0 ', "8.*", "00 ", "0x01 ", "0x100 ", "0x-100 ",
258+
'#', "8.*", " 00", " 0x01", " 0x100", " -0x100",
259+
'# ', "8.*", " 00", " 0x01", " 0x100", " -0x100",
260+
'#0', "8.*", " 00", " 0x01", " 0x100", " -0x100",
261+
'#0 ', "8.*", " 00", " 0x01", " 0x100", " -0x100",
262+
'#+', "8.*", " 00", " 0x01", " 0x100", " -0x100",
263+
'#+ ', "8.*", " 00", " 0x01", " 0x100", " -0x100",
264+
'#+0', "8.*", " 00", " 0x01", " 0x100", " -0x100",
265+
'#+0 ', "8.*", " 00", " 0x01", " 0x100", " -0x100",
266+
'#-', "8.*", "00 ", "0x01 ", "0x100 ", "-0x100 ",
267+
'#-+', "8.*", "00 ", "0x01 ", "0x100 ", "-0x100 ",
268+
'#- ', "8.*", "00 ", "0x01 ", "0x100 ", "-0x100 ",
269+
'#-+ ', "8.*", "00 ", "0x01 ", "0x100 ", "-0x100 ",
270+
'#-0', "8.*", "00 ", "0x01 ", "0x100 ", "-0x100 ",
271+
'#-+0', "8.*", "00 ", "0x01 ", "0x100 ", "-0x100 ",
272+
'#-0 ', "8.*", "00 ", "0x01 ", "0x100 ", "-0x100 ",
273+
'#-+0 ', "8.*", "00 ", "0x01 ", "0x100 ", "-0x100 ",
282274

283275
).map: -> $flags, $size, $r0, $r1, $r4, $rm {
284276
my @flat;

0 commit comments

Comments
 (0)