t/pmc/imageiostrings.t

   1 #!./parrot
   2 # Copyright (C) 2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/imageiostrings.t - test ImageIOStrings PMC
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pmc/imageiostrings.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests the ImageIOStringsPMC.
  16
  17 =cut
  18
  19 .sub main :main
  20     .include 'test_more.pir'
  21
  22     plan(3)
  23
  24     .local pmc iios
  25     iios = new ['ImageIOStrings']
  26     ok(1, 'instantiated ImageIOStrings')
  27
  28     .local pmc test_pmc
  29     test_pmc = null
  30     iios = new ['ImageIOStrings']
  31     setref iios, test_pmc
  32     $P0 = deref iios
  33     $I0 = $P0
  34     nok( $I0, 'no strings in null pmc' )
  35
  36     test_pmc = split ' ', 'spam sausage spam spam bacon spam tomato and spam'
  37     iios = new ['ImageIOStrings']
  38     setref iios, test_pmc
  39     $P0 = deref iios
  40     is_deeply( $P0, test_pmc, 'correctly manages RSA' )
  41 .end
  42
  43 # Local Variables:
  44 #   mode: pir
  45 #   fill-column: 100
  46 # End:
  47 # vim: expandtab shiftwidth=4 ft=pir: