t/pmc/packfileannotation.t

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