2 # Copyright (C) 2010, Parrot Foundation.
7 t/pmc/imageiosize.t - test ImageIOSize PMC
11 % prove t/pmc/imagiosize.t
15 Tests the ImageIOSize PMC.
20 .include 'test_more.pir'
25 iios = new ['ImageIOSize']
26 ok(1, 'instantiated ImageIOSize')
35 is($I0, $I1, 'gets the same size as freeze (null)')
37 iios = new ['ImageIOSize']
38 test_pmc = 'get_test_simple'()
44 is($I0, $I1, 'gets the same size as freeze (simple)')
46 iios = new ['ImageIOSize']
47 test_pmc = 'get_test_aggregate'()
53 is($I0, $I1, 'gets the same size as freeze (aggregate)')
62 .sub get_test_aggregate
63 $P0 = new ['ResizableStringArray']
74 # vim: expandtab shiftwidth=4 ft=pir: