modify to skip tests if the neccessary perl modules are not available

1 files changed, 13 insertions, 2 deletions

diff --git a/t/htmlbalance.t b/t/htmlbalance.t
index cd124e473..783ed9841 100755
--- a/t/htmlbalance.t
+++ b/t/htmlbalance.t
@@ -1,9 +1,20 @@
 #!/usr/bin/perl
 use warnings;
 use strict;
-use Test::More tests => 7;
 
-BEGIN { use_ok("IkiWiki::Plugin::htmlbalance"); }
+BEGIN {
+	eval q{
+		use HTML::TreeBuilder;
+		use XML::Atom::Util qw(encode_xml);
+	};
+	if ($@) {
+		eval q{use Test::More skip_all => "HTML::TreeBuilder or XML::Atom::Util not available"};
+	}
+	else {
+		eval q{use Test::More tests => 7};
+	}
+	use_ok("IkiWiki::Plugin::htmlbalance");
+}
 
 is(IkiWiki::Plugin::htmlbalance::sanitize(content => "<br></br>"), "<br />");
 is(IkiWiki::Plugin::htmlbalance::sanitize(content => "<div><p b=\"c\">hello world</div>"), "<div><p b=\"c\">hello world</p></div>");