X-Git-Url: https://git.llucax.com/mecon/ai.git/blobdiff_plain/2f4b4d674e677d26de736d30402fa9efd790d095..5d1175ef0a3555a5042a7ab07f0e67db544b4685:/test/grupo_secciones.php

diff --git a/test/grupo_secciones.php b/test/grupo_secciones.php
index b788713..d842a6d 100644
--- a/test/grupo_secciones.php
+++ b/test/grupo_secciones.php
@@ -3,33 +3,84 @@
 require_once 'DB.php';
 require_once '../sistema/local_lib/GrupoSecciones.php';
 
-$db =& DB::connect('mysql://intranet:intranet@bal747f/intranet');
+$db = DB::connect('mysql://intranet:intranet@bal747f/intranet');
 
 if (DB::isError($db)) {
     var_dump($db);
     exit;
 }
 
-$grupo =& new GrupoSecciones;
 
-$grupo->grupo = 3;
-$err =& $grupo->cargar($db);
+// Carga.
+echo "Cargas:\n";
+$grupo = new GrupoSecciones(1);
+$err   = $grupo->cargar($db);
 if (PEAR::isError($err)) {
     var_dump($err);
 } else {
     var_dump($grupo);
 }
 
-echo "\n\n\nAlta:\n";
+// Obtengo hijos.
+echo "\n\n\nObtengo Hijos:\n";
+$err = $grupo->cargarHijos($db);
+if (PEAR::isError($err)) {
+    var_dump($err);
+} else {
+    var_dump($grupo->getHijos());
+}
 
 // Alta.
-$grupo->grupo = 0;
+echo "\n\n\nAlta:\n";
+$grupo->grupo  = 0;
+$grupo->padre  = 1;
 $grupo->secciones = array(1, 4, 6, 8);
 $err = $grupo->guardar($db);
+if (PEAR::isError($err)) {
+    var_dump($err);
+}
+$err = $grupo->cargarHijos($db);
+echo "Carga hijos: "; var_dump($err);
+var_dump($grupo);
+
+// Nuevo ID.
+$id_nuevo = $grupo->grupo;
+
+// Modificación.
+echo "\n\n\nModificación:\n";
+$grupo->secciones = array(2, 3, 5, 11);
+$grupo->nombre = 'Me cambiaron';
+$err = $grupo->guardar($db);
 if (PEAR::isError($err)) {
     var_dump($err);
 } else {
+    var_dump($grupo);
+}
+
+// Verifica.
+echo "\n\n\nVerifica:\n";
+$grupo->grupo = 1;
+$err = $grupo->cargar($db);
+if (PEAR::isError($err)) {
+    var_dump($err);
+} else {
+    var_dump($grupo);
+}
+
+// Borra.
+echo "\n\n\nBorra grupo $id_nuevo:\n";
+$grupo->grupo = $id_nuevo;
+$err = $grupo->borrar($db);
+var_dump($err);
+
+// Verifica obteniendo hijos.
+echo "\n\n\nVerifica Hijos:\n";
+$grupo->grupo = 1;
+$err = $grupo->cargarHijos($db);
+if (PEAR::isError($err)) {
     var_dump($err);
+} else {
+    var_dump($grupo->getHijos());
 }
 
 ?>