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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
#!/www/server/bin/php -qC
<?php
# Tests for xml.class
function match($xmldata, $expected, $name, $prefix = "", $p = array())
{
$classname = ($prefix ?: "it") . "_xml";
$varname = $prefix . "foo";
$xmldata = "<root>$xmldata</root>";
$xml = new $classname($xmldata, $p);
$mod_utf8 = $p['encoding'] != "iso-8859-1" ? "u" : "";
is(
preg_replace('/[#\s]+/' . $mod_utf8, " ", print_r($xml->$varname, true)),
$expected,
"$name (string)"
);
$tmpfile = tmpfile();
fwrite($tmpfile, $xmldata);
rewind($tmpfile);
$xml = new $classname($tmpfile, $p);
fclose($tmpfile);
is(
preg_replace('/[#\s]+/' . $mod_utf8, " ", print_r($xml->$varname, true)),
$expected,
"$name (file)"
);
}
match(
'<foo />',
'foo Object ( ) ',
'empty tag'
);
match(
'<foo /><foo />',
'Array ( [0] => foo Object ( ) [1] => foo Object ( ) ) ',
'multiple empty tags converted to array'
);
match(
'<foo title="Zürich">Stüssihofstadt</foo>',
'foo Object ( [attr] => Array ( [title] => Zürich ) [val] => Stüssihofstadt ) ',
'simple tag with latin1 content and attribute'
);
match(
'<foo><ns:a.b.-c ns2:d.e-f="value" /></foo>',
'foo Object ( [a_b__c] => a_b__c Object ( [attr] => Array ( [d_e_f] => value ) ) ) ',
'Tags and attributes with name space and special characters'
);
match(
'<foo>x & y</foo>',
'foo Object ( [val] => x & y ) ',
'Character data with entities'
);
match(
'<foo>x ü y</foo>',
utf8_decode('foo Object ( [val] => x ü y ) '),
'Manual encoding override',
"",
array('encoding' => "iso-8859-1")
);
match(
'<foo>&amp; <a> &amp; <b> &amp; <c> ü</foo>',
'foo Object ( [val] => & <a> & <b> & <c> ü ) ',
'Predecode illegal entities while keeping properly encoded ones'
);
match(
'<foo>&amp; <a> &amp; <b> &amp; <c> ü</foo>',
utf8_decode('foo Object ( [val] => & <a> & <b> & <c> ü ) '),
'Predecode illegal entities while keeping properly encoded ones (iso-8859-1)',
"",
array('encoding' => "iso-8859-1")
);
match(
"<foo>a\x05b</foo>",
'foo Object ( [val] => a b ) ',
'Illegal latin 1 character',
"",
array('encoding' => "iso-8859-1")
);
# Test inheritance
class my_xml extends it_xml
{
function my_xml($xmldata)
{
parent::it_xml($xmldata);
# Code which should be executed in root and only there
$this->qux = new it_xml;
$this->qux->val = "qux";
if (is_object($this->myfoo))
$this->myfoo->inheritbaseclass = is_a($this->myfoo, "my_xml");
}
}
match(
'<myfoo />',
'myfoo Object ( [inheritbaseclass] => ) ',
'Inheritance and constructor (critical for e.g. tel_xmlentry)',
'my'
);
$x = new foo("<foo></foo>", array('prefix' => "test"));
$x->set(array('gna' => 42, 'bar' => array('baz' => array("qux", "quux"))));
match(
$x->to_xml(),
'foo Object ( [gna] => gna Object ( [val] => 42 ) [bar] => bar Object ( [baz] => Array ( [0] => baz Object ( [val] => qux ) [1] => baz Object ( [val] => quux ) ) ) ) ',
"Method set()"
);
?>
|