http-webtest-commits Mailing List for HTTP-WebTest (Page 10)
Brought to you by:
m_ilya,
richardanderson
Menu
▾
▴
http-webtest-commits
You can subscribe to this list here.
| 2002 |
Jan
(38) |
Feb
(83) |
Mar
(10) |
Apr
(28) |
May
(42) |
Jun
(61) |
Jul
(43) |
Aug
(42) |
Sep
(14) |
Oct
(27) |
Nov
(16) |
Dec
(81) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2003 |
Jan
(81) |
Feb
(29) |
Mar
(32) |
Apr
(42) |
May
(3) |
Jun
|
Jul
(11) |
Aug
|
Sep
(33) |
Oct
(6) |
Nov
(4) |
Dec
|
| 2004 |
Jan
|
Feb
|
Mar
(10) |
Apr
(1) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: Johannes la P. <joe...@us...> - 2003-01-08 21:16:36
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport/example/transform In directory sc8-pr-cvs1:/tmp/cvs-serv18926/example/transform Log Message: Directory /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport/example/transform added to the repository |
|
From: Johannes la P. <joe...@us...> - 2003-01-08 21:16:21
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport/example In directory sc8-pr-cvs1:/tmp/cvs-serv18869/example Log Message: Directory /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport/example added to the repository |
|
From: Ilya M. <m_...@us...> - 2003-01-07 22:05:47
|
Update of /cvsroot/http-webtest/HTTP-WebTest/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv30904
Modified Files:
wt
Log Message:
Cosmetic changes
Index: wt
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/bin/wt,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** wt 7 Jan 2003 21:53:31 -0000 1.4
--- wt 7 Jan 2003 22:05:32 -0000 1.5
***************
*** 89,101 ****
use HTTP::WebTest;
! 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;
--- 89,98 ----
use HTTP::WebTest;
! my %OPTIONS = ();
! GetOptions(\%OPTIONS,
! qw(help|? version|V man)) or pod2usage(2);
! pod2usage(1) if $OPTIONS{help};
! pod2usage(-verbose => 2) if $OPTIONS{man};
! if($OPTIONS{version}) {
my $version = HTTP::WebTest->VERSION;
print <<TEXT;
***************
*** 115,124 ****
@ARGV = '-' if @ARGV < 1;
! my $webtest = HTTP::WebTest->new();
! my $exit_status = 0;
! for my $file (@ARGV) {
! $webtest->run_wtscript($file);
! $exit_status = 1 unless $webtest->have_succeed;
! }
! exit $exit_status;
--- 112,125 ----
@ARGV = '-' if @ARGV < 1;
! exit main();
! sub main {
! my $webtest = HTTP::WebTest->new();
! my $exit_status = 0;
! for my $file (@ARGV) {
! $webtest->run_wtscript($file);
! $exit_status = 1 unless $webtest->have_succeed;
! }
!
! return $exit_status;
! }
|
|
From: Ilya M. <m_...@us...> - 2003-01-07 21:53:42
|
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;
}
|
|
From: Ilya M. <m_...@us...> - 2003-01-07 21:10:15
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/t
In directory sc8-pr-cvs1:/tmp/cvs-serv6390/t
Modified Files:
05-action-request.t
Log Message:
Minor fixes
Index: 05-action-request.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/t/05-action-request.t,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** 05-action-request.t 3 Jan 2003 23:01:20 -0000 1.1.1.1
--- 05-action-request.t 7 Jan 2003 21:10:04 -0000 1.2
***************
*** 38,42 ****
}
! # test template_data to return request object by number
{
$CONTROLLER->cgi(CGI->new({num => 0}));
--- 38,42 ----
}
! # check if template_data returns request object by number
{
$CONTROLLER->cgi(CGI->new({num => 0}));
|
|
From: Ilya M. <m_...@us...> - 2003-01-07 21:08:56
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/template
In directory sc8-pr-cvs1:/tmp/cvs-serv5840/lib/HTTP/WebTest/template
Modified Files:
list
Log Message:
Cosmetics + added link on wtscript page
Index: list
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/template/list,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** list 3 Jan 2003 23:01:24 -0000 1.1.1.1
--- list 7 Jan 2003 21:08:43 -0000 1.2
***************
*** 6,9 ****
--- 6,11 ----
[% USE request_url = URL('request') %]
+ [% IF tests.size > 0 %]
+
<table>
[% FOREACH test = tests %]
***************
*** 18,21 ****
--- 20,31 ----
[% END %]
</table>
+
+ <p>Generate <a href="wtscript">wtscript</a>.</p>
+
+ [% ELSE %]
+
+ <p>No request/response have been recorded.</p>
+
+ [% END %]
[% END %]
|
|
From: Ilya M. <m_...@us...> - 2003-01-07 21:07:31
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest
In directory sc8-pr-cvs1:/tmp/cvs-serv5351/lib/HTTP/WebTest
Modified Files:
Controller.pm
Log Message:
Added 'wtscript' page
Index: Controller.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Controller.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** Controller.pm 3 Jan 2003 23:01:20 -0000 1.1.1.1
--- Controller.pm 7 Jan 2003 21:07:22 -0000 1.2
***************
*** 28,34 ****
*request = make_access_method('REQUEST');
! my %DISPATCH = (list => 'HTTP::WebTest::Action::List',
! request => 'HTTP::WebTest::Action::Request',
! default => 'HTTP::WebTest::Action');
# serves requests for web interface of the proxy
--- 28,35 ----
*request = make_access_method('REQUEST');
! my %DISPATCH = (list => 'HTTP::WebTest::Action::List',
! request => 'HTTP::WebTest::Action::Request',
! wtscript => 'HTTP::WebTest::Action::WTScript',
! default => 'HTTP::WebTest::Action');
# serves requests for web interface of the proxy
|
|
From: Ilya M. <m_...@us...> - 2003-01-07 21:04:23
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder In directory sc8-pr-cvs1:/tmp/cvs-serv3779 Added Files: .cvsignore Log Message: Added --- NEW FILE: .cvsignore --- blib pm_to_blib pod_merge Makefile *.tar.gz |
|
From: Ilya M. <m_...@us...> - 2003-01-07 21:04:18
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Action
In directory sc8-pr-cvs1:/tmp/cvs-serv3779/lib/HTTP/WebTest/Action
Added Files:
WTScript.pm
Log Message:
Added
--- NEW FILE: WTScript.pm ---
package HTTP::WebTest::Action::WTScript;
# $Id: WTScript.pm,v 1.1 2003/01/07 21:04:11 m_ilya Exp $
use strict;
use base qw(HTTP::WebTest::Action);
use CGI;
# returns data to fill in template
sub template_data {
my $self = shift;
my $controller = shift;
my @tests = @{$controller->recorder->tests};
my $wtscript = join "\n", map $self->test2wtscript($_), @tests;
return($self->SUPER::template_data($controller),
wtscript => $wtscript);
}
sub test2wtscript {
my $self = shift;
my $test = shift;
my $request = $test->request;
my $wtscript = '';
$wtscript .= "test_name = N/A\n";
my $short_uri = URI->new($request->uri);
$short_uri->query(undef);
$wtscript .= ' url = ' . $short_uri . "\n";
$wtscript .= ' method = ' . $request->method . "\n"
if $request->method ne 'GET';
my $cgi;
if($request->method eq 'POST') {
$cgi = CGI->new($request->content);
} else {
$cgi = CGI->new($request->uri->query);
}
if($cgi->param) {
$wtscript .= " params = (\n";
for my $param ($cgi->param) {
$wtscript .= ' ' .
$param . ' => ' . $cgi->param($param) . "\n";
}
$wtscript .= " )\n";
}
$wtscript .= "end_test\n";
return $wtscript;
}
1;
|
|
From: Ilya M. <m_...@us...> - 2003-01-07 21:04:13
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/template In directory sc8-pr-cvs1:/tmp/cvs-serv3779/lib/HTTP/WebTest/template Added Files: wtscript Log Message: Added --- NEW FILE: wtscript --- [% WRAPPER page.inc title => 'WTScript' %] [% USE HTML %] <pre> [% HTML.escape(wtscript) %] </pre> [% END %] |
|
From: Ilya M. <m_...@us...> - 2003-01-07 21:04:11
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/t
In directory sc8-pr-cvs1:/tmp/cvs-serv3779/t
Added Files:
06-action-wtscript.t
Log Message:
Added
--- NEW FILE: 06-action-wtscript.t ---
#!/usr/bin/perl -w
use strict;
use HTTP::Request::Common;
use HTTP::Status;
use HTTP::WebTest::Test;
use Test::More tests => 7;
require_ok('HTTP::WebTest::Action::WTScript');
require_ok('HTTP::WebTest::Controller');
require_ok('HTTP::WebTest::Recorder');
# test constructors
my $ACTION = new HTTP::WebTest::Action::WTScript;
isa_ok($ACTION, 'HTTP::WebTest::Action::WTScript');
my $CONTROLLER = new HTTP::WebTest::Controller;
isa_ok($CONTROLLER, 'HTTP::WebTest::Controller');
my $RECORDER = new HTTP::WebTest::Recorder;
isa_ok($RECORDER, 'HTTP::WebTest::Recorder');
$CONTROLLER->recorder($RECORDER);
# init recorder with some data
{
my $test1 = HTTP::WebTest::Test->new;
$test1->request(GET 'http://example.com/doc1.html');
$test1->response(HTTP::Response->new(RC_OK));
$test1->response->content('DOC #1');
my $test2 = HTTP::WebTest::Test->new;
$test2->request(POST 'http://example.com/doc2.html',
[ xx => 'yy', 1 => 2]);
$test2->response(HTTP::Response->new(RC_NOT_FOUND));
$test2->response->content('Not Found');
my $test3 = HTTP::WebTest::Test->new;
$test3->request(GET 'http://example.com/doc3.html?a=b&a=c');
$test3->response(HTTP::Response->new(RC_OK));
$test3->response->content('DOC #2');
push @{$RECORDER->tests}, $test1, $test2, $test3;
}
# check if template_data returns draft of wtscript
{
my %data = $ACTION->template_data($CONTROLLER);
is($data{wtscript}, <<'WTSCRIPT',
test_name = N/A
url = http://example.com/doc1.html
end_test
test_name = N/A
url = http://example.com/doc2.html
method = POST
params = (
xx => yy
1 => 2
)
end_test
test_name = N/A
url = http://example.com/doc3.html
params = (
a => b
)
end_test
WTSCRIPT
'Check if "wtscript" variable is defined');
}
|
|
From: Johannes la P. <joe...@us...> - 2003-01-06 12:25:06
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport/lib/HTTP/WebTest/Plugin
In directory sc8-pr-cvs1:/tmp/cvs-serv2333/lib/HTTP/WebTest/Plugin
Modified Files:
XMLReport.pm
Log Message:
Replaced Test::More by Test (fix spurious failure with SelfTest), added time zone to date string
Index: XMLReport.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport/lib/HTTP/WebTest/Plugin/XMLReport.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** XMLReport.pm 2 Jan 2003 16:52:16 -0000 1.3
--- XMLReport.pm 6 Jan 2003 12:25:02 -0000 1.4
***************
*** 4,9 ****
use base qw(HTTP::WebTest::ReportPlugin);
use XML::Writer;
use vars qw($VERSION);
! $VERSION = '1.00';
=head1 NAME
--- 4,10 ----
use base qw(HTTP::WebTest::ReportPlugin);
use XML::Writer;
+ use POSIX qw(strftime);
use vars qw($VERSION);
! $VERSION = '1.01';
=head1 NAME
***************
*** 180,185 ****
$self->_init_xml_writer;
!
! $self->{x_out}->startTag('testresults', 'date' => scalar localtime());
$self->{x_out}->characters("\n");
$self->SUPER::start_tests;
--- 181,187 ----
$self->_init_xml_writer;
! # use RFC822-conformant date string including Time Zone
! $self->{x_out}->startTag('testresults',
! 'date' => strftime("%a, %d %b %Y %H:%M:%S %z", localtime()));
$self->{x_out}->characters("\n");
$self->SUPER::start_tests;
|
|
From: Johannes la P. <joe...@us...> - 2003-01-06 12:25:06
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport/t
In directory sc8-pr-cvs1:/tmp/cvs-serv2333/t
Modified Files:
01_basic.t
Log Message:
Replaced Test::More by Test (fix spurious failure with SelfTest), added time zone to date string
Index: 01_basic.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport/t/01_basic.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** 01_basic.t 2 Jan 2003 16:52:17 -0000 1.3
--- 01_basic.t 6 Jan 2003 12:25:02 -0000 1.4
***************
*** 1,12 ****
#!/usr/bin/perl -w
use lib qw(./blib/lib ./t/lib);
! use HTTP::WebTest::SelfTest;
! use Test::More tests => 6;
! # 1 - test whether HTTP::WebTest::Plugin::XMLReport can be loaded
! require_ok 'HTTP::WebTest::Plugin::XMLReport';
- # 2 - test whether HTTP::WebTest is installed
- require_ok 'HTTP::WebTest'; # Hmm, redundant after using ::SelfTest
my $WEBTEST = HTTP::WebTest->new;
--- 1,11 ----
#!/usr/bin/perl -w
use lib qw(./blib/lib ./t/lib);
! use Test;
! BEGIN { plan tests => 4; }
! use HTTP::WebTest 2.0; # from HTTP::WebTest v 2.xx
! use HTTP::WebTest::SelfTest; # from HTTP::WebTest v 2.xx
! use HTTP::WebTest::Plugin::XMLReport; # from blib/lib
my $WEBTEST = HTTP::WebTest->new;
***************
*** 17,21 ****
};
! # 3 - do some real request
{
my $tests = [
--- 16,20 ----
};
! # 1 - do some real request
{
my $tests = [
***************
*** 35,39 ****
}
! # 4 - test with DTD - validate separately if you're paranoid enough
{
my $tests = [
--- 34,38 ----
}
! # 2 - test with DTD - validate separately if you're paranoid enough
{
my $tests = [
***************
*** 54,58 ****
}
! # 5 - missing wtscript param test_name
{
my $tests = [
--- 53,57 ----
}
! # 3 - missing wtscript param test_name
{
my $tests = [
***************
*** 72,76 ****
}
! # 6 - cooperation with unavailable params (normally used with default report)
{
my $tests = [
--- 71,75 ----
}
! # 4 - cooperation with uninmplemented params (normally used with default report)
{
my $tests = [
***************
*** 91,94 ****
check_file => 't/test.out/out-missing-opts.xml');
}
-
-
--- 90,91 ----
|
|
From: Johannes la P. <joe...@us...> - 2003-01-06 12:25:05
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport In directory sc8-pr-cvs1:/tmp/cvs-serv2333 Modified Files: Changes Log Message: Replaced Test::More by Test (fix spurious failure with SelfTest), added time zone to date string Index: Changes =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport/Changes,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Changes 2 Jan 2003 16:52:16 -0000 1.2 --- Changes 6 Jan 2003 12:25:02 -0000 1.3 *************** *** 1,4 **** --- 1,9 ---- Revision history for Perl extension XMLReport. + 1.01 Mon Jan 6 13:18:47 CET 2003 + - use Test instead of Test::More + - fixes spurious fails with SelfTest + - date string conforms RFC822 (with Time Zone offset) + 1.00 Thu Jan 2 17:44:33 CET 2003 - removed XML::Parser from tests *************** *** 18,20 **** - original version; created by h2xs 1.19 - $ Log: $ --- 23,24 ---- |
|
From: Ilya M. <m_...@us...> - 2003-01-04 07:43:38
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP
In directory sc8-pr-cvs1:/tmp/cvs-serv28370/lib/HTTP
Modified Files:
WebTest.pm.in
Log Message:
Minor documentation fixes; List DateTest and XMLReport plugins
Index: WebTest.pm.in
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest.pm.in,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** WebTest.pm.in 13 Dec 2002 01:36:39 -0000 1.27
--- WebTest.pm.in 4 Jan 2003 07:43:30 -0000 1.28
***************
*** 243,250 ****
brackets are used to denote Perl code inside wtscript files.
C<HTTP::WebTest> compiles this Perl code as anonymous subroutines
! which are called when values of corresponding test
! parameters are required. These subroutines are called in an object-oriented
! fashion, so the
! C<HTTP::WebTest> object is passed to them as the first argument.
Some examples of syntax:
--- 243,249 ----
brackets are used to denote Perl code inside wtscript files.
C<HTTP::WebTest> compiles this Perl code as anonymous subroutines
! which are called when values of corresponding test parameters are
! required. When these subroutines are called C<HTTP::WebTest> object
! is passed to them as the first argument.
Some examples of syntax:
***************
*** 256,260 ****
name = (
'first value'
! { "first " . "value" }
)
--- 255,259 ----
name = (
'first value'
! { "second " . "value" }
)
***************
*** 363,371 ****
=head2 Core plugin modules
! C<HTTP::WebTest> is implemented in a modular structure that allows programmers
! to easily add modules to run additional tests or define additional simple
! tests without writing a module.
! C<HTTP::WebTest> provides a number of core plugin modules which are
! loaded by default:
=over 4
--- 362,369 ----
=head2 Core plugin modules
! C<HTTP::WebTest> is implemented in a modular structure that allows
! programmers to easily add modules to run additional tests or define
! additional simple tests without writing a module. C<HTTP::WebTest>
! provides a number of core plugin modules which are loaded by default:
=over 4
***************
*** 452,455 ****
--- 450,461 ----
This plugin supports testing web files using a local instance of Apache.
+
+ =item L<HTTP::WebTest::Plugin::DateTest|HTTP::WebTest::Plugin::DateTest>
+
+ Evaluate the "age" of embedded date strings in response body.
+
+ =item L<HTTP::WebTest::Plugin::XMLReport|HTTP::WebTest::Plugin::XMLReport>
+
+ Report plugin for HTTP::WebTest, generates output in XML format.
=back
|
|
From: Ilya M. <m_...@us...> - 2003-01-03 22:32:42
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t
In directory sc8-pr-cvs1:/tmp/cvs-serv21565/t
Modified Files:
11-delay.t 06-parser.t 05-report.t 02-generic.t
Log Message:
Remove dublicating 'skip: ' from skip test messages
Index: 11-delay.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/11-delay.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** 11-delay.t 22 Dec 2002 21:25:49 -0000 1.7
--- 11-delay.t 3 Jan 2003 22:32:32 -0000 1.8
***************
*** 37,41 ****
SKIP: {
! skip 'skip: delay tests are disabled', 2 if defined $ENV{TEST_FAST};
my $start = gettimeofday;
--- 37,41 ----
SKIP: {
! skip 'delay tests are disabled', 2 if defined $ENV{TEST_FAST};
my $start = gettimeofday;
***************
*** 55,59 ****
SKIP: {
! skip 'skip: delay tests are disabled', 2 if defined $ENV{TEST_FAST};
my $start = gettimeofday;
--- 55,59 ----
SKIP: {
! skip 'delay tests are disabled', 2 if defined $ENV{TEST_FAST};
my $start = gettimeofday;
Index: 06-parser.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/06-parser.t,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** 06-parser.t 22 Dec 2002 21:25:49 -0000 1.18
--- 06-parser.t 3 Jan 2003 22:32:32 -0000 1.19
***************
*** 109,113 ****
check_file => 't/test.out/borked6.err');
SKIP: {
! skip 'skip: test is skipped because it triggers Perl bug', 1
if $] < 5.006;
--- 109,113 ----
check_file => 't/test.out/borked6.err');
SKIP: {
! skip 'test is skipped because it triggers Perl bug', 1
if $] < 5.006;
Index: 05-report.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/05-report.t,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** 05-report.t 2 Jan 2003 21:32:32 -0000 1.11
--- 05-report.t 3 Jan 2003 22:32:32 -0000 1.12
***************
*** 56,61 ****
SKIP: {
my $skip = $HOSTNAME !~ /\..*\./ ?
! 'skip: cannot test cookies - ' .
! 'hostname does not contain two dots' :
undef;
skip $skip, 2 if $skip;
--- 56,60 ----
SKIP: {
my $skip = $HOSTNAME !~ /\..*\./ ?
! 'cannot test cookies - hostname does not contain two dots' :
undef;
skip $skip, 2 if $skip;
***************
*** 82,87 ****
SKIP: {
my $skip = $HOSTNAME !~ /\..*\./ ?
! 'skip: cannot test cookies - ' .
! 'hostname does not contain two dots' :
undef;
skip $skip, 1 if $skip;
--- 81,85 ----
SKIP: {
my $skip = $HOSTNAME !~ /\..*\./ ?
! 'cannot test cookies - hostname does not contain two dots' :
undef;
skip $skip, 1 if $skip;
***************
*** 158,163 ****
SKIP: {
my $skip = $HOSTNAME !~ /\..*\./ ?
! 'skip: cannot test cookies - ' .
! 'hostname does not contain two dots' :
undef;
skip $skip, 2 if $skip;
--- 156,160 ----
SKIP: {
my $skip = $HOSTNAME !~ /\..*\./ ?
! 'cannot test cookies - hostname does not contain two dots' :
undef;
skip $skip, 2 if $skip;
Index: 02-generic.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/02-generic.t,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** 02-generic.t 3 Jan 2003 22:21:12 -0000 1.25
--- 02-generic.t 3 Jan 2003 22:32:32 -0000 1.26
***************
*** 128,132 ****
# 7: run response time tests
SKIP: {
! skip 'skip: long response time tests are disabled', 1
if defined $ENV{TEST_FAST};
--- 128,132 ----
# 7: run response time tests
SKIP: {
! skip 'long response time tests are disabled', 1
if defined $ENV{TEST_FAST};
***************
*** 176,181 ****
SKIP: {
my $skip = $HOSTNAME !~ /\..*\./ ?
! 'skip: cannot test cookies - ' .
! 'hostname does not contain two dots' :
undef;
skip $skip, 1 if $skip;
--- 176,180 ----
SKIP: {
my $skip = $HOSTNAME !~ /\..*\./ ?
! 'cannot test cookies - hostname does not contain two dots' :
undef;
skip $skip, 1 if $skip;
***************
*** 211,216 ****
SKIP: {
my $skip = $HOSTNAME !~ /\..*\./ ?
! 'skip: cannot test cookies - ' .
! 'hostname does not contain two dots' :
undef;
skip $skip, 1 if $skip;
--- 210,214 ----
SKIP: {
my $skip = $HOSTNAME !~ /\..*\./ ?
! 'cannot test cookies - hostname does not contain two dots' :
undef;
skip $skip, 1 if $skip;
***************
*** 247,252 ****
SKIP: {
my $skip = $HOSTNAME !~ /\..*\./ ?
! 'skip: cannot test cookies - ' .
! 'hostname does not contain two dots' :
undef;
skip $skip, 4 if $skip;
--- 245,249 ----
SKIP: {
my $skip = $HOSTNAME !~ /\..*\./ ?
! 'cannot test cookies - hostname does not contain two dots' :
undef;
skip $skip, 4 if $skip;
***************
*** 313,318 ****
SKIP: {
my $skip = $HOSTNAME !~ /\..*\./ ?
! 'skip: cannot test cookies - ' .
! 'hostname does not contain two dots' :
undef;
skip $skip, 1 if $skip;
--- 310,314 ----
SKIP: {
my $skip = $HOSTNAME !~ /\..*\./ ?
! 'cannot test cookies - hostname does not contain two dots' :
undef;
skip $skip, 1 if $skip;
***************
*** 636,640 ****
# 35: run timeout tests
SKIP: {
! skip 'skip: long response time tests are disabled', 1
if defined $ENV{TEST_FAST};
--- 632,636 ----
# 35: run timeout tests
SKIP: {
! skip 'long response time tests are disabled', 1
if defined $ENV{TEST_FAST};
|
|
From: Ilya M. <m_...@us...> - 2003-01-03 22:22:18
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv17474 Modified Files: Changes Log Message: Updated Index: Changes =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v retrieving revision 1.68 retrieving revision 1.69 diff -C2 -d -r1.68 -r1.69 *** Changes 2 Jan 2003 21:33:21 -0000 1.68 --- Changes 3 Jan 2003 22:22:14 -0000 1.69 *************** *** 23,26 **** --- 23,30 ---- Johannes la Poutre for bug report. + * Test in self-testing suite for 'timeout' parameter was buggy and + could fail on some machines. Thanks to Johannes la Poutre for bug + report. + 2.00 Sat Dec 14 2002 *************** *** 50,54 **** * HTTP::WebTest::Plugin::HarnessReport is rewritten using ! Test::Builder. As side effect now you can freely intermix HTTP::WebTest based tests with tests written using other testing libraries like Test::More or Test::Differences. Unfortunately this --- 54,58 ---- * HTTP::WebTest::Plugin::HarnessReport is rewritten using ! Test::Builder. As a side effect you can now freely intermix HTTP::WebTest based tests with tests written using other testing libraries like Test::More or Test::Differences. Unfortunately this |
|
From: Ilya M. <m_...@us...> - 2003-01-03 22:21:22
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t
In directory sc8-pr-cvs1:/tmp/cvs-serv17182/t
Modified Files:
02-generic.t
Log Message:
Fix buggy 'timeout' parameter test
Index: 02-generic.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/02-generic.t,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** 02-generic.t 22 Dec 2002 21:25:50 -0000 1.24
--- 02-generic.t 3 Jan 2003 22:21:12 -0000 1.25
***************
*** 652,658 ****
my $out_filter = sub {
$_[0] =~ s|( Response \s+ time \s+ \( \s+ )
! ( \d+ \. ) ( \d+ )
( \s+ \) )
! |"$1$2" . ('0' x length($3)) . "$4"|xge;
};
--- 652,658 ----
my $out_filter = sub {
$_[0] =~ s|( Response \s+ time \s+ \( \s+ )
! ( \d+ \. \d+ )
( \s+ \) )
! |"$1" . sprintf('%.2f', int $2 + 0.25) . "$3"|xge;
};
|
|
From: Ilya M. <m_...@us...> - 2003-01-02 21:33:24
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv21296 Modified Files: Changes Log Message: Updated Index: Changes =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v retrieving revision 1.67 retrieving revision 1.68 diff -C2 -d -r1.67 -r1.68 *** Changes 29 Dec 2002 14:30:36 -0000 1.67 --- Changes 2 Jan 2003 21:33:21 -0000 1.68 *************** *** 7,11 **** ENHANCEMENTS: ! * Port self test suite from Test to Test::More. DEPRECATIONS: --- 7,11 ---- ENHANCEMENTS: ! * Port self-testing suite from Test to Test::More. DEPRECATIONS: *************** *** 15,18 **** --- 15,25 ---- exported from HTTP::WebTest::SelfTest but their usage from this module is deprecated. + + BUG FIXES: + + * New versions of LWP add Client-Peer header in all responses what + breaks one of tests in self-testing suite. This test is fixed so it + should pass ok with both new and old versions of LWP. Thanks to + Johannes la Poutre for bug report. 2.00 Sat Dec 14 2002 |
|
From: Ilya M. <m_...@us...> - 2003-01-02 21:32:41
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t
In directory sc8-pr-cvs1:/tmp/cvs-serv20897/t
Modified Files:
05-report.t
Log Message:
New versions of LWP add Client-Peer header in all responses what
breaks one of tests in self-testing suite. This test is fixed so it
should pass ok with both new and old versions of LWP. Thanks to
Johannes la Poutre for bug report.
Index: 05-report.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/05-report.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** 05-report.t 22 Dec 2002 21:25:49 -0000 1.10
--- 05-report.t 2 Jan 2003 21:32:32 -0000 1.11
***************
*** 141,147 ****
my $out_filter = sub {
! $_[0] =~ s/: .*?GMT/: SOMEDAY/g;
$_[0] =~ s|Server: libwww-perl-daemon/[\w\.]*|Server: libwww-perl-daemon/NN|g;
$_[0] =~ s|User-Agent: HTTP-WebTest/[\w\.]*|User-Agent: HTTP-WebTest/NN|g;
};
--- 141,148 ----
my $out_filter = sub {
! $_[0] =~ s|: .*?GMT|: SOMEDAY|g;
$_[0] =~ s|Server: libwww-perl-daemon/[\w\.]*|Server: libwww-perl-daemon/NN|g;
$_[0] =~ s|User-Agent: HTTP-WebTest/[\w\.]*|User-Agent: HTTP-WebTest/NN|g;
+ $_[0] =~ s|Client-.*?: .*?\n||g;
};
|
|
From: Ilya M. <m_...@us...> - 2003-01-02 21:32:41
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t/test.out In directory sc8-pr-cvs1:/tmp/cvs-serv20897/t/test.out Modified Files: show-headers Log Message: New versions of LWP add Client-Peer header in all responses what breaks one of tests in self-testing suite. This test is fixed so it should pass ok with both new and old versions of LWP. Thanks to Johannes la Poutre for bug report. Index: show-headers =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/test.out/show-headers,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** show-headers 17 Aug 2002 12:42:05 -0000 1.4 --- show-headers 2 Jan 2003 21:32:32 -0000 1.5 *************** *** 23,28 **** Content-Type: text/plain Last-Modified: SOMEDAY - Client-Date: SOMEDAY - Client-Response-Num: 1 --- 23,26 ---- *************** *** 44,49 **** Content-Length: 53 Content-Type: text/html - Client-Date: SOMEDAY - Client-Response-Num: 1 Title: 404 Not Found --- 42,45 ---- |
|
From: Ilya M. <m_...@us...> - 2003-01-02 20:51:16
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/Bundle/HTTP In directory sc8-pr-cvs1:/tmp/cvs-serv6390/lib/Bundle/HTTP Modified Files: WebTest.pm Log Message: Cosmetic fixes Index: WebTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/Bundle/HTTP/WebTest.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** WebTest.pm 14 Dec 2002 16:55:16 -0000 1.7 --- WebTest.pm 2 Jan 2003 20:51:13 -0000 1.8 *************** *** 3,7 **** # $Id$ ! $VERSION = '0.03'; =head1 NAME --- 3,7 ---- # $Id$ ! $VERSION = '0.04'; =head1 NAME *************** *** 37,41 **** Time::HiRes ! Test::Builder Test::Builder::Tester - only required to run C<make test> --- 37,41 ---- Time::HiRes ! Test::More Test::Builder::Tester - only required to run C<make test> *************** *** 45,50 **** =head1 DESCRIPTION ! This bundle includes all modules required to run ! L<HTTP::WebTest|HTTP::WebTest> using all bundled plugins. Also it includes all modules required to run test suite for L<HTTP::WebTest|HTTP::WebTest>. --- 45,50 ---- =head1 DESCRIPTION ! This bundle includes all modules required to use ! L<HTTP::WebTest|HTTP::WebTest> with all its standart plugins. Also it includes all modules required to run test suite for L<HTTP::WebTest|HTTP::WebTest>. |
|
From: Ilya M. <m_...@us...> - 2003-01-02 20:49:52
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest In directory sc8-pr-cvs1:/tmp/cvs-serv5863/lib/HTTP/WebTest Modified Files: API.pm Log Message: Cosmetic fixes Index: API.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/API.pm,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 *** API.pm 12 Dec 2002 23:22:16 -0000 1.26 --- API.pm 2 Jan 2003 20:49:49 -0000 1.27 *************** *** 41,45 **** use HTTP::WebTest::Test; ! # BACKWARD COMPATIBILITY BITS - exported sub is from 1.xx API use base qw(Exporter); --- 41,46 ---- use HTTP::WebTest::Test; ! # BACKWARD COMPATIBILITY BITS - exporting this subroutine is a part of ! # HTTP-WebTest 1.xx API use base qw(Exporter); |
|
From: Johannes la P. <joe...@us...> - 2003-01-02 16:52:20
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport/t/test.out In directory sc8-pr-cvs1:/tmp/cvs-serv8507/t/test.out Modified Files: out-dtd.xml out.xml Added Files: out-missing-opts.xml out-no-name.xml Log Message: Prepared for release, small fixes and more robust tests --- NEW FILE: out-missing-opts.xml --- <?xml version="1.0" encoding="UTF-8"?> <testresults date="A_DATESTAMP"> <group name="missing-opts" url="A_URL"> <test name="Status code check"> <result status="PASS">Expected '200' and got: 200 OK</result> </test> <test name="Forbidden text"> <result status="PASS">Internal Server Error</result> </test> </group> </testresults> --- NEW FILE: out-no-name.xml --- <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE testresults [ <!ELEMENT testresults (group+)> <!ATTLIST testresults date CDATA #REQUIRED > <!ELEMENT group (test+)> <!ATTLIST group name CDATA #REQUIRED url CDATA #REQUIRED > <!ELEMENT test (result+)> <!ATTLIST test name CDATA #REQUIRED > <!ELEMENT result (#PCDATA)> <!ATTLIST result status (PASS | FAIL) #REQUIRED > ]> <testresults date="A_DATESTAMP"> <group name="untitled" url="A_URL"> <test name="Status code check"> <result status="PASS">Expected '200' and got: 200 OK</result> </test> <test name="Forbidden text"> <result status="PASS">Internal Server Error</result> </test> <test name="Required text"> <result status="PASS">SEE_ALSO</result> <result status="PASS"></html></result> </test> </group> </testresults> Index: out-dtd.xml =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport/t/test.out/out-dtd.xml,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** out-dtd.xml 30 Oct 2002 21:25:49 -0000 1.1.1.1 --- out-dtd.xml 2 Jan 2003 16:52:17 -0000 1.2 *************** *** 16,32 **** <!ELEMENT result (#PCDATA)> <!ATTLIST result ! status (OK | FAILED) #REQUIRED > ]> ! <testresults date="Tue Sep 17 17:55:40 2002"> ! <group name="dtd-test" url="file:/home/jlpoutre/devel/HTTP-WebTest-Plugin-XMLReport/t/in.html"> <test name="Status code check"> ! <result status="OK">Expected '200' and got: 200 OK</result> </test> <test name="Forbidden text"> ! <result status="OK">Internal Server Error</result> </test> <test name="Required text"> ! <result status="OK">SEE_ALSO</result> ! <result status="OK"></html></result> </test> </group> --- 16,32 ---- <!ELEMENT result (#PCDATA)> <!ATTLIST result ! status (PASS | FAIL) #REQUIRED > ]> ! <testresults date="A_DATESTAMP"> ! <group name="dtd-test" url="A_URL"> <test name="Status code check"> ! <result status="PASS">Expected '200' and got: 200 OK</result> </test> <test name="Forbidden text"> ! <result status="PASS">Internal Server Error</result> </test> <test name="Required text"> ! <result status="PASS">SEE_ALSO</result> ! <result status="PASS"></html></result> </test> </group> Index: out.xml =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport/t/test.out/out.xml,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** out.xml 30 Oct 2002 21:25:49 -0000 1.1.1.1 --- out.xml 2 Jan 2003 16:52:17 -0000 1.2 *************** *** 1,14 **** <?xml version="1.0" encoding="UTF-8"?> ! <testresults date="Tue Sep 17 17:55:39 2002"> ! <group name="xmltest" url="file:/home/jlpoutre/devel/HTTP-WebTest-Plugin-XMLReport/t/in.html"> <test name="Status code check"> ! <result status="OK">Expected '200' and got: 200 OK</result> </test> <test name="Forbidden text"> ! <result status="OK">Internal Server Error</result> </test> <test name="Required text"> ! <result status="OK">SEE_ALSO</result> ! <result status="OK"></html></result> </test> </group> --- 1,15 ---- <?xml version="1.0" encoding="UTF-8"?> ! <testresults date="A_DATESTAMP"> ! <group name="xmltest" url="A_URL"> <test name="Status code check"> ! <result status="PASS">Expected '200' and got: 200 OK</result> </test> <test name="Forbidden text"> ! <result status="PASS">Internal Server Error</result> </test> <test name="Required text"> ! <result status="PASS">SEE_ALSO</result> ! <result status="PASS"></html></result> ! <result status="FAIL">This SHOULD fail</result> </test> </group> |
|
From: Johannes la P. <joe...@us...> - 2003-01-02 16:52:20
|
Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport/t
In directory sc8-pr-cvs1:/tmp/cvs-serv8507/t
Modified Files:
01_basic.t
Removed Files:
utils.pl
Log Message:
Prepared for release, small fixes and more robust tests
Index: 01_basic.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport/t/01_basic.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** 01_basic.t 26 Dec 2002 20:32:42 -0000 1.2
--- 01_basic.t 2 Jan 2003 16:52:17 -0000 1.3
***************
*** 1,8 ****
! use lib qw(./blib ./t/lib);
! require 't/utils.pl';
! use HTTP::WebTest::Plugin::XMLReport;
! # XML::Parser is a prerequisite for XML::Simple, so it should be installed
! use XML::Parser;
! use Test::More tests => 4;
# 1 - test whether HTTP::WebTest::Plugin::XMLReport can be loaded
--- 1,6 ----
! #!/usr/bin/perl -w
! use lib qw(./blib/lib ./t/lib);
! use HTTP::WebTest::SelfTest;
! use Test::More tests => 6;
# 1 - test whether HTTP::WebTest::Plugin::XMLReport can be loaded
***************
*** 10,17 ****
# 2 - test whether HTTP::WebTest is installed
! require_ok 'HTTP::WebTest';
my $WEBTEST = HTTP::WebTest->new;
! my $p1 = new XML::Parser(Style => 'Tree');
# 3 - do some real request
--- 8,19 ----
# 2 - test whether HTTP::WebTest is installed
! require_ok 'HTTP::WebTest'; # Hmm, redundant after using ::SelfTest
!
my $WEBTEST = HTTP::WebTest->new;
! my $deffilter = sub {
! $_[0] =~ s/\s*date="[^"]+"/ date="A_DATESTAMP"/g;
! $_[0] =~ s/\s*url="[^"]+"/ url="A_URL"/g;
! };
# 3 - do some real request
***************
*** 19,30 ****
my $tests = [
{
! test_name => 'xmltest',
! url => 't/in.html',
! text_require => [ 'SEE_ALSO', '</html>' ],
! text_forbid => [ 'Internal Server Error' ],
} ];
! check_webtest(webtest => $WEBTEST,
! tests => $tests,
! opts => { plugins => ['::XMLReport', '::FileRequest'], default_report => 'no' },
check_file => 't/test.out/out.xml');
}
--- 21,35 ----
my $tests = [
{
! test_name => 'xmltest',
! url => 't/in.html',
! text_require => [ 'SEE_ALSO', '</html>', 'This SHOULD fail' ],
! text_forbid => [ 'Internal Server Error' ],
} ];
! my $opts = { plugins => ['::XMLReport', '::FileRequest'],
! default_report => 'no' };
! check_webtest(webtest => $WEBTEST,
! tests => $tests,
! out_filter => $deffilter,
! opts => $opts,
check_file => 't/test.out/out.xml');
}
***************
*** 34,46 ****
my $tests = [
{
! test_name => 'dtd-test',
! url => 't/in.html',
! text_require => [ 'SEE_ALSO', '</html>' ],
! text_forbid => [ 'Internal Server Error' ],
} ];
! check_webtest(webtest => $WEBTEST,
! tests => $tests,
! opts => { plugins => ['::XMLReport', '::FileRequest'],
! xml_report_dtd => 'yes', default_report => 'no' },
check_file => 't/test.out/out-dtd.xml');
}
--- 39,94 ----
my $tests = [
{
! test_name => 'dtd-test',
! url => 't/in.html',
! text_require => [ 'SEE_ALSO', '</html>' ],
! text_forbid => [ 'Internal Server Error' ],
} ];
! my $opts = { plugins => ['::XMLReport', '::FileRequest'],
! xml_report_dtd => 'yes',
! default_report => 'no' };
! check_webtest(webtest => $WEBTEST,
! tests => $tests,
! out_filter => $deffilter,
! opts => $opts,
check_file => 't/test.out/out-dtd.xml');
}
+
+ # 5 - missing wtscript param test_name
+ {
+ my $tests = [
+ {
+ url => 't/in.html',
+ text_require => [ 'SEE_ALSO', '</html>' ],
+ text_forbid => [ 'Internal Server Error' ],
+ } ];
+ my $opts = { plugins => ['::XMLReport', '::FileRequest'],
+ xml_report_dtd => 'yes',
+ default_report => 'no' };
+ check_webtest(webtest => $WEBTEST,
+ tests => $tests,
+ out_filter => $deffilter,
+ opts => $opts,
+ check_file => 't/test.out/out-no-name.xml');
+ }
+
+ # 6 - cooperation with unavailable params (normally used with default report)
+ {
+ my $tests = [
+ {
+ url => 't/in.html',
+ test_name => 'missing-opts',
+ show_headers => 'yes',
+ show_html => 'yes',
+ show_cookies => 'yes',
+ text_forbid => [ 'Internal Server Error' ],
+ } ];
+ my $opts = { plugins => ['::XMLReport', '::FileRequest'],
+ default_report => 'no' };
+ check_webtest(webtest => $WEBTEST,
+ tests => $tests,
+ out_filter => $deffilter,
+ opts => $opts,
+ check_file => 't/test.out/out-missing-opts.xml');
+ }
+
+
--- utils.pl DELETED ---
|
