t/pmc/packfileannotation.t

   1 #!./parrot
   2 # Copyright (C) 2006-2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/packfileannotation.t - test the PackfileAnnotation PMC
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pmc/packfileannotation.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests the PackfileAnnotation PMC.
  16
  17 =cut
  18
  19 # PackfileAnnotation constructor
  20 .sub 'test' :main
  21 .include 'test_more.pir'
  22     .local pmc pa
  23
  24     plan(5)
  25
  26     pa = new ['PackfileAnnotation']
  27     $I0 = defined pa
  28     ok($I0, 'PackfileAnnotation created')
  29
  30     pa.'set_name'('line')
  31     pa.'set_offset'(115200)
  32     pa = 42
  33
  34     $S0 = pa.'get_name'()
  35     is($S0, 'line',  'Name stored and fetched')
  36     $I0 = pa.'get_offset'()
  37     is($I0, 115200, 'Offset stored and fetched')
  38     $I0 = pa
  39     is($I0, 42, 'Value stored and fetched')
  40
  41     # We can't fetch string from integer annotation
  42     push_eh check
  43     $I1 = 1
  44     $S0 = pa
  45     $I0 = 0
  46   check:
  47     pop_eh
  48     ok($I0, "Can't fetch wrong value from Annotation")
  49
  50 .end
  51
  52 # Local Variables:
  53 #   mode: pir
  54 #   fill-column: 100
  55 # End:
  56 # vim: expandtab shiftwidth=4 ft=pir: