t/pmc/orderedhashiterator.t

   1 #!./parrot
   2 # Copyright (C) 2001-2006, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/orderedhashiterator.t - Ordered Hash Iterator
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pmc/orderedhashiterator.t
  12
  13 =head1 DESCRIPTION
  14
  15 Do almost nothing test. Main purpose of OrderedHashIterator covered by
  16 t/pmc/orderedhash.t.
  17
  18 =cut
  19
  20 .sub 'main'
  21     .include 'test_more.pir'
  22
  23     plan(2)
  24
  25     # Just test that we can't create OrderedHashIterator directly
  26     $I0 = 1
  27     push_eh fail
  28     $P0 = new ['OrderedHashIterator']
  29     $I0 = 0
  30   fail:
  31     pop_eh
  32     ok($I0, "Can't create OrderedHashIterator directly")
  33
  34     $P0 = new ['OrderedHash']
  35     $P1 = iter $P0
  36     $I0 = isa $P1, 'Iterator'
  37     ok($I0, 'OrderedHashIterator has proper type')
  38
  39
  40 .end
  41
  42
  43 # Local Variables:
  44 #   mode: cperl
  45 #   cperl-indent-level: 4
  46 #   fill-column: 100
  47 # End:
  48 # vim: expandtab shiftwidth=4: