t/pmc/object.t

   1 #!./parrot
   2 # Copyright (C) 2007-2008, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/object.t - test the Object PMC
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pmc/object.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests the Object PMC.
  16
  17 =cut
  18
  19 # L<PDD15/Object PMC API>
  20 ## TODO add more tests as this is documented and implemented
  21
  22 .sub main :main
  23     .include 'test_more.pir'
  24
  25     plan(1)
  26
  27     push_eh cant_instantiate
  28       new $P0, ['Object']
  29     pop_eh
  30     ok(0, 'Able to instantiate Object')
  31     goto done_1
  32 cant_instantiate:
  33     ok(1, 'Unable to Instantiate Object')
  34 done_1:
  35 .end
  36
  37 # Local Variables:
  38 #   mode: pir
  39 #   fill-column: 100
  40 # End:
  41 # vim: expandtab shiftwidth=4 ft=pir: