[Openinteract-commits] CVS: OpenInteract2/t url.t,1.13,1.14

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

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

Modified Files:
	url.t 
Log Message:
don't escape or add contextualization to URLs passed to create() that begin with an 'http:'

Index: url.t
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/url.t,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** url.t	25 Nov 2004 03:51:43 -0000	1.13
--- url.t	27 Nov 2004 18:27:33 -0000	1.14
***************
*** 7,11 ****
  require 'utils.pl';
  use OpenInteract2::Context qw( CTX );
! use Test::More  tests => 109;
  
  initialize_context();
--- 7,11 ----
  require 'utils.pl';
  use OpenInteract2::Context qw( CTX );
! use Test::More  tests => 112;
  
  initialize_context();
***************
*** 324,328 ****
--- 324,346 ----
  }
  
+ # Ensure absolute URL is not modified
+ 
+ {
+     CTX->assign_deploy_url( '/OpenInteract' );
+     my $url = 'http://www.my.server/foo/';
+     my $create_url = $UCL->create( $url );
+     is( $create_url, $url,
+         'Absolute URL is not modified with create()' );
+     my %params = ( id => 55, undercover => 'yes' );
+     $create_url = $UCL->create( $url, \%params );
+     compare_urls( $url, \%params, $create_url,
+                   'Absolute URL not modified with create() but parameters added ok' );
+ 
+ }
+ 
+ 
+ 
  {
+     CTX->assign_deploy_url( '/OpenInteract' );
      my $url = '/OpenInteract/foo/bar';
      my $strip_url = $UCL->strip_deployment_context( $url );