BEGIN {
unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).
push @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
- push @INC, "SL"; # FCGI won't find modules that are not properly named. Help it by inclduging SL
}
use CGI qw( -no_xhtml);
use SL::LXDebug;
use SL::Locale;
use SL::Common;
+use SL::Form;
use SL::Helper::DateTime;
-use Form;
use List::Util qw(first);
use File::Basename;
--- /dev/null
+#!/usr/bin/perl
+
+# adapted from Michael Stevens' test script posted in p5p
+# in the thread "broken links in blead" from 01/19/2011
+#
+# caveats: wikipedia seems to have crawler protection and
+# will give 403 forbidden unless the user agent is faked.
+
+use strict;
+use File::Find;
+use LWP::Simple;
+use Test::More tests => 1;
+use URI::Find;
+
+my @fails;
+
+my $finder = URI::Find->new(sub {
+ my ($uri_obj, $uri_text) = @_;
+ $uri_text =~ s/^\<//;
+ $uri_text =~ s/\>$//;
+
+ push @fails, "$uri_text in file $File::Find::name"
+ if !defined get($uri_text);
+
+ return $_[1];
+});
+
+find(sub {
+ open(FH, $File::Find::name) or return;
+ my $text;
+ { local $/; $text = <FH>; }
+
+ $finder->find(\$text);
+
+ }, "."
+);
+
+if (@fails) {
+ ok(0, join "\n", @fails);
+} else {
+ ok(1, "no broken links found");
+}