Parent Directory
| 
Revision Log
| 
Patch
| revision 39 by dpavlin, Mon Jul 26 20:17:57 2004 UTC | revision 40 by dpavlin, Wed Oct 19 10:25:46 2005 UTC | |
|---|---|---|
| # | Line 5 use warnings; | Line 5 use warnings; |
| 5 | ||
| 6 | use Test::More tests => 1; | use Test::More tests => 1; |
| 7 | ||
| my $xmllint=eval { `which xmllint` }; | ||
| 8 | ||
| 9 | if (! $xmllint) { | SKIP: { |
| 10 | ok(1, "skip xmllint"); | my $xmllint=eval { `which xmllint` }; |
| 11 | } else { | |
| 12 | my $ok = eval { `xmllint --noout html/*/*.xml html/*/*/*.xml html/*/*/*/*.xml 2>&1` }; | skip "can't run xmllint", 1 unless ($xmllint); |
| 13 | cmp_ok($ok, '==', '' , "xmllint $ok"); | |
| 14 | cmp_ok(system(qq{xmllint --noout html/*/*.xml html/*/*/*.xml html/*/*/*/*.xml }), '==', 0, "xmllint"); | |
| 15 | } | } |
| 16 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |