From 38de66122cc36d5f1d457760864d0931696ed06e Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Tue, 15 Sep 2015 16:38:40 +0100
Subject: stupidest possible libxml2 bindings?

---
 t/tests/xml.t | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 t/tests/xml.t

(limited to 't/tests/xml.t')

diff --git a/t/tests/xml.t b/t/tests/xml.t
new file mode 100644
index 0000000..0a147b4
--- /dev/null
+++ b/t/tests/xml.t
@@ -0,0 +1,19 @@
+# -*- mode: perl6 -*-
+use Test;
+use lib 't/lib';
+use XML::LibXML;
+
+my XML::LibXML $p .= new;
+my $d = $p.parse(q:to/XML/);
+<?xml version="1.0"?>
+<rootNode/>
+XML
+
+is(
+    $d.rootElement.name,
+    'rootNode',
+    'parsed ok',
+);
+
+done-testing;
+
-- 
cgit v1.2.3