Skip to content

Commit

Permalink
Reap merged ticket numbers, and mention RT#123660
Browse files Browse the repository at this point in the history
  • Loading branch information
skids committed Aug 9, 2015
1 parent 4df4e7b commit 66a1ea8
Showing 1 changed file with 8 additions and 4 deletions.
12 changes: 8 additions & 4 deletions S06-signature/caller-param.t
Expand Up @@ -6,23 +6,27 @@ sub callerunderscore ($foo = $CALLER::_) {
return "-" ~ $foo ~ "-"
}

# These tests all work when using CALLER::CALLER but we should
# not need to do that. Minus that fact, 123660 has actually been
# fixed since it was reported.

is(callerunderscore("foo"), "-foo-", 'CALLER:: string arg');
is(callerunderscore(1), "-1-", 'CALLER:: number arg');
$_ = "foo";
#?rakudo todo "NYI RT #124924"
is(callerunderscore(), "-foo-", 'CALLER:: $_ set once');
$_ = "bar";
#?rakudo todo "NYI RT #124925"
#?rakudo todo "NYI RT #124924"
is(callerunderscore(), "-bar-", 'CALLER:: $_ set twice');
for ("quux") {
#?rakudo todo "NYI"
#?rakudo todo "NYI RT #123660"
is(callerunderscore(), '-quux-', 'CALLER:: $_ set by for');
}
given 'hirgel' {
#?rakudo todo "NYI"
#?rakudo todo "NYI RT #123660"
is callerunderscore, '-hirgel-', '$CALLER::_ set by given';
}
#?rakudo todo "NYI RT #124926"
#?rakudo todo "NYI RT #124924"
is(callerunderscore(), '-bar-', 'CALLER:: $_ reset after for');


Expand Down

0 comments on commit 66a1ea8

Please sign in to comment.