cvs commit: httpd-apreq-2/glue/perl/t/apreq cgi.t

[randyk]

randyk      2004/07/27 10:15:46

  Modified:    env/t    cgi.t
               glue/perl/t/apreq cgi.t
  Log:
  skip cgi tests if have_cgi isn't true.
  
  Revision  Changes    Path
  1.6       +2 -1      httpd-apreq-2/env/t/cgi.t
  
  Index: cgi.t
  ===================================================================
  RCS file: /home/cvs/httpd-apreq-2/env/t/cgi.t,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- cgi.t     11 Jul 2004 02:08:47 -0000      1.5
  +++ cgi.t     27 Jul 2004 17:15:43 -0000      1.6
  @@ -15,7 +15,8 @@
   my @big_key_num = (5, 15, 25);
   my @big_keys    = ('a'..'z');
   
  -plan tests => 10 + @key_len * @key_num + @big_key_len * @big_key_num, 
have_lwp;
  +plan tests => 10 + @key_len * @key_num + @big_key_len * @big_key_num, 
  +    have_lwp && have_cgi;
   
   require HTTP::Cookies;
   
  
  
  
  1.9       +1 -1      httpd-apreq-2/glue/perl/t/apreq/cgi.t
  
  Index: cgi.t
  ===================================================================
  RCS file: /home/cvs/httpd-apreq-2/glue/perl/t/apreq/cgi.t,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- cgi.t     24 Jul 2004 05:28:02 -0000      1.8
  +++ cgi.t     27 Jul 2004 17:15:45 -0000      1.9
  @@ -36,7 +36,7 @@
   my @big_keys    = ('a'..'z');
   
   plan tests => 10 + @key_len * @key_num + @big_key_len * @big_key_num +
  -  @names * @methods;
  +  @names * @methods, have_lwp && have_cgi;
   
   my $location = '/cgi-bin';
   my $script = $location . '/test_cgi.pl';