[Http-webtest-commits] HTTP-WebTest-Plugin-XMLReport/t 01_basic.t,1.3,1.4

[Johannes la P. <joe...@us...>]

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