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