-
Notifications
You must be signed in to change notification settings - Fork 138
/
fixedpmcarray.t
736 lines (609 loc) · 15.3 KB
/
fixedpmcarray.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
#!./parrot
# Copyright (C) 2001-2011, Parrot Foundation.
=head1 NAME
t/pmc/fixedpmcarray.t - FixedPMCArray PMC
=head1 SYNOPSIS
% prove t/pmc/fixedpmcarray.t
=head1 DESCRIPTION
Tests C<FixedPMCArray> PMC. Checks size, sets various elements, including
out-of-bounds test. Checks INT and PMC keys.
=cut
.include 'except_types.pasm'
.sub main :main
.include 'test_more.pir'
plan(86)
test_setting_array_size()
test_resize_exception()
test_truthiness()
test_tt991()
test_tt1039()
test_setting_first_elem()
test_setting_second_elem()
test_negative_index()
test_oob_elem()
test_set_pmc_keys_access_ints()
test_set_ints_access_pmc_keys()
test_interface()
test_get_uninitialized()
test_get_null_elem()
test_definedness()
test_splice_oob()
test_get_repr()
test_get_string()
test_elements()
test_equality()
test_multi_keys()
test_splice()
test_sort()
test_exists()
test_new_style_init()
test_invalid_init_tt1509()
.end
.sub exists_out_of_bounds
.local pmc fpa
fpa = new ['FixedPMCArray']
fpa = 5
$I0 = exists fpa[5]
.end
.sub test_exists
.local pmc fpa
fpa = new ['FixedPMCArray']
fpa = 5
$I0 = exists fpa[3]
nok($I0,'FixedPMCArray element existence')
fpa[2] = 42
$I0 = exists fpa[2]
ok($I0,'FixedPMCArray element existence')
new $P1, ['Key']
set $P1, 0
fpa[$P1] = 99
$I0 = exists fpa[$P1]
ok($I0,'FixedPMCArray element existence')
.const 'Sub' out_of_bounds = 'exists_out_of_bounds'
throws_type(out_of_bounds, .EXCEPTION_OUT_OF_BOUNDS, 'exists ouf of bounds')
.end
.sub test_sort
.local pmc compares, cmp_fun
bounds 1
compares = new ['Integer']
compares = 0
set_global "compares", compares
cmp_fun = get_global "cmp_fun"
sort_ar()
sort_ar(cmp_fun)
.end
# this is used by test_sort
.sub sort_ar
.param pmc cmp_fun :optional
.local pmc compares
compares = get_global "compares"
compares = 0
.local pmc array
array = new ['FixedPMCArray']
array = 5
array[0] = 10
array[1] = 2
array[2] = 5
array[3] = 9
array[4] = 1
array."sort"(cmp_fun)
ok(1,'call sort on FixedPMCArray')
.local pmc test1
test1 = new ['FixedPMCArray']
test1 = 5
test1[0] = 1
test1[1] = 2
test1[2] = 5
test1[3] = 9
test1[4] = 10
is_deeply( array, test1 )
.end
# this is used by test_sort
.sub cmp_fun
.param pmc a
.param pmc b
$I0 = cmp a, b
.local pmc compares
compares = get_global "compares"
inc compares
.begin_return
.set_return $I0
.end_return
.end
.sub test_splice
.local pmc one
.local pmc test1, test2, test3
one = new ['Integer']
one = 1
.local pmc fpa
fpa = new ['FixedPMCArray']
fpa = 5
splice fpa, one, 0, 5
test1 = new ['FixedPMCArray']
test1 = 5
test1[0] = 1
test1[1] = 1
test1[2] = 1
test1[3] = 1
test1[4] = 1
is_deeply(fpa, test1 )
.local pmc two
two = new ['Integer']
two = 2
splice fpa, two, 1, 3
test2 = new ['FixedPMCArray']
test2 = 5
test2[0] = 1
test2[1] = 2
test2[2] = 2
test2[3] = 2
test2[4] = 1
is_deeply(fpa, test2 )
.local pmc three
three = new ['Integer']
three = 3
splice fpa, three, 2, 3
test3 = new ['FixedPMCArray']
test3 = 5
test3[0] = 1
test3[1] = 2
test3[2] = 3
test3[3] = 3
test3[4] = 3
is_deeply(fpa, test3 )
.end
.sub cannot_auto_num
$P0 = new ['FixedPMCArray']
$P0 = 1
$P0[0;0] = 1.2
.end
.sub cannot_auto_pmc
.local pmc matrix, row, value
matrix = new ['FixedPMCArray'], 1
#row = new ['FixedPMCArray'], 1
#matrix[0] = row
value = new ['Integer']
matrix[0;0] = value
ok(1, "Check")
.end
.sub test_multi_keys
.local pmc matrix, row
.local pmc elem_in_pmc
.local pmc elem_out_pmc
.local int elem_out_int
.local num elem_out_num
.local string elem_out_string
matrix = new ['FixedPMCArray']
matrix = 1
row = new ['FixedPMCArray']
row = 4 # set the size by assigning an integer, number or pmc
matrix[0] = row
matrix[0;0] = 128
matrix[0;1] = 128.128
elem_in_pmc = new ['Integer']
elem_in_pmc = 256
matrix[0;2] = elem_in_pmc
matrix[0;3] = "asdf"
elem_out_int = matrix[0;0]
is(elem_out_int,128)
elem_out_pmc = matrix[0;0]
is(elem_out_pmc,128)
elem_out_num = matrix[0;0]
is(elem_out_num,128)
elem_out_string = matrix[0;0]
is(elem_out_string,128)
elem_out_pmc = matrix[0;1]
is(elem_out_pmc,"128.128")
elem_out_num = matrix[0;1]
is(elem_out_num,"128.128")
elem_out_string = matrix[0;1]
is(elem_out_string,"128.128")
elem_out_int = matrix[0;2]
is(elem_out_int,256)
elem_out_pmc = matrix[0;2]
is(elem_out_pmc,256)
elem_out_num = matrix[0;2]
is(elem_out_num,256)
elem_out_string = matrix[0;2]
is(elem_out_string,256)
elem_out_int = matrix[0;0]
is(elem_out_int,128)
elem_out_pmc = matrix[0;0]
is(elem_out_pmc,128)
elem_out_num = matrix[0;0]
is(elem_out_num,128)
elem_out_string = matrix[0;0]
is(elem_out_string,128)
.const 'Sub' cannot_auto_num = 'cannot_auto_num'
throws_type(cannot_auto_num, .EXCEPTION_INVALID_OPERATION, 'Autovivification of nested arrays fails - num')
.const 'Sub' cannot_auto_pmc = 'cannot_auto_pmc'
throws_type(cannot_auto_pmc, .EXCEPTION_INVALID_OPERATION, 'Autovivification of nested arrays fails - pmc')
null $P1
matrix[0] = $P1
elem_out_pmc = matrix[0; 0]
is_null(elem_out_pmc, 'Attempt to recurse null element gives null')
.end
.sub test_equality
.local pmc fpa1, fpa2, p1, p2
.local int i
fpa1 = new ['FixedPMCArray']
fpa2 = new ['FixedPMCArray']
is(fpa1,fpa2)
fpa1 = 3
isnt(fpa1,fpa2)
fpa2 = 3
p1 = new ['String']
p1 = "foobarx"
p2 = new ['String']
p2 = "foobarx"
fpa1[0] = p1
fpa2[0] = p2
is(fpa1,fpa2)
p1 = new ['String']
p2 = new ['String']
p1 = ''
p2 = ''
fpa1[1] = p1
isnt(fpa1,fpa2)
fpa2[1] = p2
is(fpa1,fpa2)
.local pmc nofpa
nofpa = new ['FixedStringArray']
isnt(fpa1, nofpa, 'Not equal to a different type')
.end
.sub test_elements
.local pmc arr1
.local int elems_i
.local num elems_f
arr1 = new ['FixedPMCArray']
arr1 = 0
elems_i = elements arr1
is(elems_i,0)
elems_i = arr1
is(elems_i,0)
elems_f = arr1
is(elems_f,0)
arr1 = new ['FixedPMCArray']
arr1 = 2048
elems_i = elements arr1
is(elems_i,2048)
elems_i = arr1
is(elems_i,2048)
elems_f = arr1
is(elems_f,2048)
.end
.sub test_get_repr
.local string s, aux
s = get_repr_fpa_n(0)
aux = get_repr_fpa_n(1)
s = concat s, aux
aux = get_repr_fpa_n(2)
s = concat s, aux
aux = get_repr_fpa_n(3)
s = concat s, aux
substring(s,'()(0)(0, 1)(0, 1, 2)','get_repr')
.end
.sub get_repr_fpa_n
.param int n
.local pmc fpa
.local string s
fpa = fpa_n(n)
s = get_repr fpa
.return(s)
.end
.sub fpa_n
.param int n
.local int i
.local pmc fpa, p
fpa = new ['FixedPMCArray']
fpa = n
i = 0
next:
if i == n goto done
p = box i
fpa[i] = p
inc i
goto next
done:
.return (fpa)
.end
.sub test_get_string
.local string s, aux
.local pmc a
a = fpa_n(0)
s = a
a = fpa_n(1)
aux = a
s = concat s, aux
a = fpa_n(2)
aux = a
s = concat s, aux
a = fpa_n(3)
aux = a
s = concat s, aux
substring(s,'0123','get_string')
.end
.sub test_splice_oob
throws_substring(<<'CODE','FixedPMCArray: index out of bounds','splice oob, offset 0')
.sub main :main
.local pmc fpa
fpa = new ['FixedPMCArray']
fpa = 5
.local pmc nil
nil = new ['Undef']
splice fpa, nil, 0, 6
.end
CODE
throws_substring(<<'CODE','FixedPMCArray: index out of bounds','splice oob, big offset')
.sub main :main
.local pmc fpa
fpa = new ['FixedPMCArray']
fpa = 5
.local pmc nil
nil = new ['Undef']
splice fpa, nil, 6, 0
.end
CODE
.end
.sub test_definedness
.local pmc arr1
arr1 = new ['FixedPMCArray']
arr1 = 2005
.local int defined_elem_1956
defined_elem_1956 = defined arr1[1956]
is(defined_elem_1956,0,'definedness')
arr1[1956] = 42
defined_elem_1956 = defined arr1[1956]
is(defined_elem_1956,1,'definedness')
.local pmc val
null val
arr1[1956] = val
defined_elem_1956 = defined arr1[1956]
is(defined_elem_1956,0,'definedness')
.end
.sub test_get_null_elem
.local pmc arr1, n
.local int i
.local string s
arr1 = new ['FixedPMCArray']
arr1 = 1
arr1[0] = n
i = arr1[0]
is(i,0,'null int is 0')
s = arr1[0]
is(s,"",'null string is empty string')
.end
.sub test_get_uninitialized
throws_substring(<<'CODE','Null PMC access in name','get uninitialized')
.sub main :main
.local pmc arr1
arr1 = new ['FixedPMCArray']
arr1 = 2005
.local pmc elem_1956
elem_1956 = arr1[1956]
.local string type_1956
type_1956 = typeof elem_1956
print type_1956
.end
CODE
.end
.sub test_interface
.local pmc pmc1
pmc1 = new ['FixedPMCArray']
.local int bool1
does bool1, pmc1, "scalar"
nok(bool1,'FixedPMCArray does not scalar')
does bool1, pmc1, "array"
ok(bool1,'FixedPMCArray does array')
does bool1, pmc1, "no_interface"
nok(bool1,'no interface')
.end
.sub test_set_ints_access_pmc_keys
new $P0, ['FixedPMCArray']
set $P0, 1024
set $P0[25], 125
set $P0[128], 10.2
set $P0[513], "cow"
new $P1, ['Integer']
set $P1, 123456
set $P0[1023], $P1
new $P2, ['Key']
set $P2, 25
set $I0, $P0[$P2]
is($I0, 125,'got int with pmc key')
set $P2, 128
set $N0, $P0[$P2]
is($N0,10.2,'got float with pmc key',0.00001)
set $P2, 513
set $S0, $P0[$P2]
is($S0, "cow", 'got string with pmc key')
set $P2, 1023
set $P3, $P0[$P2]
set $I1, $P3
is($I1, 123456, 'got another int with pmc key')
.end
.sub test_set_pmc_keys_access_ints
new $P0, ['FixedPMCArray']
set $P0, 3
new $P1, ['Key']
set $P1, 0
set $P0[$P1], 25
set $P1, 1
set $P0[$P1], 2.5
set $P1, 2
set $P0[$P1], "bleep"
set $I0, $P0[0]
is($I0, 25,'got integer with int lookup')
set $N0, $P0[1]
is($N0,2.5,'got float with int lookup',0.00001)
set $S0, $P0[2]
is($S0, "bleep",'got string with int lookup')
.end
.sub test_oob_elem
throws_substring(<<'CODE','FixedPMCArray: index out of bounds!','set out-of-bounds index')
.sub main :main
new $P0, ['FixedPMCArray']
set $P0, 1
set $P0[1], -7
.end
CODE
throws_substring(<<'CODE','FixedPMCArray: index out of bounds!','set out-of-bounds index')
.sub main :main
new $P0, ['FixedPMCArray']
set $P0, 1
set $I0, $P0[1]
.end
CODE
.end
.sub test_negative_index
throws_substring(<<'CODE','FixedPMCArray: index out of bounds!','set negative index')
.sub main :main
new $P0, ['FixedPMCArray']
set $P0, 1
set $P0[-1], -7
.end
CODE
throws_substring(<<'CODE','FixedPMCArray: index out of bounds!','get negative index')
.sub main :main
new $P0, ['FixedPMCArray']
set $P0, 1
set $I0, $P0[-1]
.end
CODE
.end
.sub test_setting_second_elem
new $P0, ['FixedPMCArray']
set $P0, 2
set $P0[1],-7
set $I0,$P0[1]
is($I0,-7,'set second elem to int')
set $P0[1],3.7
set $N0,$P0[1]
is($N0,3.7,'set second elem to float')
set $P0[1],"muwhahaha"
set $S0,$P0[1]
is($S0,"muwhahaha",'set second elem to string')
.end
.sub test_setting_first_elem
new $P0, ['FixedPMCArray']
set $P0, 1
set $P0[0],-7
set $I0,$P0[0]
is($I0,-7,'set first elem to int')
set $P0[0],3.7
set $N0,$P0[0]
is($N0,3.7,'set first elem to float')
set $P0[0],"muwhahaha"
set $S0,$P0[0]
is($S0,"muwhahaha",'set first elem to string')
.end
.sub test_truthiness
new $P0, ['FixedPMCArray']
set $P0, 0
nok($P0,'length 0 FixedPMCArray is falsey')
set $P0, 1
ok($P0, 'length 1 FixedPMCArray is truthy')
.end
.sub test_tt991
throws_substring(<<'CODE','FixedPMCArray: Cannot set array size to a negative number','cannot create a negative length array')
.sub main :main
new $P0, ['FixedPMCArray']
set $P0, -1
.end
CODE
.end
.sub test_tt1039
.local pmc arr
arr = new 'FixedPMCArray'
arr = 4
arr[0] = 'just'
arr[1] = 'another'
arr[2] = 'perl'
arr[3] = 'hacker'
.local pmc sorted_arr
sorted_arr = new 'FixedPMCArray'
sorted_arr = 4
sorted_arr[0] = 'another'
sorted_arr[1] = 'hacker'
sorted_arr[2] = 'just'
sorted_arr[3] = 'perl'
$P0 = get_global 'cmpfn1'
$P1 = clone arr
$P1.'sort'($P0)
is_deeply($P1, sorted_arr, 'fpa.sort called with normal Sub')
$P0 = get_global 'cmpfn2'
$P1 = clone arr
$P1.'sort'($P0)
is_deeply($P1, sorted_arr, 'fpa.sort called with MultiSub')
.end
.sub 'cmpfn1'
.param pmc a
.param pmc b
$I0 = cmp_str a, b
.return ($I0)
.end
.sub 'cmpfn2' :multi(_, _)
.param pmc a
.param pmc b
$I0 = cmp_str a, b
.return ($I0)
.end
.sub test_resize_exception
throws_substring(<<'CODE',"FixedPMCArray: Can't resize",'cannot resize FixedPMCArray')
.sub main :main
new $P0, ['FixedPMCArray']
set $I0,$P0
set $P0,1
set $P0,2
.end
CODE
throws_substring(<<'CODE',"set_number_native() not implemented in class 'FixedPMCArray'", 'cannot use float as length to FixedPMCArray')
.sub main :main
new $P0, ['FixedPMCArray']
set $P0, 42.0
.end
CODE
throws_substring(<<'CODE',"set_string_native() not implemented in class 'FixedPMCArray'", 'cannot use string as length to FixedPMCArray')
.sub main :main
new $P0, ['FixedPMCArray']
set $P0,"GIGO"
.end
CODE
.end
.sub test_setting_array_size
new $P0, ['FixedPMCArray']
set $I0, $P0
is($I0,0,'size of new FixedPMCArray is 0')
set $P0, 1
set $I0, $P0
is($I0,1,'size of FixedPMCArray is 1')
.end
.sub 'test_new_style_init'
$P0 = new 'FixedPMCArray', 10
$I0 = $P0
is($I0, 10, "New style init creates the correct # of elements")
$P0 = new ['FixedPMCArray'], 10
$I0 = $P0
is($I0, 10, "New style init creates the correct # of elements for a key constant")
$P1 = new 'Integer'
$P0[9] = $P1
$P2 = $P0[9]
is($P2, $P1, 'New style init creates the array')
.end
.sub test_invalid_init_tt1509
throws_substring(<<'CODE', 'Cannot set array size to a negative number (-10)', 'New style init does not dump core for negative array lengths')
.sub main :main
$P0 = new ['FixedPMCArray'], -10
.end
CODE
throws_substring(<<'CODE', 'Cannot set array size to a negative number (-10)', 'New style init (key constant) does not dump core for negative array lengths')
.sub main :main
$P0 = new 'FixedPMCArray', -10
.end
CODE
.end
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir: