cvs commit: httpd-test/perl-framework/t/ssl basicauth.t

[jwoolley]

jwoolley    02/03/24 17:27:28

  Modified:    perl-framework/t/ssl basicauth.t
  Log:
  Add verbose debugging
  
  Revision  Changes    Path
  1.3       +15 -5     httpd-test/perl-framework/t/ssl/basicauth.t
  
  Index: basicauth.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/ssl/basicauth.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -d -u -r1.2 -r1.3
  --- basicauth.t       5 Oct 2001 01:11:35 -0000       1.2
  +++ basicauth.t       25 Mar 2002 01:27:28 -0000      1.3
  @@ -3,6 +3,7 @@
   use Apache::Test;
   use Apache::TestRequest;
   use Apache::TestConfig ();
  +use Apache::TestUtil;
   
   my $url = '/ssl-fakebasicauth/index.html';
   
  @@ -10,8 +11,17 @@
   
   Apache::TestRequest::scheme('https');
   
  -ok GET_RC($url, cert => undef) != 200;
  +ok t_cmp (500,
  +          GET_RC($url, cert => undef),
  +          "Getting $url with no cert"
  +         );
   
  -ok GET_RC($url, cert => 'client_snakeoil') == 200;
  +ok t_cmp (200,
  +          GET_RC($url, cert => 'client_snakeoil'),
  +          "Getting $url with client_snakeoil cert"
  +         );
   
  -ok GET_RC($url, cert => 'client_ok') == 401;
  +ok t_cmp (401,
  +          GET_RC($url, cert => 'client_ok'),
  +          "Getting $url with client_ok cert"
  +         );