Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
various rakudo (un)fudges
  • Loading branch information
moritz committed Jul 7, 2011
1 parent a71a764 commit ba9a5d4
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 1 deletion.
3 changes: 2 additions & 1 deletion S02-literals/string-interpolation.t
Expand Up @@ -22,15 +22,16 @@ plan 10;
{
# interpolating into double quotes results in a Str
my $a = 3;
#?rakudo todo 'type of interpolation literal'
ok "$a" ~~ Str, '"$a" results in a Str';
ok "{3}" ~~ Str, '"{3}" results in a Str';

# RT #76234
#?rakudo todo "RT 76234, Nil stringy interpolation"
is "{}", '', 'Interpolating an empty block is cool';
}

#?niecza skip 'Parcel.max'
#?rakudo skip 'Parcel.max'
{
my $rt65538_in = qq[line { (1,2,3).min }
line 2
Expand Down
3 changes: 3 additions & 0 deletions S03-sequence/basic.t
Expand Up @@ -94,6 +94,7 @@ is (4, 2, 1, 2, 4 ... 16).join(', '), '4, 2, 1, 2, 4, 8, 16', 'geometric sequenc

is (False, &prefix:<!> ... *).[^6].join(', '), (False, True, False, True, False, True).join(', '), "alternating False and True";
is (False, &prefix:<!> ... *).[^10].grep(Bool).elems, 10, "alternating False and True is always Bool";
#?rakudo skip 'loops'
is (1,2,&[+] ... 8).join(', ') , "1, 2, 3, 5, 8" , "Using &[+] works";
is (False, { !$_ } ... *).[^6].join(', '), (False, True, False, True, False, True).join(', '), "alternating False and True";
is (False, { !$_ } ... *).[^10].grep(Bool).elems, 10, "alternating False and True is always Bool";
Expand Down Expand Up @@ -133,9 +134,11 @@ is (1, 2 ... 0).munch(3), (1,2,3), 'No more: limit value is on the wrong side';


# RT #75698
#?rakudo skip 'junctions'
ok ?(one((-5 ... ^5).flat) == 0), '-5 ... ^5 produces just one zero';

# RT #75316
#?rakudo todo 'mysterious'
isa_ok (1...()), Failure,
'empty list on right side of sequence operator does not cause infinite loop';

Expand Down

0 comments on commit ba9a5d4

Please sign in to comment.