t/pmc/handle.t

   1 #!./parrot
   2 # Copyright (C) 2001-2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/handle.t - Handle basic type
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pmc/handle.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests the Handle PMC. Handle is abstract, so no real tests of functionality
  16 here.
  17
  18 =cut
  19
  20 .sub main :main
  21     .include 'test_more.pir'
  22
  23     plan(3)
  24     'test_create'()
  25     'test_does_tt_1473'()
  26 .end
  27
  28 .sub 'test_create'
  29     push_eh cant_instantiate
  30     $P0 = new 'Handle'
  31     ok(0, "Can instantiate an abstract type")
  32     pop_eh
  33     goto create_end
  34   cant_instantiate:
  35     ok(1, "Cannot instantiate an abstract type")
  36     pop_eh
  37   create_end:
  38
  39     $P1 = new ['String']
  40     push_eh cant_instantiate_arg
  41     $P0 = new ['Handle'], $P1
  42     ok(0, "Can instantiate an abstract type with arg")
  43     pop_eh
  44     goto create_end_arg
  45   cant_instantiate_arg:
  46     ok(1, "Cannot instantiate an abstract type with arg")
  47     pop_eh
  48   create_end_arg:
  49 .end
  50
  51 .sub 'test_does_tt_1473'
  52     push_eh cant_do_does
  53     $P0 = get_class 'Handle'
  54     $I0 = does $P0, 'Handle'
  55     ok($I0, "Handle does Handle")
  56     goto does_end
  57   cant_do_does:
  58     ok(0, "Does throws an exception")
  59   does_end:
  60     pop_eh
  61 .end
  62
  63
  64 # Local Variables:
  65 #   mode: pir
  66 #   fill-column: 100
  67 # End:
  68 # vim: expandtab shiftwidth=4 ft=pir: