<commit_before>use v6;
use Test;
plan 7;

sub callerunderscore ($foo = $CALLER::_) {
    return "-" ~ $foo ~ "-"
}

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"
is(callerunderscore(), "-bar-", 'CALLER:: $_ set twice');
for ("quux") {
    #?rakudo todo "NYI"
    is(callerunderscore(), '-quux-', 'CALLER:: $_ set by for');
}
given 'hirgel' {
    #?rakudo todo "NYI"
    is callerunderscore, '-hirgel-', '$CALLER::_ set by given';
}
#?rakudo todo "NYI RT #124926"<commit_msg>Reap merged ticket numbers, and mention RT#123660<commit_after>use v6;
use Test;
plan 7;

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 #124924"
is(callerunderscore(), "-bar-", 'CALLER:: $_ set twice');
for ("quux") {
    #?rakudo todo "NYI RT #123660"
    is(callerunderscore(), '-quux-', 'CALLER:: $_ set by for');
}
given 'hirgel' {
    #?rakudo todo "NYI RT #123660"
    is callerunderscore, '-hirgel-', '$CALLER::_ set by given';
}
#?rakudo todo "NYI RT #124924"
{'fraction_non_alphanumeric': 0.2071563088512241, 'fraction_numerical': 0.04268675455116133, 'mean_word_length': 4.403389830508474, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3801062', 'n_tokens_mistral': 670, 'n_tokens_neox': 611, 'n_words': 180}