### ----------------------------------------------------
### -- XML
### -- Licenses: Artistic-2.0
### -- Authors: Timothy Totten
### -- File: t/example.rakutest
### ----------------------------------------------------
use Test;

use XML;

plan 4;

my $xml = from-xml-file($*PROGRAM.sibling('example.xml'));

is $xml[1]<en> ~ ' ' ~ $xml[1][0], 'hello world', 'first get';
is $xml[3][5][0], 'Maybe', 'second get';

$xml[3].append('item', 'Never mind');

is $xml[3][9], '<item>Never mind</item>', 'append';

ok from-xml-stream($*PROGRAM.sibling('example.xml').open), 'xml from IO::Handle';

# vim: expandtab shiftwidth=4


