t/pmc/addrregistry.t

   1 #!./parrot
   2 # Copyright (C) 2006-2008, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/addrregistry.t - test AddrRegistry PMC
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pmc/addrregistry.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests the AddrRegistry PMC.
  16
  17 =cut
  18
  19 .sub main :main
  20     .include 'test_more.pir'
  21
  22     plan(3)
  23
  24     $P0 = new ['AddrRegistry']
  25     ok(1, 'Instantiated .AddrRegistry')
  26
  27     $I0 = 0
  28     if $P0 goto isnotempty
  29     inc $I0
  30 isnotempty:
  31     ok($I0, 'vtable get_bool gives false when empty')
  32
  33     $P1 = new [ 'Integer' ]
  34     $P0[0] = $P1
  35     $I0 = 0
  36     unless $P0 goto isempty
  37     inc $I0
  38 isempty:
  39     ok($I0, 'vtable get_bool gives true when non empty')
  40 .end
  41
  42 # Local Variables:
  43 #   mode: pir
  44 #   fill-column: 100
  45 # End:
  46 # vim: expandtab shiftwidth=4 ft=pir: