Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 9th, 2012  |  syntax: None  |  size: 3.95 KB  |  hits: 17  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. CREATE OR REPLACE PACKAGE BODY AEGPA_EP.mod_licencias_test IS
  2.     v_numero_test           mod_licencias_test_results.numero_test%TYPE;
  3.     v_nombre_funcion        mod_licencias_test_results.nombre_funcion%TYPE;
  4.     v_descripcion_test      mod_licencias_test_results.descripcion_test%TYPE;
  5.     v_resultado             mod_licencias_test_results.resultado%TYPE;
  6.     v_resultado_esperado    mod_licencias_test_results.resultado_esperado%TYPE;
  7.     v_test_ok               mod_licencias_test_results.test_ok%TYPE;
  8.    
  9.     PROCEDURE inicializar_test IS
  10.     BEGIN
  11.         v_numero_test := 0;
  12.         DELETE FROM mod_licencias_test_results;
  13.         COMMIT;
  14.     END inicializar_test;
  15.    
  16.     PROCEDURE insertar_test IS
  17.     BEGIN
  18.         v_numero_test := v_numero_test + 1;
  19.         v_test_ok := 'SI';
  20.        
  21.         IF v_resultado <> v_resultado_esperado THEN
  22.             v_test_ok := 'NO';
  23.         END IF;      
  24.        
  25.         INSERT INTO mod_licencias_test_results
  26.             (
  27.             numero_test,
  28.             nombre_funcion,
  29.             descripcion_test,
  30.             resultado,
  31.             resultado_esperado,
  32.             test_ok
  33.             )
  34.         VALUES
  35.             (
  36.             v_numero_test,
  37.             v_nombre_funcion,
  38.             v_descripcion_test,
  39.             v_resultado,
  40.             v_resultado_esperado,
  41.             v_test_ok
  42.             );
  43.         COMMIT;
  44.     END;
  45.    
  46.     PROCEDURE cargar_datos_prueba IS
  47.     BEGIN
  48.         NULL;
  49.     END cargar_datos_prueba;
  50.    
  51.     PROCEDURE borrar_datos_prueba IS
  52.     BEGIN
  53.         NULL;
  54.     END borrar_datos_prueba;  
  55.            
  56.     PROCEDURE unit_tests IS
  57.     BEGIN
  58.         cargar_datos_prueba;
  59.         inicializar_test;
  60.         -------------------------------------
  61.         v_nombre_funcion := 'usuario_valido';
  62.         -------------------------------------
  63.        
  64.         v_descripcion_test := 'Introducimos un usuario que no existe.';
  65.         v_resultado := mod_licencias_validators.usuario_valido('XXXXXXXX');
  66.         v_resultado_esperado := mod_licencias_util.get_error_msg('USUARIO_NO_REGISTRADO');
  67.         insertar_test;
  68.        
  69.         v_descripcion_test := 'Introducimos un usuario no activo.';
  70.         v_resultado := mod_licencias_validators.usuario_valido('XXXXXXXX');
  71.         v_resultado_esperado := mod_licencias_util.get_error_msg('USUARIO_NO_ACTIVO');
  72.         insertar_test;
  73.        
  74.         v_descripcion_test := 'Introducimos un usuario con la cuenta bloqueada.';
  75.         v_resultado := mod_licencias_validators.usuario_valido('XXXXXXXX');
  76.         v_resultado_esperado := mod_licencias_util.get_error_msg('CLAVE_BLOQUEADA');
  77.         insertar_test;
  78.  
  79.         v_descripcion_test := 'Introducimos un usuario correcto.';
  80.         v_resultado := mod_licencias_validators.usuario_valido('22734255C');
  81.         v_resultado_esperado := NULL;
  82.         insertar_test;  
  83.              
  84.         -----------------------------------------
  85.         v_nombre_funcion := 'contrasenia_valida';
  86.         -----------------------------------------
  87.        
  88.         v_descripcion_test := 'Introducimos una contraseña incorrecta en nuestro primer intento.';
  89.         v_resultado := mod_licencias_validators.contrasenia_valida('22734255C', 'contraseña_mala');
  90.         v_resultado_esperado := mod_licencias_util.get_error_msg('CLAVE_INCORRECTA', mod_licencias_validators.max_intentos_acceso - 1);
  91.         insertar_test;  
  92.        
  93.         v_descripcion_test := 'Introducimos una contraseña incorrecta en nuestro último intento.';
  94.         v_resultado := mod_licencias_validators.contrasenia_valida('22734255C', 'contraseña_mala');
  95.         v_resultado_esperado := mod_licencias_util.get_error_msg('NUMERO_MAXIMO_INTENTOS');
  96.         insertar_test;  
  97.        
  98.         v_descripcion_test := 'Introducimos un contraseña correcta.';
  99.         v_resultado := mod_licencias_validators.contrasenia_valida('22734255C', 'oscarlc001');
  100.         v_resultado_esperado := NULL;
  101.         insertar_test;  
  102.        
  103.         borrar_datos_prueba;
  104.     END unit_tests;    
  105.      
  106. END mod_licencias_test;
  107. /
create a new version of this paste RAW Paste Data