Permalink
Browse files

adjust tests

  • Loading branch information...
1 parent 0745974 commit cf45f3ec233fb4c6214e6bf7427f8914064ad1b5 @gerdr gerdr committed Feb 16, 2013
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
@@ -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
@@ -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
@@ -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 {

0 comments on commit cf45f3e

Please sign in to comment.