33 lines
570 B
Text
33 lines
570 B
Text
|
$NetBSD: patch-ac,v 1.1.1.1 2010/02/18 02:56:35 seb Exp $
|
||
|
|
|
||
|
|
Modernize POP tests.
|
||
|
|
|
||
|
|
--- t/pod.t.orig 2002-09-08 05:18:03.000000000 +0200
|
||
|
|
+++ t/pod.t
|
||
|
|
@@ -7,21 +7,7 @@
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
-my %pods;
|
||
|
|
-
|
||
|
|
-BEGIN {
|
||
|
|
- use Pod::Find qw(pod_find);
|
||
|
|
-
|
||
|
|
- %pods = pod_find(
|
||
|
|
- {
|
||
|
|
- -verbose => 1,
|
||
|
|
- },
|
||
|
|
- 'blib'
|
||
|
|
- );
|
||
|
|
-}
|
||
|
|
-
|
||
|
|
-use Test::Pod tests => scalar keys %pods;
|
||
|
|
-
|
||
|
|
-for my $pod (keys %pods) {
|
||
|
|
- pod_ok($pod);
|
||
|
|
-}
|
||
|
|
+use Test::More;
|
||
|
|
+eval "use Test::Pod 1.00";
|
||
|
|
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
|
||
|
|
+all_pod_files_ok();
|