trunk/t/90xmllint.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 1;

my $xmllint=eval { `which xmllint` };

if (! $xmllint) {
        ok(1, "skip xmllint");
} else {
        my $ok = eval { `xmllint --noout html/*/*.xml html/*/*/*.xml html/*/*/*/*.xml 2>&1` };
        cmp_ok($ok, '==', '' , "xmllint $ok");
}

1	#!/usr/bin/perl
2
3	use strict;
4	use warnings;
5
6	use Test::More tests => 1;
7
8	my $xmllint=eval { `which xmllint` };
9
10	if (! $xmllint) {
11	ok(1, "skip xmllint");
12	} else {
13	my $ok = eval { `xmllint --noout html//.xml html///.xml html////*.xml 2>&1` };
14	cmp_ok($ok, '==', '' , "xmllint $ok");
15	}
16