Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

48 lines (30 sloc) 0.678 kb
#!./parrot
# Copyright (C) 2011, Parrot Foundation.
=head1 NAME
t/pir/interop.t - Tests for HLL interoperability from PIR
=head1 SYNOPSIS
% prove t/pir/macro.t
=head1 DESCRIPTION
Tests for HLL interoperability from PIR.
=cut
.sub main :main
.include 'test_more.pir'
plan(3)
load_language 'parrot'
ok(1, 'loaded parrot language')
.local pmc c
c = compreg 'parrot'
$P0 = get_class [ 'Parrot'; 'Compiler' ]
isa_ok(c, $P0)
c.'export'('foo bar')
ok(1, 'can call export on parrot compiler')
.end
.sub foo
.end
.sub bar
.end
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Jump to Line
Something went wrong with that request. Please try again.