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.