2 if (!defined("_ECRIRE_INC_VERSION")) return;
5 $test = 'cfg:depot_tablepack';
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");
19 ### creation de la colonne cfg si absente ###
21 // creation de la colonne 'cfg' sur spip_auteurs si elle n'existe pas.
22 include_spip('base/abstract_sql');
23 $t = sql_showtable('spip_auteurs');
24 if (!isset($t['field']['cfg'])) {
25 sql_alter('TABLE spip_auteurs ADD COLUMN cfg TEXT DEFAULT \'\' NOT NULL');
28 ### creation de la colonne 'extra' si absente ###
30 // creation de la colonne 'cfg' sur spip_auteurs si elle n'existe pas.
31 include_spip('base/abstract_sql');
32 $t = sql_showtable('spip_rubriques');
33 if (!isset($t['field']['extra'])) {
34 sql_alter('TABLE spip_rubriques ADD COLUMN extra TEXT DEFAULT \'\' NOT NULL');
43 'three' => array('un'=>1, 'deux'=>2, 'troisc'=>"3")
46 $serassoc = serialize($assoc);
50 $essais[] = array(true, 'tablepack::~/test_cfg_zero', 0);
51 $essais[] = array(true, 'tablepack::~/test_cfg_zeroc', '0');
52 $essais[] = array(true, 'tablepack::~/test_cfg_chaine', 'une chaine');
53 $essais[] = array(true, 'tablepack::~/test_cfg_assoc', $assoc);
54 $essais[] = array(true, 'tablepack::~/test_cfg_serie', serialize($assoc));
56 $essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier', $assoc);
57 $essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier/truc', 'trac');
59 $id_rubrique = sql_getfetsel('id_rubrique', 'spip_rubriques', '', '', '', '0,1');
60 $essais[] = array(true, "tablepack::rubriques@extra:$id_rubrique/test_cfg_chemin/casier/truc", 'trac');
61 $essais[] = array(true, "tablepack::rubrique@extra:$id_rubrique/test_cfg_chemin/casier/chose", 'trac');
63 $err = tester_fun('ecrire_config', $essais);
65 // si le tableau $err est pas vide ca va pas
67 die ('<b>ecrire_config tablepack</b><dl>' . join('', $err) . '</dl>');
70 ### re lire_config ###
73 $essais[] = array(0, 'tablepack::~/test_cfg_zero');
74 $essais[] = array('0', 'tablepack::~/test_cfg_zeroc');
75 $essais[] = array('une chaine', 'tablepack::~/test_cfg_chaine');
76 $essais[] = array($assoc, 'tablepack::~/test_cfg_assoc');
77 $essais[] = array(serialize($assoc), 'tablepack::~/test_cfg_serie');
79 $essais[] = array($assoc +
array('truc'=>'trac'), 'tablepack::~/test_cfg_chemin/casier');
80 $essais[] = array('trac', 'tablepack::~/test_cfg_chemin/casier/truc');
81 $essais[] = array(1, 'tablepack::~/test_cfg_chemin/casier/three/un');
83 $essais[] = array(null, 'tablepack::~/test_cfg_chemin/casier/three/huit');
85 $essais[] = array('trac', "tablepack::rubriques@extra:$id_rubrique/test_cfg_chemin/casier/truc");
86 $essais[] = array('trac', "tablepack::rubrique@extra:$id_rubrique/test_cfg_chemin/casier/chose");
88 $err = tester_fun('lire_config', $essais);
90 // si le tableau $err est pas vide ca va pas
92 die ('<b>relecture ecrire_config tablepack</b><dl>' . join('', $err) . '</dl>');
95 ### re effacer_config ###
98 $essais[] = array(true, 'tablepack::~/test_cfg_zero');
99 $essais[] = array(true, 'tablepack::~/test_cfg_zeroc');
100 $essais[] = array(true, 'tablepack::~/test_cfg_chaine');
101 $essais[] = array(true, 'tablepack::~/test_cfg_assoc');
102 $essais[] = array(true, 'tablepack::~/test_cfg_serie');
104 // on enleve finement tout test_cfg_chemin : il ne doit rien rester
105 $essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier/three/huit'); // n'existe pas
106 $essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier/three/troisc');
107 $essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier/three/deux');
108 $essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier/three/un'); // supprime three
109 $essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier/one');
110 $essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier/two');
111 $essais[] = array(true, 'tablepack::~/test_cfg_chemin/casier/truc'); // supprimer chemin/casier
113 $essais[] = array(true, "tablepack::rubriques@extra:$id_rubrique/test_cfg_chemin/casier/truc");
114 $essais[] = array(true, "tablepack::rubrique@extra:$id_rubrique/test_cfg_chemin/casier/chose");
116 $err = tester_fun('effacer_config', $essais);
118 // si le tableau $err est pas vide ca va pas
120 die ('<b>effacer_config tablepack</b><dl>' . join('', $err) . '</dl>');
124 ### re lire_config ###
127 $essais[] = array(null, 'tablepack::~/test_cfg_zero');
128 $essais[] = array(null, 'tablepack::~/test_cfg_zeroc');
129 $essais[] = array(null, 'tablepack::~/test_cfg_chaine');
130 $essais[] = array(null, 'tablepack::~/test_cfg_assoc');
131 $essais[] = array(null, 'tablepack::~/test_cfg_serie');
132 $essais[] = array(null, 'tablepack::~/test_cfg_chemin');
134 $essais[] = array(null, "tablepack::rubriques@extra:$id_rubrique/test_cfg_chemin/casier/truc");
135 $essais[] = array(null, "tablepack::rubrique@extra:$id_rubrique/test_cfg_chemin/casier/chose");
136 $essais[] = array(null, "tablepack::rubriques@extra:$id_rubrique/test_cfg_chemin");
138 $err = tester_fun('lire_config', $essais);
140 // si le tableau $err est pas vide ca va pas
142 die ('<b>relecture effacer_config tablepack</b><dl>' . join('', $err) . '</dl>');