1#!/usr/bin/perl 2 3use strict; 4use warnings; 5use Test::More tests => 3; 6 7BEGIN { use_ok 'XML::XPath' } 8 9my $path = XML::XPath->new(ioref => \*DATA); 10 11$path->createNode("/child::foo/child::bar/child::baz"); 12 13# 14# test unabbreviated syntax 15# 16$path->setNodeText("/child::foo/child::bar/child::baz/attribute::id", "id1"); 17my $set = $path->find("/foo/bar/baz"); 18my @nodelist = $set->get_nodelist; 19ok($nodelist[0]->toString =~ /id="id1"/); 20 21# 22# test abbreviated syntax 23# 24$path->setNodeText("/foo/bar/baz/\@id", "id2"); 25$set = $path->find("/foo/bar/baz"); 26@nodelist = $set->get_nodelist; 27ok($nodelist[0]->toString =~ /id="id2"/); 28 29 30__DATA__ 31<?xml version="1.0" ?> 32<instanceData> 33</instanceData> 34