t/library/uri_escape.t

   1 #!./parrot
   2 # Copyright (C) 2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/library/uri_escape.t
   8
   9 =head1 DESCRIPTION
  10
  11 Test the URI Escape library
  12
  13 =head1 SYNOPSIS
  14
  15     % prove t/library/uri_escape.t
  16
  17 =cut
  18
  19 .sub 'main' :main
  20     .include 'test_more.pir'
  21
  22     load_bytecode 'URI/Escape.pbc'
  23
  24     plan(6)
  25
  26     $P0 = new ['Exporter']
  27     $P1 = get_namespace ['URI'; 'Escape']
  28     $P2 = get_namespace
  29     $P0.'import'($P1 :named('source'), $P2 :named('destination'), 'percent_encode percent_encode_component' :named('globals'))
  30
  31     $S0 = percent_encode('Hello')
  32     is($S0, 'Hello', 'plain ascii without special chars')
  33
  34     $S0 = percent_encode_component('Hello')
  35     is($S0, 'Hello', 'plain ascii without special chars - component')
  36
  37     $S0 = percent_encode('Hello?world')
  38     is($S0, 'Hello?world', 'plain ascii')
  39
  40     $S1 = percent_encode_component('Hello?world')
  41     is($S1, 'Hello%3Fworld', 'plain ascii - component')
  42
  43     $S0 = percent_encode(iso-8859-1:"A\x{D1}O#a")
  44     is($S0, 'A%C3%91O#a', 'iso-8859-1 string')
  45
  46     $S0 = percent_encode_component(iso-8859-1:"A\x{D1}O#a")
  47     is($S0, 'A%C3%91O%23a', 'iso-8859-1 string - component')
  48 .end
  49
  50 # Local Variables:
  51 #   mode: pir
  52 #   fill-column: 100
  53 # End:
  54 # vim: expandtab shiftwidth=4 ft=pir: