use Test::More tests => 2;
use XML::LibXML ();
{
my $xml = <<'XML';
Hello world!
XML
my $parser = XML::LibXML->new;
my $doc = $parser->parse_string($xml);
my $result = $doc->findvalue('//lastName');
is( $result, "Hello world!", "No namespace" );
}
{
my $xml = <<'XML';
Hello world!
XML
my $parser = XML::LibXML->new;
my $doc = $parser->parse_string($xml);
my $result = $doc->findvalue('//lastName');
is( $result, "Hello world!", "Namespace" );
}
####
1..2
ok 1 - No namespace
not ok 2 - Namespace
# Failed test 'Namespace'
# in sdl2.pl at line 30.
# got: ''
# expected: 'Hello world!'
# Looks like you failed 1 test of 2.