adjust tests

Author: gerdr

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).main_sub();
+        my $rxsub  := $rxcomp.compile($regex);
         my $cursor := NQPCursor."!cursor_init"($target, :c(0));
         my $match  := $rxsub($cursor).MATCH;
         if $expect_substr {

t/qast/pirt.t

@@ -6,7 +6,8 @@ sub is_pirt_result($producer, $expected, $desc) {
     my $pirt := $producer();
     my $pir := $pirt.pir();
     #say($pir);
-    my $sub := QAST::Compiler.compile_and_init($pir).main_sub();
+    my $pbc := QAST::Compiler.pbc($pir);
+    my $sub := QAST::Compiler.init($pbc);
     ok($sub() eq $expected, $desc);
 }
 

t/qast/qast.t

@@ -7,7 +7,8 @@ sub compile_qast($qast) {
     my $*QAST_BLOCK_NO_CLOSE := 1;
     my $pirt := QAST::Compiler.as_post($qast);
     my $pir := $pirt.pir();
-    QAST::Compiler.compile_and_init($pir).main_sub();
+    my $pbc := QAST::Compiler.pbc($pir);
+    QAST::Compiler.init($pbc);
 }
 sub is_qast($qast, $value, $desc) {
     try {

t/qregex/01-qregex.t

@@ -45,7 +45,7 @@ sub test_line($line) {
 
     my $rxcomp := pir::compreg__Ps('QRegex::P6Regex');
     try {
-        my $rxsub  := $rxcomp.compile($regex).main_sub();
+        my $rxsub  := $rxcomp.compile($regex);
         my $cursor := NQPCursor."!cursor_init"($target, :c(0));
         my $match  := $rxsub($cursor).MATCH;
         if $expect_substr {