1#!./parrot 2# Copyright (C) 2006-2010, Parrot Foundation. 3 4=head1 NAME 5 6t/pmc/parrotlibrary.t - test the ParrotLibrary PMC 7 8=head1 SYNOPSIS 9 10 % prove t/pmc/parrotlibrary.t 11 12=head1 DESCRIPTION 13 14Tests the ParrotLibrary PMC. 15 16=cut 17 18.sub main :main 19 .include 'test_more.pir' 20 .local int clone_ok 21 22 plan(2) 23 24 new $P0, ['ParrotLibrary'] 25 ok(1, 'Instantiated a ParrotLibrary PMC') 26 27 set_addr $P0, 123 28 clone_ok = 0 29 30 push_eh broken_clone 31 $P1 = clone $P0 32 pop_eh 33 clone_ok = 1 34 35 broken_clone: 36 ok(clone_ok, "ParrotLibrary Clone") 37 38.end 39 40# Local Variables: 41# mode: pir 42# fill-column: 100 43# End: 44# vim: expandtab shiftwidth=4 ft=pir: 45