httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test Changes
Date Thu, 19 Feb 2004 06:37:20 GMT
stas        2004/02/18 22:37:20

  Modified:    perl-framework/Apache-Test/lib/Apache TestRun.pm
               perl-framework/Apache-Test Changes
  Log:
  Make it possible to run TEST (or another driving script) from any path
  (e.g. t/TEST, ./TEST, /full/path/to/t/TEST)
  
  Revision  Changes    Path
  1.150     +11 -1     httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
  
  Index: TestRun.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
  retrieving revision 1.149
  retrieving revision 1.150
  diff -u -u -r1.149 -r1.150
  --- TestRun.pm	18 Feb 2004 04:09:08 -0000	1.149
  +++ TestRun.pm	19 Feb 2004 06:37:19 -0000	1.150
  @@ -626,7 +626,15 @@
   sub run {
       my $self = shift;
   
  -    custom_config_load();
  +    # assuming that test files are always in the same directory as the
  +    # driving script, make it possible to run the test suite from any place
  +    # use a full path, which will work after chdir (e.g. ./TEST)
  +    $0 = File::Spec->rel2abs($0);
  +    if (-e $0) {
  +        my $top = dirname dirname $0;
  +        chdir $top;
  +        error $top;
  +    }
   
       # reconstruct argv, preserve multiwords args, eg 'PerlTrace all'
       my $argv = join " ", map { /^-/ ? $_ : qq['$_'] } @ARGV;
  @@ -634,6 +642,8 @@
       $orig_cwd = Cwd::cwd();
       $self->set_ulimit;
       $self->set_env; #make sure these are always set
  +
  +    custom_config_load();
   
       my(@argv) = @_;
   
  
  
  
  1.92      +3 -0      httpd-test/perl-framework/Apache-Test/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/Changes,v
  retrieving revision 1.91
  retrieving revision 1.92
  diff -u -u -r1.91 -r1.92
  --- Changes	19 Feb 2004 04:16:57 -0000	1.91
  +++ Changes	19 Feb 2004 06:37:20 -0000	1.92
  @@ -8,6 +8,9 @@
   
   =item 1.08_dev
   
  +Make it possible to run TEST (or another driving script) from any path
  +(e.g. t/TEST, ./TEST, /full/path/to/t/TEST) [Stas]
  +
   If at least one *conf*.in files is modified since the last
   configuration, make sure to regenerate them all, so the right ports
   will be assigned. [Stas]
  
  
  

Mime
View raw message