-
Notifications
You must be signed in to change notification settings - Fork 135
/
array_extending.t
108 lines (93 loc) · 3.13 KB
/
array_extending.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
use v6;
use Test;
plan 21;
# L<S09/Autovivification/In Perl 6 these read-only operations are indeed non-destructive:>
{
# Compare with Perl 5:
# $ perl -we '
# my @array = qw<a b c>;
# my $foo = $array[100];
# print exists $array[30] ? "exists" : "does not exist"
# '
# does not exist
my @array = <a b c d>;
is +@array, 4, "basic sanity";
my $foo = @array[20];
# We've only *accessed* @array[20], but we haven't assigned anything to it, so
# @array shouldn't change. But currently, @array *is* automatically extended,
# i.e. @array is ("a", "b", "c", "d", Mu, Mu, ...). This is wrong.
is +@array, 4,
"accessing a not existing array element should not automatically extend the array";
}
{
my @array = <a b c d>;
@array[20] = 42;
# Now, we did assign @array[20], so @array should get automatically extended.
# @array should be ("a", "b", "c", "d", Mu, Mu, ..., 42).
is +@array, 21,
"creating an array element should automatically extend the array (1)";
# And, of course, @array.exists(20) has to be true -- we've just assigned
# @array[20].
#?rakudo skip "not implemented"
ok @array.exists(20),
"creating an array element should automatically extend the array (2)";
}
{
my @array = <a b c d>;
my $defined = defined @array[100];
ok !$defined,
'defined @array[$index_out_of_bounds] should be false';
is +@array, 4,
'defined @array[$index_out_of_bounds] should not have altered @array';
}
{
my @array = <a b c d>;
my $defined;
try { $defined = defined @array[*-5]; }
ok !$defined,
'defined @array[$negative_index_out_of_bounds] should be false';
is +@array, 4,
'defined @array[$negative_index_out_of_bounds] should not have altered @array';
}
#?rakudo skip "exists() not implemented"
{
my @array = <a b c d>;
my $exists = @array.exists(100);
ok !$exists,
'@array.exists($index_out_of_bounds) should be false';
is +@array, 4,
'@array.exists($index_out_of_bounds) should not have altered @array';
}
#?rakudo skip "exists() not implemented"
{
my @array = <a b c d>;
my $exists = @array.exists(-5);
ok !$exists,
'@array.exists($negative_index_out_of_bounds) should be false';
is +@array, 4,
'@array.exists($negative_index_out_of_bounds) should not have altered @array';
}
{
my @a;
@a[2] = 6;
is +@a, 3, '@a[2] = 6 ensures that @a has three items';
ok @a[0].notdef, '... and the first is not defined';
ok @a[1].notdef, '... and the second is not defined';
is @a[2], 6, '... and the third is 6';
}
# RT #62948
{
my @a;
@a[2] = 'b';
my @b = @a;
is +@b, 3, 'really a degenerative case of assigning list to array';
@b = (6, @a);
is +@b, 4, 'assigning list with extended array to an array';
my $s = @a.join(':');
is $s, '::b', 'join on extended array';
my $n = + @a.grep({ $_ eq 'b'});
is $n, 1, 'grep on extended array';
@a[1] = 'c'; # cmp doesn't handle Mu cmp Mu yet
ok not defined @a.min(), 'min on list with undefined el returns Mu';
}
# vim: ft=perl6