2 # Copyright (C) 2007, The Perl Foundation.
7 t/pmc/role.t - test the Role PMC
19 # L<PDD15/Role PMC API>
20 # TODO fix smartlinks once this is specced
23 .include 'include/test_more.pir'
29 ok(1, 'Role type exists') # or we've already died.
33 is($I0, 1, 'isa Role')
39 ok(1, 'Created a Role initialized with a Hash')
41 $P2 = $P1.inspect('name')
44 ok($I0, 'Role name was set correctly')
47 $P2 = $P1.inspect('namespace')
50 ok($I0, 'Role namespace was set correctly')
53 ## TODO add more tests as this is documented and implemented
57 # cperl-indent-level: 4
60 # vim: expandtab shiftwidth=4: