|
From: Ilya M. <m_...@us...> - 2002-05-12 14:40:44
|
Update of /cvsroot/http-webtest/HTTP-WebTest/bin
In directory usw-pr-cvs1:/tmp/cvs-serv24619/bin
Added Files:
wt
Removed Files:
wt.PL .cvsignore
Log Message:
Do not generate bin/wt from bin/wt.PL anymore.
--- NEW FILE: wt ---
#!perl -w
# $Id: wt,v 1.1 2002/05/12 14:40:37 m_ilya Exp $
=head1 NAME
wt - test one or more web pages, either remotely or locally
=head1 SYNOPSIS
wt [options] [WTSCRIPT ...]
Options:
-?, --help brief help message
--man full documentation
-V, --version version number
=head1 OPTIONS
=over 4
=item B<-?>
=item B<--help>
Print a brief help message and exits.
=item B<--man>
Prints the manual page and exits.
=item B<-V>
=item B<--version>
Prints version number of L<HTTP::WebTest|HTTP::WebTest> and exits.
=back
=head1 DESCRIPTION
This program runs tests using Perl module
L<HTTP::WebTest|HTTP::WebTest> on remote URLs or local web files
containing Perl/JSP/HTML/JavaScript/etc. and generates a detailed test
report.
This program expects given input file(s) to be in format of wtscript
file. If no files are given then it expects test specification to be
passed via standard input.
See docs mentioned in section L<SEE ALSO|SEE ALSO> for full
documentation.
=head1 EXIT STATUS
=over 4
=item * 0
All tests ran successfully.
=item * 1
One or more tests failed, there was an error in the input
parameter file, or there was a system runtime error.
=back
=head1 COPYRIGHT
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
L<HTTP::WebTest|HTTP::WebTest>
L<HTTP::WebTest::Cookbook|HTTP::WebTest::Cookbook>
=cut
use strict;
use Pod::Usage;
use Getopt::Long qw(:config gnu_getopt);
use HTTP::WebTest 1.96;
my $VERSION = '1.00';
my $man = 0;
my $help = 0;
my $version = 0;
GetOptions('help|?' => \$help,
'version|V' => \$version,
'man' => \$man) or pod2usage(2);
pod2usage(1) if $help;
pod2usage(-verbose => 2) if $man;
if($version) {
my $version = HTTP::WebTest->VERSION;
print <<TEXT;
wt version $VERSION. This program uses version $version of HTTP::WebTest.
Copyright (c) 2000-2001 Richard Anderson. All rights reserved.
Copyright (c) 2001,2002 Ilya Martynov. All rights reserved.
TEXT
exit 0;
}
@ARGV = '-' if @ARGV < 1;
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;
}
exit $exit_status;
--- wt.PL DELETED ---
--- .cvsignore DELETED ---
|
