dash-e.t

use v6;
use Test;
plan 3;

BEGIN { @*INC.push: 't/spec/packages' }
use Test::Util;

my Str $x;
is_run $x,  :args['-e', 'print q[Moin]'],
    {
        out     => 'Moin',
        err     => '',
        status  => 0,
    },
    '-e print $something works';

#?rakudo todo 'regression: something with encodings?'
is_run $x,  :args['-e', "print q[\c[LATIN SMALL LETTER A WITH DOT ABOVE]]"],
    {
        out     => "\c[LATIN SMALL LETTER A WITH DOT ABOVE]",
        err     => '',
        status  => 0,
    },
    '-e print $something works with non-ASCII string literals';

#?rakudo todo 'regression: something with encodings?'
is_run $x,  :args['-e', 'print <1 2> »+« <1 1>'],
    {
        out     => "23",
        err     => '',
        status  => 0,
    },
    '-e works with non-ASCII program texts';