1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
use strict;
use warnings;
use Test::Builder::Tester tests=>5;
use Test::XML::Simple;
my $xml = <<EOS;
<CATALOG>
<CD>
<TITLE>Sacred Love</TITLE>
<ARTIST>Sting</ARTIST>
<COUNTRY>USA</COUNTRY>
<COMPANY>A&M</COMPANY>
<PRICE>12.99</PRICE>
<YEAR>2003</YEAR>
</CD>
<CD TITLE="Sacred Love" ARTIST="Sting" COUNTRY="USA" COMPANY="A&M" PRICE="12.99" YEAR="2003" />
</CATALOG>
EOS
test_out('ok 1 - good node');
xml_like($xml, "//ARTIST", qr/st/i, "good node");
test_test('node match');
test_out('ok 1 - full path');
xml_like($xml, "/CATALOG/CD/ARTIST", qr/ing/, "full path");
test_test('full path match');
test_out('ok 1 - path (with attribute)');
xml_like( $xml, '/CATALOG/CD/@PRICE', qr/^12\.99$/, 'path (with attribute)' );
test_test('path (with attribute) match');
test_out('not ok 1 - good node - no match in tag contents (including CDATA)');
test_err(qq(# Failed test 'good node - no match in tag contents (including CDATA)'
# at t/06like.t line 36.) );
xml_like($xml, "//ARTIST", qr/Weird Al/, "good node");
test_test('bad node match');
test_out('not ok 1 - full path - no match in tag contents (including CDATA)');
test_err(qq(# Failed test 'full path - no match in tag contents (including CDATA)'
# at t/06like.t line 42.) );
xml_like($xml, "/CATALOG/CD/ARTIST", qr/Weird Al/, "full path");
test_test('bad full path match');
|
