'element 1',
'two' => 'element 2',
'three' => array('un'=>1, 'deux'=>2, 'troisc'=>"3")
);
$serassoc = serialize($assoc);
// on flingue meta a juste nos donnees
$GLOBALS['meta'] = array(
'zero' => serialize(0),
'zeroc' => serialize('0'),
'chaine' => serialize('une chaine'),
'assoc' => serialize($assoc),
'serie' => serialize(serialize($assoc))
);
// racine
$essais[] = array(0, 'metapack::zero');
$essais[] = array('0', 'metapack::zeroc');
$essais[] = array('une chaine', 'metapack::chaine');
$essais[] = array($assoc, 'metapack::assoc');
$essais[] = array(serialize($assoc), 'metapack::serie');
$essais[] = array(null, 'metapack::rien');
$essais[] = array('defaut', 'metapack::rien','defaut');
// chemins
$essais[] = array($assoc, 'metapack::assoc/');
$essais[] = array('element 1', 'metapack::assoc/one');
$essais[] = array(array('un'=>1, 'deux'=>2, 'troisc'=>"3"), 'metapack::assoc/three');
$essais[] = array(1, 'metapack::assoc/three/un');
$essais[] = array('3', 'metapack::assoc/three/troisc');
// racourcis
$essais[] = array($assoc, 'assoc/');
$essais[] = array('element 1', 'assoc/one');
$err = tester_fun('lire_config', $essais);
// retablissement des metas
$GLOBALS['meta']=$meta;
// si le tableau $err est pas vide ca va pas
if ($err) {
die ('lire_config metapack
' . join('', $err) . '
');
}
### ecrire_config ###
$essais = array();
$essais[] = array(true, 'metapack::test_cfg_zero', 0);
$essais[] = array(true, 'metapack::test_cfg_zeroc', '0');
$essais[] = array(true, 'metapack::test_cfg_chaine', 'une chaine');
$essais[] = array(true, 'metapack::test_cfg_assoc', $assoc);
$essais[] = array(true, 'metapack::test_cfg_serie', serialize($assoc));
// chemins
$essais[] = array(true, 'metapack::test_cfg_chemin/casier', $assoc);
$essais[] = array(true, 'metapack::test_cfg_chemin/casier/truc', 'trac');
$err = tester_fun('ecrire_config', $essais);
// si le tableau $err est pas vide ca va pas
if ($err) {
die ('ecrire_config metapack' . join('', $err) . '
');
}
### re lire_config ###
$essais = array();
$essais[] = array(0, 'metapack::test_cfg_zero');
$essais[] = array('0', 'metapack::test_cfg_zeroc');
$essais[] = array('une chaine', 'metapack::test_cfg_chaine');
$essais[] = array($assoc, 'metapack::test_cfg_assoc');
$essais[] = array(serialize($assoc), 'metapack::test_cfg_serie');
// chemins
$essais[] = array($assoc + array('truc'=>'trac'), 'metapack::test_cfg_chemin/casier');
$essais[] = array('trac', 'metapack::test_cfg_chemin/casier/truc');
$essais[] = array(1, 'metapack::test_cfg_chemin/casier/three/un');
// chemin pas la
$essais[] = array(null, 'metapack::test_cfg_chemin/casier/three/huit');
$err = tester_fun('lire_config', $essais);
// si le tableau $err est pas vide ca va pas
if ($err) {
die ('relecture ecrire_config metapack' . join('', $err) . '
');
}
### re effacer_config ###
$essais = array();
$essais[] = array(true, 'metapack::test_cfg_zero');
$essais[] = array(true, 'metapack::test_cfg_zeroc');
$essais[] = array(true, 'metapack::test_cfg_chaine');
$essais[] = array(true, 'metapack::test_cfg_assoc');
$essais[] = array(true, 'metapack::test_cfg_serie');
// chemins
// on enleve finement tout test_cfg_chemin : il ne doit rien rester
$essais[] = array(true, 'metapack::test_cfg_chemin/casier/three/huit'); // n'existe pas
$essais[] = array(true, 'metapack::test_cfg_chemin/casier/three/troisc');
$essais[] = array(true, 'metapack::test_cfg_chemin/casier/three/deux');
$essais[] = array(true, 'metapack::test_cfg_chemin/casier/three/un'); // supprime three
$essais[] = array(true, 'metapack::test_cfg_chemin/casier/one');
$essais[] = array(true, 'metapack::test_cfg_chemin/casier/two');
$essais[] = array(true, 'metapack::test_cfg_chemin/casier/truc'); // supprimer chemin/casier
$err = tester_fun('effacer_config', $essais);
// si le tableau $err est pas vide ca va pas
if ($err) {
die ('effacer_config metapack' . join('', $err) . '
');
}
### re lire_config ###
$essais = array();
$essais[] = array(null, 'metapack::test_cfg_zero');
$essais[] = array(null, 'metapack::test_cfg_zeroc');
$essais[] = array(null, 'metapack::test_cfg_chaine');
$essais[] = array(null, 'metapack::test_cfg_assoc');
$essais[] = array(null, 'metapack::test_cfg_serie');
$essais[] = array(null, 'metapack::test_cfg_chemin');
$err = tester_fun('lire_config', $essais);
// si le tableau $err est pas vide ca va pas
if ($err) {
die ('relecture effacer_config metapack' . join('', $err) . '
');
}
echo "OK";
?>