Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Add test file and test sample file to address http://trac.parrot.org/…

  • Loading branch information...
commit d6ce563ccb406b0761535c34d1e9dc15a944817e 1 parent 501582b
@jkeenan jkeenan authored
View
1  .gitignore
@@ -440,6 +440,7 @@
/t/perl/Parrot_Test_1.pir
/t/perl/*.gcda
/t/perl/*.gcno
+/t/pir/pbc_fallback_1.pir
/t/pmc/*.out
/t/pmc/*.pasm
/t/pmc/*.pbc
View
2  MANIFEST
@@ -1810,7 +1810,9 @@ t/pharness/02-get_test_prog_args.t [test]
t/pharness/03-handle_long_options.t [test]
t/pharness/04-Usage.t [test]
t/pir/macro.t [test]
+t/pir/pbc_fallback.t [test]
t/pir/registernames.t [test]
+t/pir/testlib/loadtest.pir [test]
t/pir/timer_exit.t [test]
t/pmc/addrregistry.t [test]
t/pmc/arrayiterator.t [test]
View
2  MANIFEST.SKIP
@@ -974,6 +974,8 @@
^/t/perl/Parrot_Test_1\.pasm/
^/t/perl/Parrot_Test_1\.pir$
^/t/perl/Parrot_Test_1\.pir/
+^/t/pir/pbc_fallback_1\.pir$
+^/t/pir/pbc_fallback_1\.pir/
^/t/pmc/.*\.out$
^/t/pmc/.*\.out/
^/t/pmc/.*\.pasm$
View
38 t/pir/pbc_fallback.t
@@ -0,0 +1,38 @@
+#!perl
+# Copyright (C) 2011, Parrot Foundation.
+
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+
+use Test::More;
+use Parrot::Test tests => 1;
+
+=head1 NAME
+
+t/pir/pbc_fallback.t - Parrot Calling Conventions
+
+=head1 SYNOPSIS
+
+ % prove t/pir/pbc_fallback.t
+
+=head1 DESCRIPTION
+
+Test PIR that loads PIR. See http://trac.parrot.org/parrot/ticket/692.
+
+=cut
+
+pir_output_is( <<'CODE', <<'OUTPUT', "use it in PIR" );
+.sub main :main
+ load_bytecode 't/pir/testlib/loadtest.pbc'
+.end
+CODE
+loaded
+OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
View
12 t/pir/testlib/loadtest.pir
@@ -0,0 +1,12 @@
+# Copyright (C) 2011, Parrot Foundation.
+
+.sub 'loaded' :load
+ say 'loaded'
+.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
+
Please sign in to comment.
Something went wrong with that request. Please try again.