www/plugins/auto/cfg/tests/depot_metapack.php

   1 <?php
   2 if (!defined("_ECRIRE_INC_VERSION")) return;
   3
   4         // nom du test
   5         $test = 'cfg:depot_metapack';
   6
   7         // recherche test.inc qui nous ouvre au monde spip
   8         $deep = 2;
   9         $include = '../../tests/test.inc';
  10         while (!defined('_SPIP_TEST_INC') && $deep++ < 6) {
  11                 $include = '../' . $include;
  12                 @include $include;
  13         }
  14         if (!defined('_SPIP_TEST_INC')) {
  15                 die("Pas de $include");
  16         }
  17
  18
  19 ### lire_config ###
  20
  21         $meta = $GLOBALS['meta'];
  22
  23         // les bases de test
  24         $assoc = array(
  25                 'one' => 'element 1',
  26                 'two' => 'element 2',
  27                 'three' => array('un'=>1, 'deux'=>2, 'troisc'=>"3")
  28
  29         );
  30         $serassoc = serialize($assoc);
  31
  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))
  39         );
  40
  41         // racine
  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');
  49         // chemins
  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');
  55         // racourcis
  56         $essais[] = array($assoc, 'assoc/');
  57         $essais[] = array('element 1', 'assoc/one');
  58
  59         $err = tester_fun('lire_config', $essais);
  60
  61         // retablissement des metas
  62         $GLOBALS['meta']=$meta;
  63
  64         // si le tableau $err est pas vide ca va pas
  65         if ($err) {
  66                 die ('<b>lire_config metapack</b><dl>' . join('', $err) . '</dl>');
  67         }
  68
  69 ### ecrire_config ###
  70
  71         $essais = array();
  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));
  77         // chemins
  78         $essais[] = array(true, 'metapack::test_cfg_chemin/casier', $assoc);
  79         $essais[] = array(true, 'metapack::test_cfg_chemin/casier/truc', 'trac');
  80
  81         $err = tester_fun('ecrire_config', $essais);
  82
  83         // si le tableau $err est pas vide ca va pas
  84         if ($err) {
  85                 die ('<b>ecrire_config metapack</b><dl>' . join('', $err) . '</dl>');
  86         }
  87
  88 ### re lire_config ###
  89
  90         $essais = array();
  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');
  96         // chemins
  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');
 100         // chemin pas la
 101         $essais[] = array(null, 'metapack::test_cfg_chemin/casier/three/huit');
 102
 103         $err = tester_fun('lire_config', $essais);
 104
 105         // si le tableau $err est pas vide ca va pas
 106         if ($err) {
 107                 die ('<b>relecture ecrire_config metapack</b><dl>' . join('', $err) . '</dl>');
 108         }
 109
 110 ### re effacer_config ###
 111
 112         $essais = array();
 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');
 118         // chemins
 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
 127
 128         $err = tester_fun('effacer_config', $essais);
 129
 130         // si le tableau $err est pas vide ca va pas
 131         if ($err) {
 132                 die ('<b>effacer_config metapack</b><dl>' . join('', $err) . '</dl>');
 133         }
 134
 135
 136 ### re lire_config ###
 137
 138         $essais = array();
 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');
 145
 146         $err = tester_fun('lire_config', $essais);
 147
 148         // si le tableau $err est pas vide ca va pas
 149         if ($err) {
 150                 die ('<b>relecture effacer_config metapack</b><dl>' . join('', $err) . '</dl>');
 151         }
 152
 153
 154         echo "OK";
 155
 156 ?>