t/pmc/imageio.t

   1 #!./parrot
   2 # Copyright (C) 2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/imageio.t - test ImageIO PMC
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pmc/imagio.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests the ImageIO PMC.
  16
  17 =cut
  18
  19 .sub main :main
  20     .include 'test_more.pir'
  21
  22     plan(11)
  23
  24     .local pmc imageio
  25     imageio = new ['ImageIO']
  26     ok(1, 'instantiated ImageIO')
  27
  28     .local pmc test_pmc
  29     test_pmc = 'get_test_simple'()
  30     setref imageio, test_pmc
  31     $S0 = imageio
  32     ok($S0, 'frozen PMC is true (simple)')
  33     $S1 = freeze test_pmc
  34     is($S0, $S1, 'freeze gives same image as ImageIO (simple)')
  35
  36     imageio = new ['ImageIO']
  37     imageio = $S0
  38     $P0 = deref imageio
  39     ok($P0, 'thawed PMC is true (simple)')
  40     $P1 = thaw $S1
  41     is($P0, $P1, 'thaw gives same PMC as ImageIO (simple)')
  42     is($P0, test_pmc, 'round trip gives same PMC (simple)')
  43
  44     imageio = new ['ImageIO']
  45     test_pmc = 'get_test_aggregate'()
  46     setref imageio, test_pmc
  47     $S0 = imageio
  48     ok($S0, 'frozen PMC is true (aggregate)')
  49     $S1 = freeze test_pmc
  50     is($S0, $S1, 'freeze gives same image as ImageIO (aggregate)')
  51
  52     imageio = new ['ImageIO']
  53     imageio = $S0
  54     $P0 = deref imageio
  55     ok($P0, 'thawed PMC is true (aggregate)')
  56     $P1 = thaw $S1
  57     is_deeply($P0, $P1, 'thaw gives same PMC as ImageIO (aggregate)')
  58     is_deeply($P0, test_pmc, 'round trip gives same PMC (aggregate)')
  59 .end
  60
  61 .sub get_test_simple
  62     $P0 = new ['Integer']
  63     $P0 = -99
  64     .return ($P0)
  65 .end
  66
  67 .sub get_test_aggregate
  68     $P0 = new ['ResizableStringArray']
  69     $P0[0] = 'parrot'
  70     $P0[1] = '???'
  71     $P0[2] = 'profit'
  72     .return ($P0)
  73 .end
  74
  75 # Local Variables:
  76 #   mode: pir
  77 #   fill-column: 100
  78 # End:
  79 # vim: expandtab shiftwidth=4 ft=pir: