httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestMM.pm TestRun.pm
Date Wed, 18 Sep 2002 21:26:58 GMT
dougm       2002/09/18 14:26:58

  Modified:    perl-framework/Apache-Test/lib/Apache TestMM.pm TestRun.pm
  Log:
  Submitted by:	Geoffrey Young <geoff@modperlcookbook.org>
  Reviewed by:	dougm
  add support for make test TEST_VERBOSE=1
  
  Revision  Changes    Path
  1.17      +3 -1      httpd-test/perl-framework/Apache-Test/lib/Apache/TestMM.pm
  
  Index: TestMM.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestMM.pm,v
  retrieving revision 1.16
  retrieving revision 1.17
  diff -u -r1.16 -r1.17
  --- TestMM.pm	9 Apr 2002 07:38:57 -0000	1.16
  +++ TestMM.pm	18 Sep 2002 21:26:58 -0000	1.17
  @@ -44,6 +44,8 @@
   EOF
   
       return $preamble . <<'EOF';
  +TEST_VERBOSE = 0
  +
   test_clean :
   	$(FULLPERL) -I$(INST_ARCHLIB) -I$(INST_LIB) \
   	t/TEST -clean
  @@ -51,7 +53,7 @@
   run_tests : test_clean
   	$(PASSENV) \
   	$(FULLPERL) -I$(INST_ARCHLIB) -I$(INST_LIB) \
  -	t/TEST
  +	t/TEST -verbose=$(TEST_VERBOSE)
   
   test :: pure_all run_tests test_clean
   
  
  
  
  1.94      +3 -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.93
  retrieving revision 1.94
  diff -u -r1.93 -r1.94
  --- TestRun.pm	21 Jun 2002 03:17:51 -0000	1.93
  +++ TestRun.pm	18 Sep 2002 21:26:58 -0000	1.94
  @@ -22,9 +22,10 @@
   my %core_files  = ();
   
   my @std_run      = qw(start-httpd run-tests stop-httpd);
  -my @others       = qw(verbose configure clean help ssl http11);
  +my @others       = qw(configure clean help ssl http11);
   my @flag_opts    = (@std_run, @others);
   my @string_opts  = qw(order trace);
  +my @vary_opts    = qw(verbose);
   my @ostring_opts = qw(proxy ping);
   my @debug_opts   = qw(debug);
   my @num_opts     = qw(times);
  @@ -166,6 +167,7 @@
       GetOptions(\%opts, @flag_opts, @help_opts,
                  (map "$_:s", @debug_opts, @request_opts, @ostring_opts),
                  (map "$_=s", @string_opts),
  +               (map "$_:1", @vary_opts),
                  (map "$_=i", @num_opts),
                  (map { ("$_=s", $vopts{$_} ||= []) } @list_opts),
                  (map { ("$_=s", $vopts{$_} ||= {}) } @hash_opts));
  
  
  

Mime
View raw message