use Test;

# RT #129763 https://rt.perl.org/Ticket/Display.html?id=129763
throws-like '1++', X::Multi::NoMatch,
    message => /'but require mutable arguments'/,
'point out matching `is rw` candidates when passing non-rw';

done-testing;

use Test;

# RT #129763 https://rt.perl.org/Ticket/Display.html?id=129763
throws-like '1++', X::Multi::NoMatch,
    message => /'but require mutable arguments'/,
'point out matching `is rw` candidates when passing non-rw';

subtest 'curly quotes are not called smart quotes' => {
    my @quotes = ｢‘｣, ｢‚｣, ｢’｣, ｢“｣, ｢„｣, ｢”｣;
    plan +@quotes;

    for @quotes -> $q {
        throws-like $q, Exception,
            :message{ not .contains('smart') and .contains('curly') },
        "$q (U+$q.ord.base(16)) quote is called curly, not smart";
    }
}

done-testing;

Test we call curly quotes curly and not smart
Test we call curly quotes curly and not smart

Moved from roast.

Roast entry:
https://github.com/perl6/roast/commit/f30510e79c27bdf867b1bbd20415f8abdb1d78e8
Roast exit:
https://github.com/perl6/roast/commit/53091aa134cb8b0e9a97b1b0896a154155f57523
