[t/hitomi/01-xml-parsing.t] made file run

I'm pretty sure it's never ever been in a runnable condition prior
to this. Wonder why.

lib/Hitomi.pm

@@ -0,0 +1,3 @@
+use v6;
+
+use Hitomi::XMLParser;

t/hitomi/01-xml-parsing.t

@@ -17,7 +17,16 @@ my @invalid-xml =
     '<a><b></a></b>',
 ;
 
+sub parse($text) {
+    my $succeeded = False;
+    try {
+        Hitomi::XMLParser.new($text).llist();
+        $succeeded = True;
+    }
+    $succeeded;
+}
+
 plan @valid-xml + @invalid-xml;
 
-ok  Hitomi::XML.parse($_), "$_ is valid"   for @valid-xml;
-nok Hitomi::XML.parse($_), "$_ is invalid" for @invalid-xml;
+ok  parse($_), "$_ is valid"   for @valid-xml;
+nok parse($_), "$_ is invalid" for @invalid-xml;