You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by do...@apache.org on 2002/09/18 23:26:58 UTC
cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestMM.pm TestRun.pm
dougm 2002/09/18 14:26:58
Modified: perl-framework/Apache-Test/lib/Apache TestMM.pm TestRun.pm
Log:
Submitted by: Geoffrey Young <ge...@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));