2 # Copyright (C) 2006-2009, Parrot Foundation.
6 t/pmc/packfileannotation.t - test the PackfileAnnotation PMC
10 % prove t/pmc/packfileannotation.t
14 Tests the PackfileAnnotation PMC.
18 # PackfileAnnotation constructor
20 .include 'test_more.pir'
25 pa = new ['PackfileAnnotation']
27 ok($I0, 'PackfileAnnotation created')
30 pa.'set_offset'(115200)
34 is($S0, 'line', 'Name stored and fetched')
35 $I0 = pa.'get_offset'()
36 is($I0, 115200, 'Offset stored and fetched')
38 is($I0, 42, 'Value stored and fetched')
40 # We can't fetch string from integer annotation
47 ok($I0, "Can't fetch wrong value from Annotation")
53 # cperl-indent-level: 4
56 # vim: expandtab shiftwidth=4 ft=pir: