http-webtest-commits

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

Update of /cvsroot/http-webtest/HTTP-WebTest/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv24423

Modified Files:
	wt 
Log Message:
Update COPYRIGHT notice and minor cosmetics


Index: wt
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/bin/wt,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** wt	19 Oct 2002 23:14:16 -0000	1.3
--- wt	7 Jan 2003 21:53:31 -0000	1.4
***************
*** 70,77 ****
  Copyright (c) 2000-2001 Richard Anderson.  All rights reserved.
  
! Copyright (c) 2001,2002 Ilya Martynov.  All rights reserved.
  
! This module is free software.  It may be used, redistributed and/or
! modified under the terms of the Perl Artistic License.
  
  =head1 SEE ALSO
--- 70,77 ----
  Copyright (c) 2000-2001 Richard Anderson.  All rights reserved.
  
! Copyright (c) 2001-2003 Ilya Martynov.  All rights reserved.
  
! This program is free software; you can redistribute it and/or modify
! it under the same terms as Perl itself.
  
  =head1 SEE ALSO
***************
*** 87,93 ****
  use Pod::Usage;
  use Getopt::Long qw(:config gnu_getopt);
! use HTTP::WebTest 1.96;
! 
! my $VERSION = '1.00';
  
  my $man = 0;
--- 87,91 ----
  use Pod::Usage;
  use Getopt::Long qw(:config gnu_getopt);
! use HTTP::WebTest;
  
  my $man = 0;
***************
*** 102,112 ****
      my $version = HTTP::WebTest->VERSION;
      print <<TEXT;
! wt version $VERSION.  This program uses HTTP::WebTest version $version.
  
  Copyright (c) 2000-2001 Richard Anderson.  All rights reserved.
! Copyright (c) 2001,2002 Ilya Martynov.  All rights reserved.
  
! This module is free software.  It may be used, redistributed and/or
! modified under the terms of the Perl Artistic License.
  TEXT
      exit 0;
--- 100,112 ----
      my $version = HTTP::WebTest->VERSION;
      print <<TEXT;
! wt - test one or more web pages.
! 
! This program uses HTTP::WebTest version $version.
  
  Copyright (c) 2000-2001 Richard Anderson.  All rights reserved.
! Copyright (c) 2001-2003 Ilya Martynov.  All rights reserved.
  
! This program is free software; you can redistribute it and/or modify
! it under the same terms as Perl itself.
  TEXT
      exit 0;
***************
*** 116,126 ****
  
  my $webtest = HTTP::WebTest->new();
! my($return, $exit_status, $total_failed, $total_succeeded) = (0) x 4;
! foreach my $file (@ARGV) {
!     my($failed, $succeeded);
      $webtest->run_wtscript($file);
!     $exit_status ||= 1 if not $webtest->have_succeed;
!     $total_failed += $webtest->num_fail;
!     $total_succeeded += $webtest->num_succeed;
  }
  
--- 116,123 ----
  
  my $webtest = HTTP::WebTest->new();
! my $exit_status = 0;
! for my $file (@ARGV) {
      $webtest->run_wtscript($file);
!     $exit_status = 1 unless $webtest->have_succeed;
  }