gozer at apache
Dec 30, 2007, 11:36 PM
Post #1 of 1
(721 views)
Permalink
|
|
svn commit: r607693 - in /perl/modperl/trunk/t: apache/ apr-ext/ directive/ filter/ hooks/ modperl/ perl/ protocol/
|
|
Author: gozer
Date: Sun Dec 30 23:36:46 2007
New Revision: 607693
URL: http://svn.apache.org/viewvc?rev=607693&view=rev
Log:
*Whitespace*
removes trailing whitespace and expands tabs in t/*.t
Reviewed-by: gozer
Submitted-by: Torsten Foertsch <torsten.foertsch [at] gmx>
Message-Id: <200712031344.12974.torsten.foertsch [at] gmx>
Modified:
perl/modperl/trunk/t/apache/constants.t
perl/modperl/trunk/t/apache/content_length_header.t
perl/modperl/trunk/t/apr-ext/perlio.t
perl/modperl/trunk/t/apr-ext/uuid.t
perl/modperl/trunk/t/directive/perl.t
perl/modperl/trunk/t/filter/out_str_req_mix.t
perl/modperl/trunk/t/hooks/push_handlers.t
perl/modperl/trunk/t/modperl/cookie.t
perl/modperl/trunk/t/modperl/pnotes2.t
perl/modperl/trunk/t/perl/hash_attack.t
perl/modperl/trunk/t/protocol/eliza.t
Modified: perl/modperl/trunk/t/apache/constants.t
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/apache/constants.t?rev=607693&r1=607692&r2=607693&view=diff
==============================================================================
--- perl/modperl/trunk/t/apache/constants.t (original)
+++ perl/modperl/trunk/t/apache/constants.t Sun Dec 30 23:36:46 2007
@@ -8,7 +8,7 @@
# -compile puts constants into the Apache2:: namespace
use Apache2::Const -compile => qw(:http :common :mpmq :proxy
TAKE23 &OPT_EXECCGI
- DECLINE_CMD DIR_MAGIC_TYPE
+ DECLINE_CMD DIR_MAGIC_TYPE
CRLF);
# without -compile, constants are in the
@@ -29,11 +29,11 @@
ok t_cmp(Apache2::Const::HTTP_GONE, 410, 'Apache2::Const::HTTP_GONE');
-ok t_cmp(Apache2::Const::DIR_MAGIC_TYPE,
+ok t_cmp(Apache2::Const::DIR_MAGIC_TYPE,
'httpd/unix-directory',
'Apache2::Const::DIR_MAGIC_TYPE');
-ok t_cmp(Apache2::Const::MPMQ_MAX_SPARE_DAEMONS,
+ok t_cmp(Apache2::Const::MPMQ_MAX_SPARE_DAEMONS,
9,
'Apache2::Const::MPMQ_MAX_SPARE_DAEMONS');
Modified: perl/modperl/trunk/t/apache/content_length_header.t
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/apache/content_length_header.t?rev=607693&r1=607692&r2=607693&view=diff
==============================================================================
--- perl/modperl/trunk/t/apache/content_length_header.t (original)
+++ perl/modperl/trunk/t/apache/content_length_header.t Sun Dec 30 23:36:46 2007
@@ -72,13 +72,13 @@
## to protect against wierd SVN checkout building.
## XXX: I'm starting to think this test is more
## trouble then its worth.
- if (have_min_apache_version("2.2.1")) {
+ if (have_min_apache_version("2.2.1")) {
$head_cl = 25;
}
elsif (have_min_apache_version("2.2.0")) {
# $head_cl = undef; # avoid warnings
}
- elsif (have_min_apache_version("2.0.56")) {
+ elsif (have_min_apache_version("2.0.56")) {
$head_cl = 25;
}
else {
Modified: perl/modperl/trunk/t/apr-ext/perlio.t
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/apr-ext/perlio.t?rev=607693&r1=607692&r2=607693&view=diff
==============================================================================
--- perl/modperl/trunk/t/apr-ext/perlio.t (original)
+++ perl/modperl/trunk/t/apr-ext/perlio.t Sun Dec 30 23:36:46 2007
@@ -25,7 +25,7 @@
# prerequisite
# also need to check whether we build against the source tree, in
# which case we APR.so won't be linked against libapr/libaprutil
-my $has_apr_config = $build->{apr_config_path} &&
+my $has_apr_config = $build->{apr_config_path} &&
!$build->httpd_is_source_tree;
my $has_perlio_layers = 0;
@@ -230,11 +230,11 @@
}
-# XXX: need tests
+# XXX: need tests
# - for stdin/out/err as they are handled specially
# XXX: tmpfile is missing:
-# consider to use 5.8's syntax:
+# consider to use 5.8's syntax:
# open $fh, "+>", undef;
# cleanup: t_mkdir will remove the whole tree including the file
Modified: perl/modperl/trunk/t/apr-ext/uuid.t
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/apr-ext/uuid.t?rev=607693&r1=607692&r2=607693&view=diff
==============================================================================
--- perl/modperl/trunk/t/apr-ext/uuid.t (original)
+++ perl/modperl/trunk/t/apr-ext/uuid.t Sun Dec 30 23:36:46 2007
@@ -16,7 +16,7 @@
#######
# my $build = Apache2::Build->build_config;
#
-# my $has_apr_config = $build->{apr_config_path} &&
+# my $has_apr_config = $build->{apr_config_path} &&
# !$build->httpd_is_source_tree;
# plan tests => TestAPRlib::uuid::num_of_tests(),
# need {"the build couldn't find apr-config" => $has_apr_config};
Modified: perl/modperl/trunk/t/directive/perl.t
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/directive/perl.t?rev=607693&r1=607692&r2=607693&view=diff
==============================================================================
--- perl/modperl/trunk/t/directive/perl.t (original)
+++ perl/modperl/trunk/t/directive/perl.t Sun Dec 30 23:36:46 2007
@@ -10,7 +10,7 @@
my @auth = (Authorization => 'Basic ZG91Z206Zm9v'); #dougm:foo
-foreach my $location ("/perl_sections/index.html",
+foreach my $location ("/perl_sections/index.html",
"/perl_sections_readconfig/index.html") {
sok {
Modified: perl/modperl/trunk/t/filter/out_str_req_mix.t
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/filter/out_str_req_mix.t?rev=607693&r1=607692&r2=607693&view=diff
==============================================================================
--- perl/modperl/trunk/t/filter/out_str_req_mix.t (original)
+++ perl/modperl/trunk/t/filter/out_str_req_mix.t Sun Dec 30 23:36:46 2007
@@ -15,5 +15,5 @@
my $received = POST_BODY $location, content => $content;
$received =~ s{\r?\n$}{};
-ok t_cmp($expected, $received,
+ok t_cmp($expected, $received,
"mixing output httpd and mod_perl filters, while preserving order");
Modified: perl/modperl/trunk/t/hooks/push_handlers.t
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/hooks/push_handlers.t?rev=607693&r1=607692&r2=607693&view=diff
==============================================================================
--- perl/modperl/trunk/t/hooks/push_handlers.t (original)
+++ perl/modperl/trunk/t/hooks/push_handlers.t Sun Dec 30 23:36:46 2007
@@ -7,7 +7,7 @@
plan tests => 1;
-my @refs = qw(conf conf1 conf2 coderef
+my @refs = qw(conf conf1 conf2 coderef
full_coderef coderef1 coderef2 coderef3);
my @anon = qw(anonymous anonymous1 coderef4 anonymous3);
Modified: perl/modperl/trunk/t/modperl/cookie.t
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/modperl/cookie.t?rev=607693&r1=607692&r2=607693&view=diff
==============================================================================
--- perl/modperl/trunk/t/modperl/cookie.t (original)
+++ perl/modperl/trunk/t/modperl/cookie.t Sun Dec 30 23:36:46 2007
@@ -9,7 +9,7 @@
# this test we call $r->subprocess_env, which adds them on demand, and
# we are able to get the cookie via %ENV.
#
-# the last sub-test makes sure that mod_cgi env vars don't persist
+# the last sub-test makes sure that mod_cgi env vars don't persist
# and are properly re-set at the end of each request.
#
# since the test is run against the same interpreter we also test that
Modified: perl/modperl/trunk/t/modperl/pnotes2.t
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/modperl/pnotes2.t?rev=607693&r1=607692&r2=607693&view=diff
==============================================================================
--- perl/modperl/trunk/t/modperl/pnotes2.t (original)
+++ perl/modperl/trunk/t/modperl/pnotes2.t Sun Dec 30 23:36:46 2007
@@ -22,7 +22,7 @@
$u="$url?$i"; $ok=GET_BODY $u;
select undef, undef, undef, 0.2; # give it time to write the logfile
ok t_cmp scalar(grep {
- /pnotes are destroyed after cleanup passed/;
+ /pnotes are destroyed after cleanup passed/;
} t_finish_error_log_watch), 1, $u;
}
Modified: perl/modperl/trunk/t/perl/hash_attack.t
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/perl/hash_attack.t?rev=607693&r1=607692&r2=607693&view=diff
==============================================================================
--- perl/modperl/trunk/t/perl/hash_attack.t (original)
+++ perl/modperl/trunk/t/perl/hash_attack.t Sun Dec 30 23:36:46 2007
@@ -7,7 +7,7 @@
use Apache::TestRequest 'GET_BODY_ASSERT';
-plan tests => 1,
+plan tests => 1,
need { "relevant only for perl 5.8.2 and higher" => ($] >= 5.008002) };
my $expected = "ok";
Modified: perl/modperl/trunk/t/protocol/eliza.t
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/protocol/eliza.t?rev=607693&r1=607692&r2=607693&view=diff
==============================================================================
--- perl/modperl/trunk/t/protocol/eliza.t (original)
+++ perl/modperl/trunk/t/protocol/eliza.t Sun Dec 30 23:36:46 2007
@@ -5,9 +5,9 @@
use Apache::TestUtil;
use Apache::TestRequest ();
-my @test_strings = ('Hello Eliza',
- 'How are you?',
- 'Why do I have core dumped?',
+my @test_strings = ('Hello Eliza',
+ 'How are you?',
+ 'Why do I have core dumped?',
'I feel like writing some tests today, what about you?',
'Good bye, Eliza');
|
