Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Unfudges; q:x and qq:x work on JVM now.
  • Loading branch information
jnthn committed Sep 25, 2013
1 parent cb4fc4e commit 6432283
Showing 1 changed file with 2 additions and 7 deletions.
9 changes: 2 additions & 7 deletions S02-literals/quoting.t
Expand Up @@ -384,39 +384,34 @@ Hello, World
}
# q:x
#?rakudo.jvm skip "Unhandled file open mode 'rp'"
{
my $result = $*OS ~~ /:i win32/ ?? "hello\r\n" !! "hello\n";
is q:x/echo hello/, $result, "Testing for q:x operator.";
}
# utf8
#?rakudo.jvm skip "Unhandled file open mode 'rp'"
{
# 一 means "One" in Chinese.
is q:x/echo 一/, "\n", "Testing for q:x operator. (utf8)";
}
#?pugs todo
#?rakudo.jvm skip "Unhandled file open mode 'rp'"
{
my $world = 'world';
ok qq:x/echo hello $world/ ~~ /^'hello world'\n$/, 'Testing qq:x operator';
}
#?rakudo.parrot todo 'q:x assigned to array'
#?rakudo todo 'q:x assigned to array'
#?niecza todo ':x'
#?pugs todo
#?rakudo.jvm skip "Unhandled file open mode 'rp'"
{
my @two_lines = q:x/echo hello ; echo world/;
is @two_lines, ("hello\n", "world\n"), 'testing q:x assigned to array';
}
#?rakudo.parrot todo 'q:x assigned to array'
#?rakudo todo 'q:x assigned to array'
#?niecza todo ':x'
#?pugs todo
#?rakudo.jvm skip "Unhandled file open mode 'rp'"
{
my $hello = 'howdy';
my @two_lines = qq:x/echo $hello ; echo world/;
Expand Down

0 comments on commit 6432283

Please sign in to comment.