fix codetest failure - ASSERT_ARGS does not have a ; after and
[parrot.git] / t / pmc / imageiosize.t
blob71d7ffd4953985b2e7dac7472337ec76e0c8286c
1 #!./parrot
2 # Copyright (C) 2010, Parrot Foundation.
3 # $Id$
5 =head1 NAME
7 t/pmc/imageiosize.t - test ImageIOSize PMC
9 =head1 SYNOPSIS
11     % prove t/pmc/imagiosize.t
13 =head1 DESCRIPTION
15 Tests the ImageIOSize PMC.
17 =cut
19 .sub main :main
20     .include 'test_more.pir'
22     plan(4)
24     .local pmc iios
25     iios = new ['ImageIOSize']
26     ok(1, 'instantiated ImageIOSize')
28     .local pmc test_pmc
29     test_pmc = null
30     setref iios, test_pmc
31     $P0 = deref iios
32     $S0 = freeze test_pmc
33     $I0 = $P0
34     $I1 = length $S0
35     is($I0, $I1, 'gets the same size as freeze (null)')
37     iios = new ['ImageIOSize']
38     test_pmc = 'get_test_simple'()
39     setref iios, test_pmc
40     $P0 = deref iios
41     $S0 = freeze test_pmc
42     $I0 = $P0
43     $I1 = length $S0
44     is($I0, $I1, 'gets the same size as freeze (simple)')
46     iios = new ['ImageIOSize']
47     test_pmc = 'get_test_aggregate'()
48     setref iios, test_pmc
49     $P0 = deref iios
50     $S0 = freeze test_pmc
51     $I0 = $P0
52     $I1 = length $S0
53     is($I0, $I1, 'gets the same size as freeze (aggregate)')
54 .end
56 .sub get_test_simple
57     $P0 = new ['Integer']
58     $P0 = -99
59     .return ($P0)
60 .end
62 .sub get_test_aggregate
63     $P0 = new ['ResizableStringArray']
64     $P0[0] = 'parrot'
65     $P0[1] = '???'
66     $P0[2] = 'profit'
67     .return ($P0)
68 .end
70 # Local Variables:
71 #   mode: pir
72 #   fill-column: 100
73 # End:
74 # vim: expandtab shiftwidth=4 ft=pir: