'element 1',
'two' => 'element 2',
'three' => array('un'=>1, 'deux'=>2, 'troisc'=>"3")
);
$serassoc = serialize($assoc);
$essais = array();
$essais[] = array(true, 'tablepack::~/test_cfg_zero', 0);
$essais[] = array(true, 'tablepack::~/test_cfg_zeroc', '0');
$essais[] = array(true, 'tablepack::~/test_cfg_chaine', 'une chaine');
$essais[] = array(true, 'tablepack::~/test_cfg_assoc', $assoc);
$essais[] = array(true, 'tablepack::~/test_cfg_serie', serialize($assoc));
// chemins
$essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier', $assoc);
$essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier/truc', 'trac');
// dans rubriques
$id_rubrique = sql_getfetsel('id_rubrique', 'spip_rubriques', '', '', '', '0,1');
$essais[] = array(true, "tablepack::rubriques@extra:$id_rubrique/test_cfg_chemin/casier/truc", 'trac');
$essais[] = array(true, "tablepack::rubrique@extra:$id_rubrique/test_cfg_chemin/casier/chose", 'trac');
$err = tester_fun('ecrire_config', $essais);
// si le tableau $err est pas vide ca va pas
if ($err) {
die ('ecrire_config tablepack' . join('', $err) . '
');
}
### re lire_config ###
$essais = array();
$essais[] = array(0, 'tablepack::~/test_cfg_zero');
$essais[] = array('0', 'tablepack::~/test_cfg_zeroc');
$essais[] = array('une chaine', 'tablepack::~/test_cfg_chaine');
$essais[] = array($assoc, 'tablepack::~/test_cfg_assoc');
$essais[] = array(serialize($assoc), 'tablepack::~/test_cfg_serie');
// chemins
$essais[] = array($assoc + array('truc'=>'trac'), 'tablepack::~/test_cfg_chemin/casier');
$essais[] = array('trac', 'tablepack::~/test_cfg_chemin/casier/truc');
$essais[] = array(1, 'tablepack::~/test_cfg_chemin/casier/three/un');
// chemin pas la
$essais[] = array(null, 'tablepack::~/test_cfg_chemin/casier/three/huit');
// dans rubrique
$essais[] = array('trac', "tablepack::rubriques@extra:$id_rubrique/test_cfg_chemin/casier/truc");
$essais[] = array('trac', "tablepack::rubrique@extra:$id_rubrique/test_cfg_chemin/casier/chose");
$err = tester_fun('lire_config', $essais);
// si le tableau $err est pas vide ca va pas
if ($err) {
die ('relecture ecrire_config tablepack' . join('', $err) . '
');
}
### re effacer_config ###
$essais = array();
$essais[] = array(true, 'tablepack::~/test_cfg_zero');
$essais[] = array(true, 'tablepack::~/test_cfg_zeroc');
$essais[] = array(true, 'tablepack::~/test_cfg_chaine');
$essais[] = array(true, 'tablepack::~/test_cfg_assoc');
$essais[] = array(true, 'tablepack::~/test_cfg_serie');
// chemins
// on enleve finement tout test_cfg_chemin : il ne doit rien rester
$essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier/three/huit'); // n'existe pas
$essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier/three/troisc');
$essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier/three/deux');
$essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier/three/un'); // supprime three
$essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier/one');
$essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier/two');
$essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier/truc'); // supprimer chemin/casier
// dans rubrique
$essais[] = array(true, "tablepack::rubriques@extra:$id_rubrique/test_cfg_chemin/casier/truc");
$essais[] = array(true, "tablepack::rubrique@extra:$id_rubrique/test_cfg_chemin/casier/chose");
$err = tester_fun('effacer_config', $essais);
// si le tableau $err est pas vide ca va pas
if ($err) {
die ('effacer_config tablepack' . join('', $err) . '
');
}
### re lire_config ###
$essais = array();
$essais[] = array(null, 'tablepack::~/test_cfg_zero');
$essais[] = array(null, 'tablepack::~/test_cfg_zeroc');
$essais[] = array(null, 'tablepack::~/test_cfg_chaine');
$essais[] = array(null, 'tablepack::~/test_cfg_assoc');
$essais[] = array(null, 'tablepack::~/test_cfg_serie');
$essais[] = array(null, 'tablepack::~/test_cfg_chemin');
// dans rubrique
$essais[] = array(null, "tablepack::rubriques@extra:$id_rubrique/test_cfg_chemin/casier/truc");
$essais[] = array(null, "tablepack::rubrique@extra:$id_rubrique/test_cfg_chemin/casier/chose");
$essais[] = array(null, "tablepack::rubriques@extra:$id_rubrique/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 tablepack' . join('', $err) . '
');
}
echo "OK";
?>