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	dpavlin	10	#!/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