Se agregan testeos que me había olvidado de subir.

diff --git a/doc/uml.xmi b/doc/uml.xmi
index 5105f8eacde2de1c5494fbdf5ce676dd5d04bbf6..7152f37dd26369df659b4bcca9bbbf01ab7b7cec 100644 (file)
--- a/doc/uml.xmi
+++ b/doc/uml.xmi
@@ -30,7 +30,8 @@
     <UML:Operation stereotype="" package="" xmi.id="501" type="Servicio" abstract="0" documentation="" name="__clone" static="0" scope="200" />
     <UML:Attribute stereotype="" package="" xmi.id="428" value="0" type="int" abstract="0" documentation="ID del servicio." name="servicio" static="0" scope="200" />
     <UML:Attribute stereotype="" package="" xmi.id="452" value="0" type="int" abstract="0" documentation="" name="padre" static="0" scope="200" />
-    <UML:Attribute stereotype="" package="" xmi.id="467" value="array()" type="array" abstract="0" documentation="Servicios hijos." name="hijos" static="0" scope="202" />
+    <UML:Attribute stereotype="" package="" xmi.id="467" value="array()" type="array" abstract="0" documentation="Servicios hijos.
+x2c:get" name="hijos" static="0" scope="202" />
     <UML:Attribute stereotype="" package="" xmi.id="429" value="''" type="string" abstract="0" documentation="Nombre del servicio." name="nombre" static="0" scope="200" />
     <UML:Attribute stereotype="" package="" xmi.id="433" value="''" type="string" abstract="0" documentation="Descripción del servicio." name="descripcion" static="0" scope="200" />
     <UML:Attribute stereotype="" package="" xmi.id="430" value="null" type="HTML_Imagen" abstract="0" documentation="Ícono del servicio." name="icono" static="0" scope="200" />

diff --git a/test/servicio.php b/test/servicio.php
new file mode 100644 (file)
index 0000000..dc3a230
--- /dev/null
+++ b/test/servicio.php
@@ -0,0 +1,79 @@
+<?
+
+require_once 'DB.php';
+require_once '../sistema/local_lib/Servicio.php';
+
+$db = DB::connect('mysql://intranet:intranet@bal747f/intranet');
+
+if (DB::isError($db)) {
+    var_dump($db);
+    exit;
+}
+
+// Carga.
+echo "Carga id 1:\n";
+$servicio = new Servicio(1);
+if (PEAR::isError($err = $servicio->cargar($db))) {
+    var_dump($err);
+} else {
+    var_dump($servicio);
+}
+
+// Obtengo hijos.
+echo "\n\n\nObtengo Hijos:\n";
+if (PEAR::isError($err = $servicio->cargarHijos($db))) {
+    var_dump($err);
+} else {
+    var_dump($servicio->getHijos());
+}
+
+// Alta.
+echo "\n\n\nAlta:\n";
+$servicio->servicio  = 0;
+$servicio->padre     = 1;
+if (PEAR::isError($err = $servicio->guardar($db))) {
+    var_dump($err);
+}
+$err = $servicio->cargarHijos($db);
+echo "Carga hijos: "; var_dump($err);
+var_dump($servicio);
+
+// Nuevo ID.
+$id_nuevo = $servicio->servicio;
+
+// Modificación.
+echo "\n\n\nModificación:\n";
+$servicio->nombre = 'Me cambiaron';
+if (PEAR::isError($err = $servicio->guardar($db))) {
+    var_dump($err);
+} else {
+    var_dump($servicio);
+}
+
+// Verifica.
+echo "\n\n\nVerifica:\n";
+$servicio->servicio = 1;
+if (PEAR::isError($err = $servicio->cargar($db))) {
+    var_dump($err);
+} elseif (PEAR::isError($err = $servicio->cargarHijos($db))) {
+    var_dump($err);
+} else {
+    var_dump($servicio);
+}
+
+// Borra.
+echo "\n\n\nBorra servicio $id_nuevo:\n";
+$servicio->servicio = $id_nuevo;
+$err = $servicio->borrar($db);
+var_dump($err);
+
+// Verifica obteniendo hijos.
+echo "\n\n\nVerifica Hijos:\n";
+$servicio->servicio = 1;
+if (PEAR::isError($err = $servicio->cargarHijos($db))) {
+    var_dump($err);
+} else {
+    var_dump($servicio->getHijos());
+}
+
+?>

diff --git a/test/sistema.php b/test/sistema.php
new file mode 100644 (file)
index 0000000..8062fbc
--- /dev/null
+++ b/test/sistema.php
@@ -0,0 +1,62 @@
+<?
+
+require_once 'DB.php';
+require_once '../sistema/local_lib/Sistema.php';
+
+$db = DB::connect('mysql://intranet:intranet@bal747f/intranet');
+
+if (DB::isError($db)) {
+    var_dump($db);
+    exit;
+}
+
+// Carga.
+echo "Carga id 1:\n";
+$sistema = new Sistema(1);
+if (PEAR::isError($err = $sistema->cargar($db))) {
+    var_dump($err);
+} else {
+    var_dump($sistema);
+}
+
+// Alta.
+echo "\n\n\nAlta:\n";
+$sistema->sistema = 0;
+if (PEAR::isError($err = $sistema->guardar($db))) {
+    var_dump($err);
+} else {
+    var_dump($sistema);
+}
+
+// Modificación.
+echo "\n\n\nModificación:\n";
+$sistema->linkAyuda = 'Me cambiaron';
+if (PEAR::isError($err = $sistema->guardar($db))) {
+    var_dump($err);
+} else {
+    var_dump($sistema);
+}
+
+// Verifica.
+echo "\n\n\nVerifica:\n";
+if (PEAR::isError($err = $sistema->cargar($db))) {
+    var_dump($err);
+} else {
+    var_dump($sistema);
+}
+
+// Borra.
+echo "\n\n\nBorra sistema $id_nuevo:\n";
+$err = $sistema->borrar($db);
+var_dump($err);
+
+// Verifica obteniendo hijos.
+echo "\n\n\nVerifica:\n";
+$sistema->sistema = 1;
+if (PEAR::isError($err = $sistema->cargar($db))) {
+    var_dump($err);
+} else {
+    var_dump($sistema);
+}
+
+?>