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
|
# @(#) $Id$
use strict;
use warnings;
use Test::More tests => 3;
use Test::XML;
{
local $TODO = 'make order significant';
isnt_xml(
'<p>a<b/>c<d/>e</p>',
'<p>ace<b/><d/></p>',
'characters are not clustered',
);
isnt_xml(
'<p>a<b/>c<d/>e</p>',
'<p>a<d/>c<b/>e</p>',
'order is significant',
);
isnt_xml(
'<p><a/><b/></p>',
'<p><b/><a/></p>',
'order is significant when not mixed content',
);
}
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# indent-tabs-mode: nil
# End:
# vim: set ai et sw=4 syntax=perl :
|
