http-webtest-commits

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

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

Modified Files:
	10-click.t 
Log Message:
Added tests for missing link


Index: 10-click.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/10-click.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** 10-click.t	27 Apr 2002 20:20:37 -0000	1.3
--- 10-click.t	27 Apr 2002 20:37:48 -0000	1.4
***************
*** 16,20 ****
  use vars qw($HOSTNAME $PORT $URL $TEST);
  
! BEGIN { plan tests => 2 }
  
  # init tests
--- 16,20 ----
  use vars qw($HOSTNAME $PORT $URL $TEST);
  
! BEGIN { plan tests => 3 }
  
  # init tests
***************
*** 61,64 ****
--- 61,82 ----
  		  opts => $OPTS,
  		  check_file => 't/test.out/click_link2');
+ }
+ 
+ # 3: test missing link
+ {
+     generate_testfile(file => 't/test2.html', server_url => $URL);
+ 
+     my $tests = [ { url => abs_url($URL, '/test1.html'),
+ 		    text_require => [ '<title>Test File 1</title>' ] },
+ 		  # missing link
+ 		  { click_link => 'No such link',
+ 		    text_require => [ '<title>Test File 1</title>' ] }
+ 		];
+ 
+     catch_webtest(webtest => $WEBTEST,
+ 		  server_url => $URL,
+ 		  tests => $tests,
+ 		  opts => $OPTS,
+ 		  check_file => 't/test.out/click_link3');
  }