[Http-webtest-commits] HTTP-WebTest/t 02-generic.t,1.16,1.17

[Ilya M. <m_...@us...>]

Update of /cvsroot/http-webtest/HTTP-WebTest/t
In directory usw-pr-cvs1:/tmp/cvs-serv23454/t

Modified Files:
	02-generic.t 
Log Message:
Updated


Index: 02-generic.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/02-generic.t,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** 02-generic.t	24 Sep 2002 20:36:13 -0000	1.16
--- 02-generic.t	24 Sep 2002 21:15:23 -0000	1.17
***************
*** 18,22 ****
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 33 }
  
  # init tests
--- 18,22 ----
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 34 }
  
  # init tests
***************
*** 626,629 ****
--- 626,648 ----
  		  tests => $tests,
  		  check_file => 't/test.out/runtime-insert');
+ }
+ 
+ # 34: test relative_urls parameter
+ {
+     my $opts = { relative_urls => 'yes' };
+ 
+     my $tests = [ { url => abs_url($URL, '/test-file1') },
+ 		  { url => '/test-file1' },
+ 		  { url => 'test-file2' },
+ 		  { url => 'yyy/zzz' },
+ 		  { url => 'aaa' },
+ 		  { url => '../ccc' },
+ 		  { url => './test-file1' } ];
+ 
+     check_webtest(webtest => $WEBTEST,
+ 		  server_url => $URL,
+ 		  tests => $tests,
+ 		  opts => $opts,
+ 		  check_file => 't/test.out/relative_urls');
  }