#!/www/server/bin/php -qC
<?php

# Tests for xml.class

function match($xmldata, $expected, $name, $prefix = "", $p = array())
{
	$classname = $prefix ? ($prefix . "_xml") : "it_xml";
	$varname  = $prefix . "foo";
	$xmldata = "<root>$xmldata</root>";
	$xml = new $classname($xmldata, $p);

	is(
		preg_replace('/[#\s]+/', " ", 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]+/', " ", 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 &amp; y</foo>',
	'foo Object ( [val] => x & y ) ',
	'Character data with entities'
);

match(
	'<foo>&amp;amp; &lt;a&gt; &#38;amp; &#60;b&#62; &#x26;amp; &#x3C;c&#x3E; &uuml;</foo>',
	'foo Object ( [val] => &amp; <a> &amp; <b> &amp; <c> ü ) ',
	'Predecode illegal entities while keeping properly encoded ones',
);

match(
	'<foo>&amp;amp; &lt;a&gt; &#38;amp; &#60;b&#62; &#x26;amp; &#x3C;c&#x3E; &uuml;</foo>',
	utf8_encode('foo Object ( [val] => &amp; <a> &amp; <b> &amp; <c> ü ) '),
	'Predecode illegal entities while keeping properly encoded ones (UTF-8)',
	"",
	array('encoding' => "UTF-8"),
);


# 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>", 'prefix' => "test");
$x->set('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()",
);

?>