forked from Raku/roast
/
for_with_only_one_item.t
87 lines (61 loc) · 1.46 KB
/
for_with_only_one_item.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
use v6;
use Test;
# L<S04/The C<for> statement>
# Test primarily aimed at PIL2JS
plan 9;
# sanity tests
{
my $res='';
for <a b c> { $res ~= $_ }
is $res, "abc", "for works with an <...> array literal";
}
{
my $res='';
for (<a b c>) { $res ~= $_ }
is $res, "abc", "for works with an (<...>) array literal";
}
# for with only one item, a constant
{
my $res='';
for ("a",) { $res ~= $_ }
is $res, "a", "for works with an (a_single_constant,) array literal";
}
{
my $res='';
for ("a") { $res ~= $_ }
is $res, "a", "for works with (a_single_constant)";
}
{
my $res='';
for "a" { $res ~= $_ }
is $res, "a", "for works with \"a_single_constant\"";
}
# for with only one item, an arrayref
# See thread "for $arrayref {...}" on p6l started by Ingo Blechschmidt,
# L<"http://www.nntp.perl.org/group/perl.perl6.language/22970">
{
my $arrayref = [1,2,3];
my $count=0;
for ($arrayref,) { $count++ }
is $count, 1, 'for ($arrayref,) {...} executes the loop body only once';
}
{
my $arrayref = [1,2,3];
my $count=0;
for ($arrayref) { $count++ }
is $count, 1, 'for ($arrayref) {...} executes the loop body only once';
}
{
my $arrayref = [1,2,3];
my $count=0;
for $arrayref { $count++ }
is $count, 1, 'for $arrayref {...} executes the loop body only once';
}
# RT #73400
{
my $capture = \[1,2,3];
my $count = 0;
for $capture { $count++ }
is $count, 1, 'for $capture {...} executes the loop body only once';
}
# vim: ft=perl6