projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Volltext-Suche: Hintergrund-Job: POD
[kivitendo-erp.git]
/
t
/
007broken_links.t
diff --git
a/t/007broken_links.t
b/t/007broken_links.t
index
ee0021e
..
fbe5ea2
100644
(file)
--- a/
t/007broken_links.t
+++ b/
t/007broken_links.t
@@
-8,9
+8,13
@@
use strict;
use File::Find;
use strict;
use File::Find;
-use LWP::Simple;
-use Test::More tests => 1;
-use URI::Find;
+use Test::More;
+
+if (eval " use LWP::Simple; use URI::Find; 1 ") {
+ plan tests => 1;
+} else {
+ plan skip_all => "LWP::Simple or URI::Find not installed";
+}
my @fails;
my @fails;
@@
-26,14
+30,15
@@
my $finder = URI::Find->new(sub {
});
find(sub {
});
find(sub {
+ return unless -f $File::Find::name;
open(FH, $File::Find::name) or return;
my $text;
{ local $/; $text = <FH>; }
$finder->find(\$text);
open(FH, $File::Find::name) or return;
my $text;
{ local $/; $text = <FH>; }
$finder->find(\$text);
- }, ".
"
-);
+ }, ".
/templates", "./doc",
+
);
if (@fails) {
ok(0, join "\n", @fails);
if (@fails) {
ok(0, join "\n", @fails);