gistfile1.txt

# dotted postfix
{
        my (@r, @e);
        (@r = (1, 4, 9))»++;
        @e = (2, 5, 10);
        is(~@r, ~@e, "operator call on integer list elements");

        (@r = (1, 4, 9)).»++;
        is(~@r, ~@e, "operator call on integer list elements (Same thing, dot form)");

        #?rakudo skip 'hyper dot postfix form does not work currently'
        {
            (@r = (1, 4, 9))».++;
            @e = (2, 5, 10);
            is(~@r, ~@e, "operator call on integer list elements (Same thing, dot form)");
        };

        #?rakudo skip 'hyper dot postfix form does not work currently'
        {
            (@r = (1, 4, 9)).».++;
            is(~@r, ~@e, "operator call on integer list elements (Same thing, dot form)");
        };

        #?rakudo skip 'hyper dot postfix form does not work currently'
        {
            (@r = (1, 4, 9))\  .»\  .++;
            @e = (2, 5, 10);
            is(~@r, ~@e, "operator call on integer list elements (Same thing, upspace form)");
        };
};