Agregar test unitario de y_respuesta

Author: jtsoya539

test/database/install.sql

@@ -50,6 +50,7 @@ prompt Creando tests de types...
 prompt -----------------------------------
 prompt
 @@types/test_y_dato.pck
+@@types/test_y_respuesta.pck
 
 prompt
 prompt Creando tests de paquetes...

test/database/types/test_y_respuesta.pck

@@ -0,0 +1,34 @@
+CREATE OR REPLACE PACKAGE test_y_respuesta IS
+
+  --%suite(Tests unitarios del type y_respuesta)
+  --%tags(type)
+
+  --%test()
+  PROCEDURE parse_json_generico;
+
+END;
+/
+CREATE OR REPLACE PACKAGE BODY test_y_respuesta IS
+
+  PROCEDURE parse_json_generico IS
+    l_respuesta y_respuesta;
+    l_error     y_error;
+    l_resultado y_objeto;
+  BEGIN
+    -- Arrange
+    l_respuesta       := NEW y_respuesta();
+    l_error           := NEW y_error();
+    l_error.id_error  := '0001';
+    l_error.mensaje   := 'Este es un mensaje';
+    l_respuesta.datos := l_error;
+    --
+    k_sistema.p_inicializar_cola;
+    k_sistema.p_encolar('Y_ERROR');
+    -- Act
+    l_resultado := y_respuesta.parse_json(l_respuesta.to_json);
+    -- Assert
+    ut.expect(l_resultado.to_json).to_equal(l_respuesta.to_json);
+  END;
+
+END;
+/

test/database/uninstall.sql

@@ -78,6 +78,7 @@ prompt Borrando tests de types...
 prompt -----------------------------------
 prompt
 drop package test_y_dato;
+drop package test_y_respuesta;
 
 prompt
 prompt Vaciando papelera de reciclaje...