From c5d8cdd9cdef5d842b02385b4ff4c77ff0481569 Mon Sep 17 00:00:00 2001
From: Leandro Lucarella <llucax@gmail.com>
Date: Fri, 27 Jun 2003 21:17:58 +0000
Subject: [PATCH] =?utf8?q?Se=20agregan=20testeos=20que=20me=20hab=C3=ADa?=
 =?utf8?q?=20olvidado=20de=20subir.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 doc/uml.xmi       |  3 +-
 test/servicio.php | 79 +++++++++++++++++++++++++++++++++++++++++++++++
 test/sistema.php  | 62 +++++++++++++++++++++++++++++++++++++
 3 files changed, 143 insertions(+), 1 deletion(-)
 create mode 100644 test/servicio.php
 create mode 100644 test/sistema.php

diff --git a/doc/uml.xmi b/doc/uml.xmi
index 5105f8e..7152f37 100644
--- 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
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
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);
+}
+
+?>
-- 
2.43.0