2 if (!defined("_ECRIRE_INC_VERSION")) return;
5 $test = 'cfg:depot_metapack';
7 // recherche test.inc qui nous ouvre au monde spip
9 $include = '../../tests/test.inc';
10 while (!defined('_SPIP_TEST_INC') && $deep++
< 6) {
11 $include = '../' . $include;
14 if (!defined('_SPIP_TEST_INC')) {
15 die("Pas de $include");
21 $meta = $GLOBALS['meta'];
27 'three' => array('un'=>1, 'deux'=>2, 'troisc'=>"3")
30 $serassoc = serialize($assoc);
32 // on flingue meta a juste nos donnees
33 $GLOBALS['meta'] = array(
34 'zero' => serialize(0),
35 'zeroc' => serialize('0'),
36 'chaine' => serialize('une chaine'),
37 'assoc' => serialize($assoc),
38 'serie' => serialize(serialize($assoc))
42 $essais[] = array(0, 'metapack::zero');
43 $essais[] = array('0', 'metapack::zeroc');
44 $essais[] = array('une chaine', 'metapack::chaine');
45 $essais[] = array($assoc, 'metapack::assoc');
46 $essais[] = array(serialize($assoc), 'metapack::serie');
47 $essais[] = array(null, 'metapack::rien');
48 $essais[] = array('defaut', 'metapack::rien','defaut');
50 $essais[] = array($assoc, 'metapack::assoc/');
51 $essais[] = array('element 1', 'metapack::assoc/one');
52 $essais[] = array(array('un'=>1, 'deux'=>2, 'troisc'=>"3"), 'metapack::assoc/three');
53 $essais[] = array(1, 'metapack::assoc/three/un');
54 $essais[] = array('3', 'metapack::assoc/three/troisc');
56 $essais[] = array($assoc, 'assoc/');
57 $essais[] = array('element 1', 'assoc/one');
59 $err = tester_fun('lire_config', $essais);
61 // retablissement des metas
62 $GLOBALS['meta']=$meta;
64 // si le tableau $err est pas vide ca va pas
66 die ('<b>lire_config metapack</b><dl>' . join('', $err) . '</dl>');
72 $essais[] = array(true, 'metapack::test_cfg_zero', 0);
73 $essais[] = array(true, 'metapack::test_cfg_zeroc', '0');
74 $essais[] = array(true, 'metapack::test_cfg_chaine', 'une chaine');
75 $essais[] = array(true, 'metapack::test_cfg_assoc', $assoc);
76 $essais[] = array(true, 'metapack::test_cfg_serie', serialize($assoc));
78 $essais[] = array(true, 'metapack::test_cfg_chemin/casier', $assoc);
79 $essais[] = array(true, 'metapack::test_cfg_chemin/casier/truc', 'trac');
81 $err = tester_fun('ecrire_config', $essais);
83 // si le tableau $err est pas vide ca va pas
85 die ('<b>ecrire_config metapack</b><dl>' . join('', $err) . '</dl>');
88 ### re lire_config ###
91 $essais[] = array(0, 'metapack::test_cfg_zero');
92 $essais[] = array('0', 'metapack::test_cfg_zeroc');
93 $essais[] = array('une chaine', 'metapack::test_cfg_chaine');
94 $essais[] = array($assoc, 'metapack::test_cfg_assoc');
95 $essais[] = array(serialize($assoc), 'metapack::test_cfg_serie');
97 $essais[] = array($assoc +
array('truc'=>'trac'), 'metapack::test_cfg_chemin/casier');
98 $essais[] = array('trac', 'metapack::test_cfg_chemin/casier/truc');
99 $essais[] = array(1, 'metapack::test_cfg_chemin/casier/three/un');
101 $essais[] = array(null, 'metapack::test_cfg_chemin/casier/three/huit');
103 $err = tester_fun('lire_config', $essais);
105 // si le tableau $err est pas vide ca va pas
107 die ('<b>relecture ecrire_config metapack</b><dl>' . join('', $err) . '</dl>');
110 ### re effacer_config ###
113 $essais[] = array(true, 'metapack::test_cfg_zero');
114 $essais[] = array(true, 'metapack::test_cfg_zeroc');
115 $essais[] = array(true, 'metapack::test_cfg_chaine');
116 $essais[] = array(true, 'metapack::test_cfg_assoc');
117 $essais[] = array(true, 'metapack::test_cfg_serie');
119 // on enleve finement tout test_cfg_chemin : il ne doit rien rester
120 $essais[] = array(true, 'metapack::test_cfg_chemin/casier/three/huit'); // n'existe pas
121 $essais[] = array(true, 'metapack::test_cfg_chemin/casier/three/troisc');
122 $essais[] = array(true, 'metapack::test_cfg_chemin/casier/three/deux');
123 $essais[] = array(true, 'metapack::test_cfg_chemin/casier/three/un'); // supprime three
124 $essais[] = array(true, 'metapack::test_cfg_chemin/casier/one');
125 $essais[] = array(true, 'metapack::test_cfg_chemin/casier/two');
126 $essais[] = array(true, 'metapack::test_cfg_chemin/casier/truc'); // supprimer chemin/casier
128 $err = tester_fun('effacer_config', $essais);
130 // si le tableau $err est pas vide ca va pas
132 die ('<b>effacer_config metapack</b><dl>' . join('', $err) . '</dl>');
136 ### re lire_config ###
139 $essais[] = array(null, 'metapack::test_cfg_zero');
140 $essais[] = array(null, 'metapack::test_cfg_zeroc');
141 $essais[] = array(null, 'metapack::test_cfg_chaine');
142 $essais[] = array(null, 'metapack::test_cfg_assoc');
143 $essais[] = array(null, 'metapack::test_cfg_serie');
144 $essais[] = array(null, 'metapack::test_cfg_chemin');
146 $err = tester_fun('lire_config', $essais);
148 // si le tableau $err est pas vide ca va pas
150 die ('<b>relecture effacer_config metapack</b><dl>' . join('', $err) . '</dl>');