Add test for loading perl6.pbc bytecode

Signed-off-by: Moritz Lenz <moritz@faui2k3.org>
rakudo · Jun 12, 2010 · 8fc1ef5 · 8fc1ef5
1 parent 006bdf0
commit 8fc1ef5
Show file tree

Hide file tree

Showing 3 changed files with 33 additions and 1 deletion.
diff --git a/build/Makefile.in b/build/Makefile.in
@@ -395,7 +395,7 @@ test    : coretest
 fulltest: coretest spectest
 
 coretest: Test.pir $(PERL6_EXE)
-	$(PERL) t/harness t/00-parrot t/01-sanity
+	PARROT=$(PARROT) $(PERL) t/harness t/00-parrot t/01-sanity t/02-embed
 
 # Run the spectests that we know work.
 spectest_regression: spectest

diff --git a/t/02-embed/01-load.pir b/t/02-embed/01-load.pir
@@ -0,0 +1,29 @@
+=head1 NAME
+
+t/02-embed/01-load.pir - Tests loading of bytecode
+
+=head1 SYNOPSIS
+
+    % parrot t/02-embed/01-load.pir
+
+=head1 DESCRIPTION
+
+Tests the loading of perl6.pbc . This file is used by t/02-embed/01-load.t
+
+=cut
+
+.sub 'main' :main
+    .include 'test_more.pir'
+
+    plan(1)
+
+    test_load()
+.end
+
+.sub test_load
+    lives_ok(<<'CODE',"can load_bytecode perl6.pbc")
+.sub main
+    load_bytecode "perl6.pbc"
+.end
+CODE
+.end
diff --git a/t/02-embed/01-load.t b/t/02-embed/01-load.t
@@ -0,0 +1,3 @@
+use v6;
+my $parrot = %*ENV{'PARROT'};
+run("$parrot t/02-embed/01-load.pir");