2006-05-26 10:24:36 +02:00
|
|
|
#!/usr/bin/perl
|
|
|
|
use warnings;
|
|
|
|
use strict;
|
|
|
|
use Test::More;
|
|
|
|
|
|
|
|
my @pages;
|
|
|
|
|
|
|
|
BEGIN {
|
2006-08-28 09:40:20 +02:00
|
|
|
@pages=qw(index todo features news plugins/map security);
|
2006-05-26 10:24:36 +02:00
|
|
|
if (! -x "/usr/bin/validate") {
|
|
|
|
plan skip_all => "/usr/bin/validate html validator not present";
|
|
|
|
}
|
|
|
|
else {
|
2006-09-10 00:50:27 +02:00
|
|
|
plan(tests => int @pages + 2);
|
2006-05-26 10:24:36 +02:00
|
|
|
}
|
|
|
|
use_ok("IkiWiki");
|
|
|
|
}
|
|
|
|
|
|
|
|
# Have to build the html pages first.
|
|
|
|
# Note that just building them like this doesn't exersise all the possible
|
|
|
|
# html that can be generated, in particular it misses some of the action
|
|
|
|
# links at the top, etc.
|
|
|
|
ok(system("make >/dev/null") == 0);
|
|
|
|
|
|
|
|
foreach my $page (@pages) {
|
|
|
|
print "# Validating $page\n";
|
|
|
|
ok(system("validate html/$page.html") == 0);
|
|
|
|
}
|
|
|
|
|
|
|
|
# TODO: validate form output html
|