Skip to content

Commit 5398ace

Browse files
jnthnjnthn
committed
Correct a wrong signature in serialization tests.
1 parent 51d8b87 commit 5398ace

File tree

3 files changed

+18
-18
lines changed

3 files changed

+18
-18
lines changed

‎t/serialization/01-basic.t

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,7 @@ plan(66);
1212
ok(nqp::chars($serialized) >= 36, 'output is at least as long as the header');
1313

1414
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_1_OUT');
15-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, nqp::list());
15+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, nqp::list());
1616

1717
ok(nqp::elems($dsc) == 0, 'deserialized SC is also empty');
1818
}
@@ -30,7 +30,7 @@ plan(66);
3030
ok(nqp::chars($serialized) > 36, 'serialized SC with P6int output longer than a header');
3131

3232
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_2_OUT');
33-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, nqp::list());
33+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, nqp::list());
3434

3535
ok(nqp::elems($dsc) == 1, 'deserialized SC has a single element');
3636
ok(nqp::istype($dsc[0], T1), 'deserialized object has correct type');
@@ -50,7 +50,7 @@ plan(66);
5050
ok(nqp::chars($serialized) > 36, 'serialized SC with P6num output longer than a header');
5151

5252
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_3_OUT');
53-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, nqp::list());
53+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, nqp::list());
5454

5555
ok(nqp::elems($dsc) == 1, 'deserialized SC has a single element');
5656
ok(nqp::istype($dsc[0], T2), 'deserialized object has correct type');
@@ -70,7 +70,7 @@ plan(66);
7070
ok(nqp::chars($serialized) > 36, 'serialized SC with P6str output longer than a header');
7171

7272
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_4_OUT');
73-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, nqp::list());
73+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, nqp::list());
7474

7575
ok(nqp::elems($dsc) == 1, 'deserialized SC has a single element');
7676
ok(nqp::istype($dsc[0], T3), 'deserialized object has correct type');
@@ -107,7 +107,7 @@ plan(66);
107107
ok(nqp::chars($serialized) > 36, 'serialized SC with P6opaque output longer than a header');
108108

109109
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_5_OUT');
110-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, nqp::list());
110+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, nqp::list());
111111

112112
ok(nqp::elems($dsc) == 1, 'deserialized SC has a single element');
113113
ok(nqp::istype($dsc[0], T4), 'deserialized object has correct type');
@@ -139,7 +139,7 @@ plan(66);
139139
ok(nqp::chars($serialized) > 36, 'serialized SC with P6opaque output longer than a header');
140140

141141
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_6_OUT');
142-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, nqp::list());
142+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, nqp::list());
143143

144144
ok(nqp::elems($dsc) == 2, 'deserialized SC has 2 element');
145145
ok(nqp::istype($dsc[0], T5), 'first deserialized object has correct type');
@@ -178,7 +178,7 @@ plan(66);
178178
my $serialized := pir::nqp_serialize_sc__SPP($sc, $sh);
179179

180180
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_7_OUT');
181-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, nqp::list());
181+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, nqp::list());
182182

183183
ok(nqp::elems($dsc) == 3, 'deserialized SC has 3 elements - the one we added and two discovered');
184184
ok(nqp::istype($dsc[0], T6), 'first deserialized object has correct type');
@@ -220,7 +220,7 @@ plan(66);
220220
my $serialized := pir::nqp_serialize_sc__SPP($sc, $sh);
221221

222222
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_8_OUT');
223-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, nqp::list());
223+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, nqp::list());
224224

225225
ok(nqp::elems($dsc) == 1, 'deserialized SC has a single element');
226226
ok(nqp::istype($dsc[0], T7), 'deserialized object has correct type');
@@ -255,7 +255,7 @@ plan(66);
255255
my $serialized := pir::nqp_serialize_sc__SPP($sc, $sh);
256256

257257
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_9_OUT');
258-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, nqp::list());
258+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, nqp::list());
259259

260260
ok(nqp::istype($dsc[0], T8), 'deserialized object has correct type');
261261
ok(nqp::elems($dsc[0].a) == 3, 'array a came back with correct element count');
@@ -296,7 +296,7 @@ plan(66);
296296
my $serialized := pir::nqp_serialize_sc__SPP($sc, $sh);
297297

