t/pmc/default.t

   1 #!./parrot
   2 # Copyright (C) 2006-2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/default.t - test default PMC
   8
   9
  10 =head1 SYNOPSIS
  11
  12     % prove t/pmc/default.t
  13
  14 =head1 DESCRIPTION
  15
  16 Tests the default PMC.
  17
  18 =cut
  19
  20 .sub main :main
  21     .include 'test_more.pir'
  22
  23     plan(5)
  24     test_default()
  25     test_inspect_vtable_function()
  26 .end
  27
  28 .sub test_default
  29     $I0 = 1
  30     push_eh init
  31     $P0 = new ['default']
  32     $I0 = 0
  33   init:
  34     pop_eh
  35     ok($I0, "Couldn't create default PMC directly")
  36
  37     $I0 = 1
  38     push_eh init_int
  39     $P0 = new ['default'], 42
  40     $I0 = 0
  41   init_int:
  42     pop_eh
  43     ok($I0, "Couldn't create default PMC directly with int initializer")
  44
  45     $I0 = 1
  46     push_eh init_pmc
  47     $P0 = new ['default'], $P1
  48     $I0 = 0
  49   init_pmc:
  50     pop_eh
  51     ok($I0, "Couldn't create default PMC directly with PMC initializer")
  52 .end
  53
  54 .sub test_inspect_vtable_function
  55     $P0 = new ['String']
  56     $P1 = inspect $P0, 'flags'
  57     $I9 = 1 << 9   # PObj_is_PMC_FLAG
  58     $I29 = 1 << 29 # PObj_is_class_FLAG
  59
  60     $I0 = $P1
  61     $I1 = $I0 & $I9
  62     ok($I1)
  63
  64     $I1 = $I0 & $I29
  65     nok($I1)
  66 .end
  67
  68 # Local Variables:
  69 #   mode: pir
  70 #   fill-column: 100
  71 # End:
  72 # vim: expandtab shiftwidth=4 ft=pir: