cvs commit: modperl-2.0/Apache-Test/t TEST ping.t request.t

[dougm]

dougm       01/04/02 02:01:25

  Added:       Apache-Test/t TEST ping.t request.t
  Log:
  test test files
  
  Revision  Changes    Path
  1.1                  modperl-2.0/Apache-Test/t/TEST
  
  Index: TEST
  ===================================================================
  #!perl
  
  use strict;
  use warnings FATAL => 'all';
  
  use lib qw(lib ../lib);
  
  use Apache::TestRun ();
  
  package MyTest;
  
  our @ISA = qw(Apache::TestRun);
  
  sub configure_modperl {} #dont configure mod_perl for these tests
  
  MyTest->new->run(@ARGV);
  
  
  
  1.1                  modperl-2.0/Apache-Test/t/ping.t
  
  Index: ping.t
  ===================================================================
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  
  plan tests => 3;
  
  use Apache::TestConfig ();
  
  my $test_config = Apache::TestConfig->thaw;
  
  ok $test_config;
  
  my $server = $test_config->server;
  
  ok $server;
  
  ok $server->ping;
  
  
  
  
  1.1                  modperl-2.0/Apache-Test/t/request.t
  
  Index: request.t
  ===================================================================
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestRequest;
  
  plan tests => 9, \&Apache::TestRequest::has_lwp;
  
  my $url = '/';
  
  ok GET_OK   $url;
  ok GET_RC   $url;
  ok GET_STR  $url;
  ok GET_BODY $url;
  
  ok HEAD_OK  $url;
  ok HEAD_RC  $url;
  ok HEAD_STR $url;
  
  ok GET_OK   $url, username => 'dougm', password => 'XXXX'; #e.g. for auth
  
  ok GET_OK   $url, Referer => $0;   #add headers
  
  #post a string
  #ok POST_OK  $url, content => 'post body data';
  
  #or key/value pairs (see HTTP::Request::Common
  #ok POST_OK  $url, [university => 'arizona', team => 'wildcats']