298298
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_10_OUT');
299-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, nqp::list());
299+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, nqp::list());
300300

301301
ok(nqp::istype($dsc[0], T9), 'deserialized object has correct type');
302302
ok(nqp::elems($dsc[0].a) == 2, 'hash came back with correct element count');
@@ -331,7 +331,7 @@ plan(66);
331331
my $serialized := pir::nqp_serialize_sc__SPP($sc, $sh);
332332

333333
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_11_OUT');
334-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, nqp::list());
334+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, nqp::list());
335335

336336
ok(nqp::istype($dsc[0], T10), 'deserialized object has correct type');
337337
ok(nqp::elems($dsc[0].a) == 3, 'integer array came back with correct element count');
@@ -367,7 +367,7 @@ plan(66);
367367
my $serialized := pir::nqp_serialize_sc__SPP($sc, $sh);
368368

369369
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_12_OUT');
370-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, nqp::list());
370+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, nqp::list());
371371

372372
ok(nqp::istype($dsc[0], T11), 'deserialized object has correct type');
373373
ok(nqp::elems($dsc[0].a) == 3, 'string array came back with correct element count');

‎t/serialization/02-types.t

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -18,7 +18,7 @@ plan(31);
1818
my $serialized := pir::nqp_serialize_sc__SPP($sc, $sh);
1919

2020
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_1_OUT');
21-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, nqp::list());
21+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, nqp::list());
2222

2323
ok(nqp::elems($dsc) >= 2, 'deserialized SC has at least the knowhow type and its instance');
2424
ok(!nqp::isconcrete($dsc[0]), 'type object deserialized and is not concrete');
@@ -46,7 +46,7 @@ plan(31);
4646
my $serialized := pir::nqp_serialize_sc__SPP($sc, $sh);
4747

4848
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_2_OUT');
49-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, nqp::list());
49+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, nqp::list());
5050

5151
ok(nqp::elems($dsc) >= 2, 'deserialized SC has at least the knowhow type and its instance');
5252
ok(!nqp::isconcrete($dsc[0]), 'type object deserialized and is not concrete');
@@ -80,7 +80,7 @@ plan(31);
8080
my $serialized := pir::nqp_serialize_sc__SPP($sc, $sh);
8181

8282
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_3_OUT');
83-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, nqp::list());
83+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, nqp::list());
8484

8585
ok(nqp::elems($dsc) >= 2, 'deserialized SC has at least the knowhow type and its instance');
8686
ok(!nqp::isconcrete($dsc[0]), 'type object deserialized and is not concrete');
@@ -135,7 +135,7 @@ plan(31);
135135

136136
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_4_OUT');
137137
my $cr := nqp::list($m1, $m2);
138-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, $cr);
138+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, $cr);
139139

140140
ok(nqp::elems($dsc) >= 2, 'deserialized SC has at least the knowhow type and its instance');
141141
ok(!nqp::isconcrete($dsc[0]), 'type object deserialized and is not concrete');

‎t/serialization/03-closures.t

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -27,7 +27,7 @@ plan(9);
2727

2828
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_1_OUT');
2929
my $cr := nqp::list($m1);
30-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, $cr);
30+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, $cr);
3131

3232
ok(nqp::elems($dsc) >= 1, 'deserialized SC has at least the type');
3333
ok(!nqp::isconcrete($dsc[0]), 'type object deserialized and is not concrete');
@@ -73,7 +73,7 @@ plan(9);
7373

7474
my $dsc := pir::nqp_create_sc__Ps('TEST_SC_2_OUT');
7575
my $cr := nqp::list($raw_sub, $raw_meth);
76-
pir::nqp_deserialize_sc__vSPP($serialized, $dsc, $sh, $cr);
76+
pir::nqp_deserialize_sc__vSPPP($serialized, $dsc, $sh, $cr);
7777

7878
ok(nqp::elems($dsc) >= 2, 'deserialized SC has at least the two type');
7979
ok(!nqp::isconcrete($dsc[0]), 'first type object deserialized and is not concrete');

0 commit comments

Comments
 (0)