Return-Path: 
 <modperl-cvs-return-3275-apmail-perl-modperl-cvs-archive=perl.apache.org@perl.apache.org>
Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org
Received: (qmail 64153 invoked by uid 500); 7 Apr 2003 07:55:42 -0000
Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm
Precedence: bulk
list-help: <mailto:modperl-cvs-help@perl.apache.org>
list-unsubscribe: <mailto:modperl-cvs-unsubscribe@perl.apache.org>
list-post: <mailto:modperl-cvs@perl.apache.org>
Reply-To: dev@perl.apache.org
Delivered-To: mailing list modperl-cvs@perl.apache.org
Received: (qmail 64142 invoked by uid 500); 7 Apr 2003 07:55:42 -0000
Delivered-To: apmail-modperl-2.0-cvs@apache.org
Date: 7 Apr 2003 07:55:41 -0000
Message-ID: <20030407075541.87897.qmail@icarus.apache.org>
From: stas@apache.org
To: modperl-2.0-cvs@apache.org
Subject: cvs commit: modperl-2.0/ModPerl-Registry/t/cgi-bin cgi.pl
X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N

stas        2003/04/07 00:55:40

  Added:       ModPerl-Registry/t cgi.t
               ModPerl-Registry/t/cgi-bin cgi.pl
  Log:
  add a new simple test to test CGI.pm under MP::Registry
  
  Revision  Changes    Path
  1.1                  modperl-2.0/ModPerl-Registry/t/cgi.t
  
  Index: cgi.t
  ===================================================================
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestUtil;
  use Apache::TestRequest qw(GET);
  
  plan tests => 2;
  
  my $url = "/registry/cgi.pl";
  my $res = GET $url;
  
  ok t_cmp(
      qr{^text/html},
      $res->header('Content-type'),
      "test 'Content-type header setting"
     );
  
  ok t_cmp(
      '<b>done</b>',
      lc($res->content),
      "test body"
     );
  
  
  
  1.1                  modperl-2.0/ModPerl-Registry/t/cgi-bin/cgi.pl
  
  Index: cgi.pl
  ===================================================================
  use CGI qw/:standard :html3/;
  
  print header(-type=>'text/html');
  print b("done");