X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a0144a09218bddaedb0e26df6b8839cc00c641d8..b74d1c197c8365b14587838d999244274de12884:/t/007broken_links.t diff --git a/t/007broken_links.t b/t/007broken_links.t index 5ac03bca6..fbe5ea21b 100644 --- a/t/007broken_links.t +++ b/t/007broken_links.t @@ -8,9 +8,13 @@ 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; @@ -33,8 +37,8 @@ find(sub { $finder->find(\$text); - }, "." -); + }, "./templates", "./doc", + ); if (@fails) { ok(0, join "\n", @fails);