Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

adjust tests

  • Loading branch information...
commit cf45f3ec233fb4c6214e6bf7427f8914064ad1b5 1 parent 0745974
@gerdr gerdr authored
Showing with 3 additions and 3 deletions.
  1. +1 −1  t/p5regex/01-p5regex.t
  2. +1 −1  t/qast/pirt.t
  3. +1 −1  t/qast/qast.t
View
2  t/p5regex/01-p5regex.t
@@ -39,7 +39,7 @@ sub test_line($line) {
my $rxcomp := pir::compreg__Ps('QRegex::P5Regex');
try {
- my $rxsub := $rxcomp.compile($regex);
+ my $rxsub := $rxcomp.compile($regex).main_sub();
my $cursor := NQPCursor."!cursor_init"($target, :c(0));
my $match := $rxsub($cursor).MATCH;
if $expect_substr {
View
2  t/qast/pirt.t
@@ -6,7 +6,7 @@ sub is_pirt_result($producer, $expected, $desc) {
my $pirt := $producer();
my $pir := $pirt.pir();
#say($pir);
- my $pbc := QAST::Compiler.evalpmc($pir);
+ my $pbc := QAST::Compiler.evalpmc($pir).main_sub();
ok($pbc() eq $expected, $desc);
}
View
2  t/qast/qast.t
@@ -7,7 +7,7 @@ sub compile_qast($qast) {
my $*QAST_BLOCK_NO_CLOSE := 1;
my $pirt := QAST::Compiler.as_post($qast);
my $pir := $pirt.pir();
- QAST::Compiler.evalpmc($pir);
+ QAST::Compiler.evalpmc($pir).main_sub();
}
sub is_qast($qast, $value, $desc) {
try {
Please sign in to comment.
Something went wrong with that request. Please try again.