# $res: HTTP::Response object # $tx: Test::XPath object $funny_name = 'ABC»DEF abc»def'; $tx->is('/result/entity/prop[@name="name"]/@value',
 $funny_name,
 "Got name '$funny_name'") or diag($res->content);