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

[geoff]

geoff       2004/08/17 10:14:25

  Modified:    perl-framework/t/ssl proxy.t
  Log:
  pass t_cmp() its arguments in the (new) proper order
  
  Revision  Changes    Path
  1.11      +12 -12    httpd-test/perl-framework/t/ssl/proxy.t
  
  Index: proxy.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/ssl/proxy.t,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- proxy.t   17 Aug 2004 16:13:35 -0000      1.10
  +++ proxy.t   17 Aug 2004 17:14:25 -0000      1.11
  @@ -44,8 +44,8 @@
       my %vars;
   
       sok {
  -        t_cmp(200,
  -              GET('/')->code,
  +        t_cmp(GET('/')->code,
  +              200,
                 "/ with $module ($scheme)");
       };
   
  @@ -57,21 +57,21 @@
   
       if ($backend{$module} eq "https") {
           sok {
  -            t_cmp(200,
  -                  GET('/verify')->code,
  +            t_cmp(GET('/verify')->code,
  +                  200,
                     "using valid proxyssl client cert");
           };
   
           sok {
  -            t_cmp(403,
  -                  GET('/require/snakeoil')->code,
  +            t_cmp(GET('/require/snakeoil')->code,
  +                  403,
                     "using invalid proxyssl client cert");
           };
   
           $res = GET('/require-ssl-cgi/env.pl');
   
           sok {
  -            t_cmp(200, $res->code, "protected cgi script");
  +            t_cmp($res->code, 200, "protected cgi script");
           };
   
           my $body = $res->content || "";
  @@ -83,14 +83,14 @@
           }
   
           sok {
  -            t_cmp($hostport,
  -                  $vars{HTTP_X_FORWARDED_HOST},
  +            t_cmp($vars{HTTP_X_FORWARDED_HOST},
  +                  $hostport,
                     "X-Forwarded-Host header");
           };
   
           sok {
  -            t_cmp('client_ok',
  -                  $vars{SSL_CLIENT_S_DN_CN},
  +            t_cmp($vars{SSL_CLIENT_S_DN_CN},
  +                  'client_ok',
                     "client subject common name");
           };
       }
  @@ -108,7 +108,7 @@
   
           my $location = $res->header('Location') || 'NONE';
   
  -        t_cmp($ruri, $location, 'ProxyPassReverse Location rewrite');
  +        t_cmp($location, $ruri, 'ProxyPassReverse Location rewrite');
       };
   
       Apache::TestCommon::run_post_test($post_module) if $post_tests;