Permalink
Switch branches/tags
Find file
Fetching contributors…
Cannot retrieve contributors at this time
48 lines (30 sloc) 678 Bytes
#!./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: