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	dpavlin	10	#!/usr/bin/perl
2
3			use strict;
4			use warnings;
5
6			use Test::More tests => 1;
7
8
9	dpavlin	40	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	dpavlin	10	}
16