Agrego casos de prueba.

diff --git a/test/casos/caso_1_alta_proceso.php b/test/casos/caso_1_alta_proceso.php
new file mode 100755 (executable)
index 0000000..45d80a2
--- /dev/null
+++ b/test/casos/caso_1_alta_proceso.php
@@ -0,0 +1,64 @@
+#!/usr/bin/php4 -qC
+<?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80 foldmethod=marker:
+-------------------------------------------------------------------------------
+                             Ministerio de Economía
+                                    YATTA!
+-------------------------------------------------------------------------------
+This file is part of YATTA!.
+
+YATTA! is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free
+Software Foundation; either version 2 of the License, or (at your option)
+any later version.
+
+YATTA! is distributed in the hope that it will be useful, but WITHOUT
+ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+ 
+You should have received a copy of the GNU General Public License; if not,
+write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+Boston, MA  02111-1307  USA
+-------------------------------------------------------------------------------
+Creado: lun mar 29 16:19:10 ART 2004
+Autor:  Martin Marrese <mmarre@mecon.gov.ar>
+-------------------------------------------------------------------------------
+$Id$
+-------------------------------------------------------------------------------
+Descripción: Prueba de alta de nuevos procesos en la base. No se ejecutan los 
+scripts, solo se utilizan las librerias necesarias.
+-----------------------------------------------------------------------------*/
+
+//{{{Require Once
+require_once 'YATTA/Controlador.php';
+require_once 'DB.php';
+require_once 'PEAR.php';
+//}}}
+
+//{{{Creo una conexion mysql al servidor
+$db =& DB::connect('mysql://intranet:intranet@bal747f/yatta', true);
+if (DB::isError($db)) {
+     trigger_error($db->getMessage(), E_USER_ERROR);
+}
+//}}}
+
+//{{{Identificador del sistema al cual pertenecen los procesos.
+$id_sistema = 74 //Identificador de YATTA en bal747f
+//}}}
+
+//{{{Proceso con array de datos obligatorios solamente.
+$datos = array (
+            'script' => 'PATH DEL PROCESO',
+            'id_sistema' => $id_sistema,
+            'descripcion' => 'Proceso unicamente con datos obligatorios.',
+            'owner' => 'mmarre@mecon',
+        );
+$res = YATTA_Controlador::agregarProceso($db, $datos);
+if (PEAR::isError($res)) {
+    trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
+}
+//}}}
+
+//{{{Proceso con objeto ProcesoDB con datos obligatorios solamente.
+//}}}
+var_dump($res);
+?>

diff --git a/test/pruebas_anteriores/serialize.php b/test/pruebas_anteriores/serialize.php
new file mode 100755 (executable)
index 0000000..693d547
--- /dev/null
+++ b/test/pruebas_anteriores/serialize.php
@@ -0,0 +1,22 @@
+#!/usr/bin/php4 -qC
+<?php
+
+//Cargo los datos
+$res = array (
+        'script'      => 'Prueba con Controlador',
+        'id_sistema'  => 74,
+        'descripcion' => 'Prueba para probar los controladores',
+        'owner'       => 'mmarre@mecon',
+        'destinos'    => 'msklar@mecon',
+        'resultado'   => 'Prueba_Archivos.pdf',
+        'parametros'  => array (
+            'param1' => 'que se yo',
+            'param2' => array ('sarasa')
+            )
+        );
+var_dump($res);
+$res = serialize($res);
+var_dump ($res);
+$res = unserialize($res);
+var_dump($res);
+?>