]> git.llucax.com Git - mecon/ai.git/blob - test/servicio.php
Se mejora un poco el orden por longitud de hijos.
[mecon/ai.git] / test / servicio.php
1 <?
2
3 require_once 'DB.php';
4 require_once '../sistema/local_lib/Servicio.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 $servicio = new Servicio(1);
16 if (PEAR::isError($err = $servicio->cargar($db))) {
17     var_dump($err);
18 } else {
19     var_dump($servicio);
20 }
21
22 // Obtengo hijos.
23 echo "\n\n\nObtengo Hijos:\n";
24 if (PEAR::isError($err = $servicio->cargarHijos($db))) {
25     var_dump($err);
26 } else {
27     var_dump($servicio->getHijos());
28 }
29
30 // Alta.
31 echo "\n\n\nAlta:\n";
32 $servicio->servicio  = 0;
33 $servicio->padre     = 1;
34 if (PEAR::isError($err = $servicio->guardar($db))) {
35     var_dump($err);
36 }
37 $err = $servicio->cargarHijos($db);
38 echo "Carga hijos: "; var_dump($err);
39 var_dump($servicio);
40
41 // Nuevo ID.
42 $id_nuevo = $servicio->servicio;
43
44 // ModificaciĆ³n.
45 echo "\n\n\nModificaciĆ³n:\n";
46 $servicio->nombre = 'Me cambiaron';
47 if (PEAR::isError($err = $servicio->guardar($db))) {
48     var_dump($err);
49 } else {
50     var_dump($servicio);
51 }
52
53 // Verifica.
54 echo "\n\n\nVerifica:\n";
55 $servicio->servicio = 1;
56 if (PEAR::isError($err = $servicio->cargar($db))) {
57     var_dump($err);
58 } elseif (PEAR::isError($err = $servicio->cargarHijos($db))) {
59     var_dump($err);
60 } else {
61     var_dump($servicio);
62 }
63
64 // Borra.
65 echo "\n\n\nBorra servicio $id_nuevo:\n";
66 $servicio->servicio = $id_nuevo;
67 $err = $servicio->borrar($db);
68 var_dump($err);
69
70 // Verifica obteniendo hijos.
71 echo "\n\n\nVerifica Hijos:\n";
72 $servicio->servicio = 1;
73 if (PEAR::isError($err = $servicio->cargarHijos($db))) {
74     var_dump($err);
75 } else {
76     var_dump($servicio->getHijos());
77 }
78
79 ?>