Add test for new parser (work in progress).

MANIFEST

@@ -77,6 +77,7 @@ t/filters/strip.t
 t/filters/subs.t
 t/filters/upper.t
 t/values/append.t
+t/values/append-libxml.t    
 t/values/bad_objects.t
 t/values/basic.t
 t/values/bom.t

t/values/append-libxml.t

@@ -19,12 +19,26 @@ $spec = q{<specification>
 
 $html = q{<div class="test">FOO</div>};
 
+use XML::LibXML;
+
+my $libxml_parser = XML::LibXML->new;
+
+my $doc = $libxml_parser->load_html(string => $html);
+
+# find element with class "test"
+for my $node ($doc->findnodes('//*[contains(concat(" ", normalize-space(@class), " "), " test ")]')) {
+    # append text
+    $node->appendText('BAR');
+}
+
+$out = $doc->toStringHTML;
+
 $flute = Template::Flute->new(template => $html,
                               specification => $spec,
                               values => {test => 'BAR'},
                              );
 
-$out = $flute->process;
+#$out = $flute->process;
 
 like ($out, qr%<div class="test">FOOBAR</div>%,
     "value with op=append");