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