t/library/cgi_query_hash.t

   1 #!./parrot
   2 # Copyright (C) 2006-2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/library/cgi_query_hash.t - test [ 'CGI'; 'QueryHash' ]
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/library/cgi_query_hash.t
  12
  13 =head1 DESCRIPTION
  14
  15 Test  [ 'CGI'; 'QueryHash' ]
  16
  17 =cut
  18
  19 .sub test :main
  20     load_bytecode "dumper.pbc"
  21     .include 'test_more.pir'
  22
  23     load_bytecode 'CGI/QueryHash.pbc'
  24
  25     plan(7)
  26
  27     .local int    is_defined
  28     .local pmc    query_hash
  29     .local string val
  30
  31     .local pmc parse_get_sub
  32     parse_get_sub = get_global [ 'CGI'; 'QueryHash' ], 'parse_get'
  33     is_defined = defined parse_get_sub
  34     ok( is_defined, 'got the sub "parse_get"' )
  35
  36     # set up environment
  37     .local pmc my_env
  38     my_env = new 'Env'
  39     ok( my_env, 'Got an .Env pmc' )
  40     my_env['REQUEST_TYPE'] = 'GET'
  41
  42     my_env['QUERY_STRING'] = 'as=df'
  43     query_hash = parse_get_sub()
  44     val = query_hash['as']
  45     is( val, 'df', 'single GET param' )
  46
  47     my_env['QUERY_STRING'] = 'sky=blue;grass=green&water=wet'
  48     query_hash = parse_get_sub()
  49     val = query_hash['sky']
  50     is( val, 'blue', 'first of three GET params' )
  51     val = query_hash['grass']
  52     is( val, 'green', 'second of three GET params' )
  53     val = query_hash['water']
  54     is( val, 'wet', 'third of three GET params' )
  55
  56     my_env['QUERY_STRING'] = 'a=1'
  57     query_hash = parse_get_sub()
  58     val = query_hash['a']
  59     is( val, '1', 'numeric value' )
  60
  61 .end
  62
  63 =head1 AUTHOR
  64
  65 Bernhard Schmalhofer <Bernhard Schmalhofer@gmx.de>
  66
  67 =cut
  68
  69 # Local Variables:
  70 #   mode: pir
  71 #   fill-column: 100
  72 # End:
  73 # vim: expandtab shiftwidth=4 ft=pir: