Se agrega un campo para indicar si el sistema está hecho en EmbPerl.

[mecon/ai.git] / test / grupo_secciones.php

diff --git a/test/grupo_secciones.php b/test/grupo_secciones.php
index b7887131a8ebeb1820b60ba336a03246307cfcaf..d842a6d71fea071df5bd0dd13741d16c07b33713 100644 (file)
--- 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());
 }
 
 ?>