test/sistema.php

   1 <?
   2
   3 require_once 'DB.php';
   4 require_once '../sistema/local_lib/Sistema.php';
   5
   6 $db = DB::connect('mysql://intranet:intranet@bal747f/intranet');
   7
   8 if (DB::isError($db)) {
   9     var_dump($db);
  10     exit;
  11 }
  12
  13 // Carga.
  14 echo "Carga id 1:\n";
  15 $sistema = new Sistema(1);
  16 if (PEAR::isError($err = $sistema->cargar($db))) {
  17     var_dump($err);
  18 } else {
  19     var_dump($sistema);
  20 }
  21
  22 // Alta.
  23 echo "\n\n\nAlta:\n";
  24 $sistema->sistema = 0;
  25 if (PEAR::isError($err = $sistema->guardar($db))) {
  26     var_dump($err);
  27 } else {
  28     var_dump($sistema);
  29 }
  30
  31 // Modificación.
  32 echo "\n\n\nModificación:\n";
  33 $sistema->linkAyuda = 'Me cambiaron';
  34 if (PEAR::isError($err = $sistema->guardar($db))) {
  35     var_dump($err);
  36 } else {
  37     var_dump($sistema);
  38 }
  39
  40 // Verifica.
  41 echo "\n\n\nVerifica:\n";
  42 if (PEAR::isError($err = $sistema->cargar($db))) {
  43     var_dump($err);
  44 } else {
  45     var_dump($sistema);
  46 }
  47
  48 // Borra.
  49 echo "\n\n\nBorra sistema $id_nuevo:\n";
  50 $err = $sistema->borrar($db);
  51 var_dump($err);
  52
  53 // Verifica obteniendo hijos.
  54 echo "\n\n\nVerifica:\n";
  55 $sistema->sistema = 1;
  56 if (PEAR::isError($err = $sistema->cargar($db))) {
  57     var_dump($err);
  58 } else {
  59     var_dump($sistema);
  60 }
  61
  62 ?>