test-www-mechanize/t link_status.t,1.1,1.2

Update of /cvsroot/www-mechanize/test-www-mechanize/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1565

Modified Files:
        link_status.t 
Log Message:
Added missing tests for link_status_isnt.


Index: link_status.t
===================================================================
RCS file: /cvsroot/www-mechanize/test-www-mechanize/t/link_status.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- link_status.t       16 Sep 2004 04:38:32 -0000      1.1
+++ link_status.t       30 Sep 2004 02:46:50 -0000      1.2
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More tests => 6;
 use Test::Builder::Tester;
 use Test::WWW::Mechanize;
 use URI::file;
@@ -20,6 +20,8 @@
 $mech->link_status_is($links,200,'Checking all links status are 200');
 test_test('Handles All Links successful');
 
+$mech->link_status_isnt($links,404,'Checking all links isnt');
+
 # Bad links
 $mech->get(URI::file->cwd().'t/badlinks.html');
 
@@ -30,8 +32,15 @@
 $mech->link_status_is($links,404,'Checking all links some bad');
 test_test('Handles bad links');
 
+
 test_out('not ok 1 - Checking specified link not found');
 test_err("#     Failed test ($0 at line ".line_num(+2).")");
 test_diag('test2.html');
 $mech->links_ok('test2.html','Checking specified link not found');
 test_test('Handles link not found');
+
+test_out('not ok 1 - Checking all links not 200');
+test_err("#     Failed test ($0 at line ".line_num(+2).")");
+test_diag('goodlinks.html');
+$mech->link_status_isnt($links,200,'Checking all links not 200');
+test_test('Handles all links mismatch');



-------------------------------------------------------
This SF.net email is sponsored by: IT Product Guide on ITManagersJournal
Use IT products in your business? Tell us what you think of them. Give us
Your Opinions, Get Free ThinkGeek Gift Certificates! Click to find out more
http://productguide.itmanagersjournal.com/guidepromo.tmpl