2 # Copyright (C) 2009, Parrot Foundation.
7 t/pmc/packfilefixuptable.t - test the PackfileFixupTable PMC
12 % prove t/pmc/packfilefixuptable.t
16 Tests the PackfileFixupTable PMC.
20 # Having some known data would be helpful, here. For now, just make sure
21 # the values returned have the right types.
23 .include 't/pmc/testlib/packfile_common.pir'
25 .include 'test_more.pir'
31 # Check unpackging FixupTable
33 .local pmc pf, pfdir, pftable, pfentry
34 .local int size, this, data
37 pftable = _get_fixup_table(pf)
38 isa_ok(pftable, 'PackfileFixupTable')
40 size = elements pftable
41 ok(size, "Got some elements")
45 pfentry = pftable[this]
47 eq name, "PackfileFixupEntry", next
48 $S0 = "PackfileFixupTable["
51 $S0 = concat "] returned an object of type: "
61 ok(1, "All elements of Table are Entries")
66 # cperl-indent-level: 4
69 # vim: expandtab shiftwidth=4 ft=pir: