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 ----
|
