blob: 84c561fa87e380ca63c6cf902e0f87192f5892c5 (
plain)
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 (system("command -v validate >/dev/null") != 0) {
plan skip_all => "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
|