Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
45 lines (29 sloc) 672 Bytes
#!./parrot
# Copyright (C) 2006-2010, Parrot Foundation.
=head1 NAME
t/pmc/parrotlibrary.t - test the ParrotLibrary PMC
=head1 SYNOPSIS
% prove t/pmc/parrotlibrary.t
=head1 DESCRIPTION
Tests the ParrotLibrary PMC.
=cut
.sub main :main
.include 'test_more.pir'
.local int clone_ok
plan(2)
new $P0, ['ParrotLibrary']
ok(1, 'Instantiated a ParrotLibrary PMC')
set_addr $P0, 123
clone_ok = 0
push_eh broken_clone
$P1 = clone $P0
pop_eh
clone_ok = 1
broken_clone:
ok(clone_ok, "ParrotLibrary Clone")
.end
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Something went wrong with that request. Please try again.