trunk/t/90xmllint.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 1;


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

        skip "can't run xmllint", 1 unless ($xmllint);

        cmp_ok(system(qq{xmllint --noout html/*/*.xml html/*/*/*.xml html/*/*/*/*.xml }), '==', 0, "xmllint");
}

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