gistfile1.sql

CREATE OR REPLACE PACKAGE BODY AEGPA_EP.mod_licencias_test IS
    v_numero_test           mod_licencias_test_results.numero_test%TYPE;
    v_nombre_funcion        mod_licencias_test_results.nombre_funcion%TYPE;
    v_descripcion_test      mod_licencias_test_results.descripcion_test%TYPE;
    v_resultado             mod_licencias_test_results.resultado%TYPE;
    v_resultado_esperado    mod_licencias_test_results.resultado_esperado%TYPE;
    v_test_ok               mod_licencias_test_results.test_ok%TYPE;
    
    PROCEDURE inicializar_test IS
    BEGIN
        v_numero_test := 0;
        DELETE FROM mod_licencias_test_results;
        COMMIT;
    END inicializar_test;
    
    PROCEDURE insertar_test IS
    BEGIN
        v_numero_test := v_numero_test + 1;
        v_test_ok := 'SI';
        
        IF v_resultado <> v_resultado_esperado THEN
            v_test_ok := 'NO';
        END IF;      
        
        INSERT INTO mod_licencias_test_results 
            (
            numero_test, 
            nombre_funcion, 
            descripcion_test, 
            resultado, 
            resultado_esperado,
            test_ok
            )
        VALUES 
            (
            v_numero_test, 
            v_nombre_funcion, 
            v_descripcion_test, 
            v_resultado, 
            v_resultado_esperado,
            v_test_ok
            );
        COMMIT;
    END;
    
    PROCEDURE cargar_datos_prueba IS
    BEGIN
        NULL;
    END cargar_datos_prueba; 
    
    PROCEDURE borrar_datos_prueba IS
    BEGIN
        NULL;
    END borrar_datos_prueba;   
            
    PROCEDURE unit_tests IS
    BEGIN
        cargar_datos_prueba;
        inicializar_test;
        -------------------------------------
        v_nombre_funcion := 'usuario_valido';
        -------------------------------------
        
        v_descripcion_test := 'Introducimos un usuario que no existe.';
        v_resultado := mod_licencias_validators.usuario_valido('XXXXXXXX');
        v_resultado_esperado := mod_licencias_util.get_error_msg('USUARIO_NO_REGISTRADO');
        insertar_test;
        
        v_descripcion_test := 'Introducimos un usuario no activo.';
        v_resultado := mod_licencias_validators.usuario_valido('XXXXXXXX');
        v_resultado_esperado := mod_licencias_util.get_error_msg('USUARIO_NO_ACTIVO');
        insertar_test;
        
        v_descripcion_test := 'Introducimos un usuario con la cuenta bloqueada.';
        v_resultado := mod_licencias_validators.usuario_valido('XXXXXXXX');
        v_resultado_esperado := mod_licencias_util.get_error_msg('CLAVE_BLOQUEADA');
        insertar_test;

        v_descripcion_test := 'Introducimos un usuario correcto.';
        v_resultado := mod_licencias_validators.usuario_valido('22734255C');
        v_resultado_esperado := NULL;
        insertar_test;  
              
        -----------------------------------------
        v_nombre_funcion := 'contrasenia_valida';
        -----------------------------------------
        
        v_descripcion_test := 'Introducimos una contraseña incorrecta en nuestro primer intento.';
        v_resultado := mod_licencias_validators.contrasenia_valida('22734255C', 'contraseña_mala');
        v_resultado_esperado := mod_licencias_util.get_error_msg('CLAVE_INCORRECTA', mod_licencias_validators.max_intentos_acceso - 1);
        insertar_test;  
        
        v_descripcion_test := 'Introducimos una contraseña incorrecta en nuestro último intento.';
        v_resultado := mod_licencias_validators.contrasenia_valida('22734255C', 'contraseña_mala');
        v_resultado_esperado := mod_licencias_util.get_error_msg('NUMERO_MAXIMO_INTENTOS');
        insertar_test;  
        
        v_descripcion_test := 'Introducimos un contraseña correcta.';
        v_resultado := mod_licencias_validators.contrasenia_valida('22734255C', 'oscarlc001');
        v_resultado_esperado := NULL;
        insertar_test;  
        
        borrar_datos_prueba;
    END unit_tests;    
      
END mod_licencias_test;
/