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 require.pl
Date Mon, 06 Jan 2003 10:39:44 GMT
stas        2003/01/06 02:39:44

  Modified:    ModPerl-Registry/t basic.t
               ModPerl-Registry/t/cgi-bin require.pl
  Log:
  For now dynamically figure out the current dir and use the full path to
  the require()
  
  Revision  Changes    Path
  1.8       +10 -13    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.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- basic.t	15 Aug 2002 16:17:52 -0000	1.7
  +++ basic.t	6 Jan 2003 10:39:43 -0000	1.8
  @@ -5,7 +5,6 @@
   use Apache::TestUtil;
   use Apache::TestRequest qw(GET_BODY HEAD);
   
  -
   my %modules = (
       registry    => 'ModPerl::Registry',
       registry_bb => 'ModPerl::RegistryBB',
  @@ -14,7 +13,7 @@
   
   my @aliases = sort keys %modules;
   
  -plan tests => @aliases * 3 + 1;
  +plan tests => @aliases * 4 + 1;
   
   # very basic compilation/response test
   for my $alias (@aliases) {
  @@ -49,18 +48,16 @@
       );
   }
   
  -# XXX: chdir is not safe yet!
  +# require (actually chdir test)
  +for my $alias (@aliases) {
  +    my $url = "/$alias/require.pl";
   
  -## require (actually chdir test)
  -#for my $alias (@aliases) {
  -#    my $url = "/$alias/require.pl";
  -
  -#    ok t_cmp(
  -#        "it works",
  -#        GET_BODY($url),
  -#        "$modules{$alias} mod_cgi-like environment pre-set",
  -#    );
  -#}
  +    ok t_cmp(
  +        "it works",
  +        GET_BODY($url),
  +        "$modules{$alias} mod_cgi-like environment pre-set",
  +    );
  +}
   
   # test method handlers
   {
  
  
  
  1.4       +10 -6     modperl-2.0/ModPerl-Registry/t/cgi-bin/require.pl
  
  Index: require.pl
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/cgi-bin/require.pl,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- require.pl	16 Aug 2002 10:11:39 -0000	1.3
  +++ require.pl	6 Jan 2003 10:39:44 -0000	1.4
  @@ -1,11 +1,15 @@
   # test the require
   
  +use Apache::Test ();
  +use File::Spec::Functions qw(catfile);
  +
  +my $vars = Apache::Test::config()->{vars};
  +my $require = catfile $vars->{serverroot}, 'cgi-bin', 'local-conf.pl';
  +
   print "Content-type: text/plain\n\n";
   
  -# XXX: fixme!
  -#use lib qw(.);
  -#my $file = "./local-conf.pl";
  -#require $file;
  +# XXX: meanwhile we don't chdir to the script's dir
  +require $require;
  +
  +print defined $test_require && $test_require;
   
  -#print defined $test_require && $test_require;
  -print "it works";
  
  
  

Mime
View raw message