';

mysql_connect('localhost', 'root', '');

$a='a\'a"a/a\aaa$a';
$_GET['id']=$a;

$Tests=array(
	'$In=In::getInstance();',
	'In::setCharset("utf-8");',
	'In::setThrowException(FALSE);',
	'$_GET[id] pour HTML' => array('$In->G->HTML->id', 'a'a"a/a\a<b>a</b>a$a'),
	'$_GET[id] pour SQL' => array('$In->G->SQL->id', 'a\\\'a\\"a/a\\\aaa$a'),
	'$_GET[id] pour URL' => array('$In->G->URL->id', 'a%27a%22a%2Fa%5Ca%3Cb%3Ea%3C%2Fb%3Ea%24a'),
	'$_GET[id] pour Base64' => array('$In->G->B64->id', 'YSdhImEvYVxhPGI+YTwvYj5hJGE='),
	'Local var pour HTML' => array('$In->HTML(\''.str_replace("'", "\\'", $a).'\')', 'a'a"a/a\a<b>a</b>a$a'),
	'$_GET[non_exist] pour RAW' => array('$In->G->RAW->non_exist', NULL),
	'In::setThrowException(TRUE);',
	'$_GET[non_exist] pour RAW avec Exception' => array('$In->G->RAW->non_exist', In::EX_UNDEFINED_VARIABLE),
	'Isset FALSE'=>array('$In->G->ISSET->nexistepas', FALSE),
	'Isset TRUE'=>array('$In->G->ISSET->id', TRUE),
	'Type inconnu avec Exception' => array('$In->R->HTML(1)', In::EX_UNDEFINED_TYPE),
	'Format inconnu avec Exception' => array('$In->TRUC(1)', In::EX_UNDEFINED_FORMAT),
	'class In2 extends In {
		public function register() {
			parent::register();
			static::registerType("R", "_T");
			static::registerFormat("HTML2", array(get_class($this), "HTML2"));
		}

		public static function HTML2($arg) {
			return "<".$arg.">";
		}
	}',
	'global $_T;',
	'$_T=array("AA"=>"aa", "BB"=>"bb");',
	'$In2=In2::getInstance();',
	'Classe Fille : Ajout du type R et du format HTML2'=>array('$In2->R->HTML2->AA', '<aa>'),
	'Classe Fille : Type R et format natif HTML'=>array('$In2->R->HTML->BB', 'bb'),
	'Classe Fille : Format sur variable locale'=>array('$In2->HTML2("machin")', '<machin>'),
	'$_POST["id"]="truc";',
	'Test Cache 1' => array('$In->P->RAW->id', 'truc'),
	'$_POST["id"]="machin";',
	'Test Cache 2' => array('$In->P->RAW->id', 'truc'),
	'Test Cache 3' => array('$In->P->HTML->id', 'machin'),
	'$_GET["tab"]=array("", "");',
	'Class Fille : Test tableau avec HTML' => array('$In2->G->HTML->tab', array('<u>', '<a>')),
	'Class Fille : Test tableau avec HTML2' => array('$In2->G->HTML2->tab', array('<>', '<>')),
);

$mem=array(memory_get_peak_usage(true), memory_get_usage(true));

function runTests($pTests) {
	$aNumTest=1;
	$nbOK=0;
	$nbKO=0;
	foreach($pTests as $aTestName=>$aTest) {
		if (is_numeric($aTestName)) {
			eval($aTest);
		} else {
			echo 'Test n°'.($aNumTest++).': '.$aTestName;
			//echo $In->$value[0][0]->$value[0][1]->$value[0][2];
			$isExceptionExpected=(is_numeric($aTest[1]));
			try {
				//var_dump($aTest[0]);
				eval('$aResult = '.$aTest[0].';');
				if (!$isExceptionExpected) {
					if (assert($aResult === $aTest[1])) {
						echo ' : OK';
						$nbOK++;
					} else {
						echo ' : KO : '.htmlspecialchars($aTest[1]).'] expected. ['.htmlspecialchars($aResult).'] obtained';
						$nbKO++;
					}
				} else {
					echo ' : KO : Exception '.htmlspecialchars($aTest[1]).' expected';
					$nbKO++;
				}
			} catch (Exception $ex) {
				if ($isExceptionExpected) {
					if (assert($ex->getCode() === $aTest[1])) {
						echo ' : OK';
						$nbOK++;
					} else {
						echo ' : KO : '.htmlspecialchars($aTest[1]).'] expected. ['.htmlspecialchars($ex->getCode()).'] obtained';
						$nbKO++;
					}
				} else {
					echo ' : KO : '.$ex->getMessage().'
['.htmlspecialchars($aTest[1]).'] expected. ['.htmlspecialchars($aResult).'] obtained';
					$nbKO++;
				}
			}
			echo '
';
		}
	}
	echo 'Nombre de tests OK : '.$nbOK.'
';
	echo 'Nombre de tests KO : '.$nbKO.'
';
	echo 'Dump pour empreinte mémoire :
';
	ob_start();
		var_dump($In);
		var_dump($In2);
	$out=ob_get_contents();
	ob_end_clean();
	echo htmlentities($out);
}

runTests($Tests);

echo 'Memoire allouée max : '.(memory_get_peak_usage(true)-$mem[0]).' octets
';
echo 'Memoire allouée : '.(memory_get_usage(true)-$mem[1]).' octets
';

******/
?>