Adjust tests

Raku · Feb 22, 2013 · 529f351 · 529f351
1 parent a93c7c8
commit 529f351
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/t/qast/pirt.t b/t/qast/pirt.t
@@ -6,8 +6,9 @@ sub is_pirt_result($producer, $expected, $desc) {
     my $pirt := $producer();
     my $pir := $pirt.pir();
     #say($pir);
-    my $pbc := QAST::Compiler.evalpmc($pir);
-    ok($pbc() eq $expected, $desc);
+    my $pbc := QAST::Compiler.pbc($pir);
+    my $sub := QAST::Compiler.init($pbc);
+    ok($sub() eq $expected, $desc);
 }
 
 is_pirt_result({

diff --git a/t/qast/qast.t b/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.evalpmc($pir);
+    my $pbc := QAST::Compiler.pbc($pir);
+    QAST::Compiler.init($pbc);
 }
 sub is_qast($qast, $value, $desc) {
     try {