t/tests/xml.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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;