Skip to content

Commit

Permalink
Spec ∈ Range:D
Browse files Browse the repository at this point in the history
Closes rakudo/rakudo#2217 R#2217
  • Loading branch information
zoffixznet committed Aug 15, 2018
1 parent 3b30b38 commit 64f19e8
Showing 1 changed file with 12 additions and 2 deletions.
14 changes: 12 additions & 2 deletions S03-operators/set_elem.t
Expand Up @@ -33,7 +33,11 @@ my @elem =
"ideas", $objh,
13, $objh,
"quick", $list,
10 ** 42, $bigintrange
10 ** 42, $bigintrange,
2, 1..2,
42.5, 41.5..50,
42.5e0, 41.5e0..50,
"b", "a".."c",
;

# Things we need to check for not being an element of. Uses the string
Expand Down Expand Up @@ -70,7 +74,12 @@ my @notelem =
do { my %o := :{ a => 42 }; %o<a>:delete; %o },
$list,
List.new,
$bigintrange => 10 ** 42 + 1
$bigintrange => 10 ** 42 + 1,
.5 => ^2,
-.5 => -1..0,
2 => ^2,
40.5e0 => 41.5e0..50,
"d" => "a".."c",
;

plan 2 * (2 * @elem/2 + 2 * @notelem) + 1 * (2 * @elem/2 + 2 * @notelem);
Expand Down Expand Up @@ -128,4 +137,5 @@ for
}
}


# vim: ft=perl6

0 comments on commit 64f19e8

Please sign in to comment.