test/mandoc.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;

use Test::More tests => 3;

SKIP: {
	qx{mandoc -V};

	if ($? != 0) {
		diag('mandoc not installed, test skipped. This is NOT fatal.');
		skip('mandoc not installed', 3);
	}

	for my $file ('feh', 'feh-cam', 'gen-cam-menu') {
		qx{mandoc -Tlint man/${file}.1};
		is($?, 0, "${file}.1: Valid mdoc syntax");
	}
}