perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/ModPerl-Registry/t/cgi-bin basic.pl
Date Sun, 23 Nov 2003 21:01:50 GMT
stas        2003/11/23 13:01:50

  Modified:    ModPerl-Registry/t basic.t redirect.t
               ModPerl-Registry/t/cgi-bin basic.pl
  Log:
  test that $0 is set to the path to the script
  
  Revision  Changes    Path
  1.15      +6 -1      modperl-2.0/ModPerl-Registry/t/basic.t
  
  Index: basic.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/basic.t,v
  retrieving revision 1.14
  retrieving revision 1.15
  diff -u -u -r1.14 -r1.15
  --- basic.t	1 Apr 2003 04:18:49 -0000	1.14
  +++ basic.t	23 Nov 2003 21:01:50 -0000	1.15
  @@ -6,6 +6,8 @@
   use Apache::TestRequest qw(GET GET_BODY HEAD);
   use Apache::TestConfig ();
   
  +use File::Spec::Functions qw(catfile);
  +
   my %modules = (
       registry    => 'ModPerl::Registry',
       registry_bb => 'ModPerl::RegistryBB',
  @@ -16,12 +18,15 @@
   
   plan tests => @aliases * 4 + 3;
   
  +my $vars = Apache::Test::config()->{vars};
  +my $script_file = catfile $vars->{serverroot}, 'cgi-bin', 'basic.pl';
  +
   # very basic compilation/response test
   for my $alias (@aliases) {
       my $url = "/$alias/basic.pl";
   
       ok t_cmp(
  -        "ok",
  +        "ok $script_file",
           GET_BODY($url),
           "$modules{$alias} basic cgi test",
       );
  
  
  
  1.6       +5 -2      modperl-2.0/ModPerl-Registry/t/redirect.t
  
  Index: redirect.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/redirect.t,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -u -r1.5 -r1.6
  --- redirect.t	12 Aug 2003 21:06:40 -0000	1.5
  +++ redirect.t	23 Nov 2003 21:01:50 -0000	1.6
  @@ -5,18 +5,21 @@
   use Apache::TestUtil;
   use Apache::TestRequest qw(GET_BODY HEAD);
   
  +use File::Spec::Functions qw(catfile);
  +
   plan tests => 4, have_lwp;
   
   # need LWP to handle redirects
  -
   my $base_url = "/registry/redirect.pl";
   
   {
       my $redirect_path = "/registry/basic.pl";
       my $url = "$base_url?$redirect_path";
  +    my $vars = Apache::Test::config()->{vars};
  +    my $script_file = catfile $vars->{serverroot}, 'cgi-bin', 'basic.pl';
   
       ok t_cmp(
  -        "ok",
  +        "ok $script_file",
           GET_BODY($url),
           "test redirect: existing target",
          );
  
  
  
  1.3       +1 -1      modperl-2.0/ModPerl-Registry/t/cgi-bin/basic.pl
  
  Index: basic.pl
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/cgi-bin/basic.pl,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -u -r1.2 -r1.3
  --- basic.pl	16 Aug 2002 10:11:39 -0000	1.2
  +++ basic.pl	23 Nov 2003 21:01:50 -0000	1.3
  @@ -3,7 +3,7 @@
   # test all the basic functionality
   
   print "Content-type: text/plain\n\n";
  -print "ok";
  +print "ok $0";
   
   __END__
   
  
  
  

Mime
View raw message