[Openinteract-commits] CVS: OpenInteract2/t url.t,1.10,1.11

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23932/t

Modified Files:
	url.t 
Log Message:
OIN-79: update OI2::URL to escape the given base URL as well as the query arguments; update tests to check

Index: url.t
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/url.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** url.t	17 Nov 2003 05:05:42 -0000	1.10
--- url.t	4 Oct 2004 04:06:22 -0000	1.11
***************
*** 7,11 ****
  require 'utils.pl';
  use OpenInteract2::Context qw( CTX );
! use Test::More  tests => 86;
  
  initialize_context();
--- 7,11 ----
  require 'utils.pl';
  use OpenInteract2::Context qw( CTX );
! use Test::More  tests => 96;
  
  initialize_context();
***************
*** 17,21 ****
  {
      my ( $relative_url );
- 
      $relative_url = $UCL->parse_absolute_to_relative( '/foo/bar' );
      is( $relative_url, '/foo/bar',
--- 17,20 ----
***************
*** 25,29 ****
  {
      my ( $action_name, $task );
- 
      ( $action_name, $task ) = $UCL->parse( 'http://www.infocom.com/games/explore/' );
      is( $action_name, 'games',
--- 24,27 ----
***************
*** 141,144 ****
--- 139,158 ----
      compare_urls( '/foo', \%multiple_q, $create_url,
                    'Multiple query items' );
+ 
+     my @unescaped = ( '~', '.', '-', '*', "'", '(', ')', '/' );
+     foreach my $c ( @unescaped ) {
+         $create_url = $UCL->create( '/' . $c . 'lachoy/foo' );
+         is( $create_url, '/' . $c . 'lachoy/foo',
+             qq{..."$c" not escaped } );
+     }
+ 
+     $create_url = $UCL->create( '/some path/to/La Choy' );
+     is( $create_url, '/some%20path/to/La%20Choy',
+         '...spaces escaped with "%20" in path' );
+ 
+     $create_url = $UCL->create( '/some path/to/La Choy',
+                                 { emulate => 'Stan Granite' } );
+     is( $create_url, '/some%20path/to/La%20Choy?emulate=Stan%20Granite',
+         'Path with spaces, query item with space' );
  }