Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 30 lines (25 sloc) 0.7 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
#!/usr/bin/perl
use warnings;
use strict;
use Test::More;

my @pages;

BEGIN {
@pages=qw(index features news plugins/map security);
if (! -x "/usr/bin/validate") {
plan skip_all => "/usr/bin/validate html validator not present";
}
else {
plan(tests => int @pages + 2);
}
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
Something went wrong with that request. Please try again.