You are viewing a plain text version of this content. The canonical link for it is here.
Posted to apreq-cvs@httpd.apache.org by jo...@apache.org on 2007/04/29 02:57:32 UTC

svn commit: r533451 - in /httpd/apreq/trunk/glue/perl: ./ xsbuilder/APR/Request/Apache2/ xsbuilder/APR/Request/CGI/ xsbuilder/APR/Request/Error/ xsbuilder/APR/Request/Hook/ xsbuilder/APR/Request/Parser/

Author: joes
Date: Sat Apr 28 17:57:31 2007
New Revision: 533451

URL: http://svn.apache.org/viewvc?view=rev&rev=533451
Log:
fix the pod tests

Modified:
    httpd/apreq/trunk/glue/perl/Makefile.PL
    httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Apache2/Apache2.pod
    httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/CGI/CGI.pod
    httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Error/Error.pod
    httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Hook/Hook.pod
    httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Parser/Parser.pod

Modified: httpd/apreq/trunk/glue/perl/Makefile.PL
URL: http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/Makefile.PL?view=diff&rev=533451&r1=533450&r2=533451
==============================================================================
--- httpd/apreq/trunk/glue/perl/Makefile.PL (original)
+++ httpd/apreq/trunk/glue/perl/Makefile.PL Sat Apr 28 17:57:31 2007
@@ -187,14 +187,11 @@
 
 sub test_docs {
     my ($pods, $tests) = @_;
-
-    my $pod2test = Apache::TestConfig::which('pod2test');
-    unless ($pod2test) {
-        # try under the perl's bin
-        require Config;
-        my $bin = $Config::Config{bin};
-        $pod2test = catfile $bin, "pod2test";
-    }
+    require Config;
+    my $bin = $Config::Config{bin};
+    my $pod2test = catfile $bin, "pod2test";
+    $pod2test = Apache::TestConfig::which('pod2test')
+        unless -e $pod2test;
 
     return "" unless $pod2test and -e $pod2test;
 
@@ -206,9 +203,10 @@
 }
 
 sub MY::postamble {
-    my @docs = <docs/*.pod>;
+    my @docs = (<xsbuilder/APR/Request/*/*.pod>, <xsbuilder/APR/Request/*.pod>);
     my @tests = @docs;
     s/pod$/t/ for @tests;
+    s/^xsbuilder/xs/ for @tests;
 
     my $string = "";
     my $test_docs = test_docs(\@docs, \@tests);

Modified: httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Apache2/Apache2.pod
URL: http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Apache2/Apache2.pod?view=diff&rev=533451&r1=533450&r2=533451
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Apache2/Apache2.pod (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Apache2/Apache2.pod Sat Apr 28 17:57:31 2007
@@ -1,3 +1,6 @@
+=for testing
+  ok(1);
+
 =head1 NAME
 
 APR::Request::Apache2 - wrapper for a mod_apreq2 handle.

Modified: httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/CGI/CGI.pod
URL: http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/CGI/CGI.pod?view=diff&rev=533451&r1=533450&r2=533451
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/CGI/CGI.pod (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/CGI/CGI.pod Sat Apr 28 17:57:31 2007
@@ -1,3 +1,6 @@
+=for testing
+  ok(1);
+
 =head1 NAME
 
 APR::Request::CGI - wrapper for libapreq2's CGI handle.

Modified: httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Error/Error.pod
URL: http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Error/Error.pod?view=diff&rev=533451&r1=533450&r2=533451
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Error/Error.pod (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Error/Error.pod Sat Apr 28 17:57:31 2007
@@ -1,3 +1,6 @@
+=for testing
+  ok(1);
+
 =head1 NAME
 
 APR::Request::Error - wrapper for libapreq2's error API.

Modified: httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Hook/Hook.pod
URL: http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Hook/Hook.pod?view=diff&rev=533451&r1=533450&r2=533451
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Hook/Hook.pod (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Hook/Hook.pod Sat Apr 28 17:57:31 2007
@@ -1,3 +1,6 @@
+=for testing
+  ok(1);
+
 =head1 NAME
 
 APR::Request::Hook - wrapper for libapreq2's hook API.

Modified: httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Parser/Parser.pod
URL: http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Parser/Parser.pod?view=diff&rev=533451&r1=533450&r2=533451
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Parser/Parser.pod (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Parser/Parser.pod Sat Apr 28 17:57:31 2007
@@ -1,3 +1,6 @@
+=for testing
+  ok(1);
+
 =head1 NAME
 
 APR::Request::Parser - wrapper for libapreq2's parser API.