t/pmc/role.t

   1 #! parrot
   2 # Copyright (C) 2007, The Perl Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/role.t - test the Role PMC
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pmc/role.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests the Role PMC.
  16
  17 =cut
  18
  19 # L<PDD15/Role PMC API>
  20 # TODO fix smartlinks once this is specced
  21
  22 .sub main :main
  23     .include 'include/test_more.pir'
  24
  25     plan(5)
  26
  27
  28     $P0 = new 'Role'
  29     ok(1, 'Role type exists') # or we've already died.
  30
  31
  32     $I0 = isa $P0, 'Role'
  33     is($I0, 1, 'isa Role')
  34
  35
  36     $P0 = new 'Hash'
  37     $P0['name'] = 'Wob'
  38     $P1 = new 'Role', $P0
  39     ok(1, 'Created a Role initialized with a Hash')
  40
  41     $P2 = $P1.inspect('name')
  42     $S0 = $P2
  43     $I0 = $S0 == 'Wob'
  44     ok($I0, 'Role name was set correctly')
  45
  46
  47     $P2 = $P1.inspect('namespace')
  48     $S0 = $P2
  49     $I0 = $S0 == 'Wob'
  50     ok($I0, 'Role namespace was set correctly')
  51 .end
  52
  53 ## TODO add more tests as this is documented and implemented
  54
  55 # Local Variables:
  56 #   mode: cperl
  57 #   cperl-indent-level: 4
  58 #   fill-column: 100
  59 # End:
  60 # vim: expandtab shiftwidth=4: