t/pmc/hashiteratorkey.t

   1 #!./parrot
   2 # Copyright (C) 2001-2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/hashiteratorkey.t - HashIteratorKey PMC
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pmc/hashiteratorkey.t
  12
  13 =head1 DESCRIPTION
  14
  15 Do almost nothing test. HashIteratorKey is supplementary class for
  16 iterating over Hash. Just check that we create it.
  17
  18 =cut
  19
  20 .sub 'main'
  21     .include 'test_more.pir'
  22
  23     plan(6)
  24
  25     'test_new'()
  26     'test_key_value'()
  27     'test_empty'()
  28
  29 .end
  30
  31
  32 .sub 'test_new'
  33     $P0 = new ['HashIteratorKey']
  34     ok(1, "Can create HashIteratorKey directly")
  35 .end
  36
  37
  38 .sub 'test_key_value'
  39     $P0 = new ['Hash']
  40     $P0['foo'] = 'bar'
  41     $P1 = iter $P0
  42     $P2 = shift $P1
  43     $S0 = $P2.'key'()
  44     is($S0, 'foo', 'HashIteratorKey.key works')
  45     $S0 = $P2.'value'()
  46     is($S0, 'bar', 'HashIteratorKey.value works')
  47 .end
  48
  49
  50 .sub 'test_empty'
  51     .local pmc hik, p
  52     .local int i
  53     .local string s
  54     hik = new ['HashIteratorKey']
  55
  56     # De facto behavior tested for code coverage
  57
  58     p = hik.'key'()
  59     i = isnull p
  60     is(i, 1, 'HIK.key gives null when unitialized')
  61
  62     s = hik
  63     is(s, '', 'HIK gives empty string when unitialized')
  64
  65     # Magic value?
  66     i = hik
  67     is(i, -1, 'HIK get_integer gives -1')
  68 .end
  69
  70
  71 # Local Variables:
  72 #   mode: pir
  73 #   fill-column: 100
  74 # End:
  75 # vim: expandtab shiftwidth=4 ft=pir: