Permalink
Fetching contributors…
Cannot retrieve contributors at this time
43 lines (34 sloc) 872 Bytes
use v6;
use lib 't/spec/packages';
use Test;
plan 4;
use Test::Util;
my Str $x;
is_run $x, :args['-e', 'print q[Moin]'],
{
out => 'Moin',
err => '',
status => 0,
},
'-e print $something works';
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';
is_run $x, :args['-e', 'print <1 2> »+« <1 1>'],
{
out => "2 3",
err => '',
status => 0,
},
'-e works with non-ASCII program texts';
is_run $x, :args['-e', 'say @*ARGS', '-e=foo'],
{
out => "[-e=foo]\n",
err => '',
status => 0,
},
'-e works correctly as a stopper';