romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
03e4452dba46d9f3babd9a3e7cf8e2c17e6e329a
foxbin2prg/TESTS/ut__foxbin2prg__c_foxbin2prg__EvaluarConfiguracion.prg
fdbozzo 03e4452dba Changeset: 237 fdbozzo - 07/05/2014 20:47:21: 
- Agregado soporte de evaluación de propiedades desde archivo externo (props_*.txt)
- Agregado soporte de evaluación de propiedades por clase
- La propiedad Picture de una clase form se pierde y no muestra la imagen. No ocurre con la propiedad Picture de los controles (Fidel Charny)
- Algunas opciones del optiongroup pierden el width cuando se subclasan de una clase con autosize=.T. (Miguel Duran)
2014-05-13 21:25:27 +02:00

2170 lines
61 KiB
Plaintext
Raw Blame History

DEFINE CLASS ut__foxbin2prg__c_foxbin2prg__EvaluarConfiguracion AS FxuTestCase OF FxuTestCase.prg
#IF .F.
LOCAL THIS AS ut__foxbin2prg__c_foxbin2prg__EvaluarConfiguracion OF ut__foxbin2prg__c_foxbin2prg__EvaluarConfiguracion.PRG
#ENDIF
#DEFINE CR_LF CHR(13) + CHR(10)
#DEFINE C_CR CHR(13)
#DEFINE C_LF CHR(10)
#DEFINE C_TAB CHR(9)
ioFB2P = NULL
*******************************************************************************************************************************************
FUNCTION SETUP
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
*LOCAL loFB2P AS c_conversor_base OF "FOXBIN2PRG.PRG"
SET PROCEDURE TO 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG', 'FOXBIN2PRG.PRG'
oFXU_LIB = CREATEOBJECT('CL_FXU_CONFIG')
oFXU_LIB.setup_comun()
THIS.ioFB2P = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
*loFB2P = THIS.ioFB2P
*loFB2P.l_Test = .F.
ERASE ('TESTS\DATOS_TEST\foxbin2prg.cfg')
ERASE ('TESTS\DATOS_TEST\foxbin2prg.cfg.bak')
ERASE ('TESTS\DATOS_TEST\foxbin2prg.cfg.1.bak')
ERASE ('TESTS\DATOS_TEST\foxbin2prg.cfg.2.bak')
ENDFUNC
*******************************************************************************************************************************************
FUNCTION TearDown
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
THIS.ioFB2P = NULL
IF VARTYPE(oFXU_LIB) = "O"
oFXU_LIB.teardown_comun()
oFXU_LIB = NULL
ENDIF
RELEASE PROCEDURE 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG', 'FOXBIN2PRG.PRG'
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Evaluate_results
LPARAMETERS toEx AS EXCEPTION, tnCodError_Esperado, tcSeteo, teValorEsperado, teValor
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
IF PCOUNT() = 0
THIS.messageout( "* Support method, not a valid test." )
RETURN .T.
ENDIF
IF ISNULL(toEx)
*-- Visualizaci<63>n de valores
LOCAL loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG"
loFB2P = THIS.ioFB2P
THIS.messageout( LOWER(PROGRAM(PROGRAM(-1)-1)) )
THIS.messageout( '.' )
THIS.messageout( 'Archivo ' + loFB2P.c_Foxbin2prg_ConfigFile + IIF(FILE(loFB2P.c_Foxbin2prg_ConfigFile),': EXISTE', ': NO EXISTE') )
THIS.messageout( TRANSFORM(tcSeteo) )
THIS.messageout( 'Valor esperado: ' + TRANSFORM(teValorEsperado) )
THIS.messageout( 'Valor: ' + TRANSFORM(teValor) )
*-- Formateo
* '[' + oFXU_LIB.mejorarPresentacionCaracteresEspeciales( TRANSFORM( EVALUATE('toReg_Esperado.'+laProps(I)) ) ) + ']' )
*-- COMPARO
THIS.assertequals( TRANSFORM(teValorEsperado), TRANSFORM(teValor), tcSeteo )
ELSE
*-- Evaluaci<63>n de errores
THIS.messageout( "Error " + TRANSFORM(toEx.ERRORNO) + ', ' + TRANSFORM(toEx.MESSAGE) )
THIS.messageout( toEx.PROCEDURE + ', ' + TRANSFORM(toEx.LINENO) )
IF NOT INLIST( toEx.ERRORNO, 1098, 2071 ) && Error del usuario (ERROR y THROW)
THIS.messageout( TRANSFORM(toEx.LINECONTENTS) )
ENDIF
THIS.assertequals( tnCodError_Esperado, toEx.ERRORNO, 'Error' )
ENDIF
THIS.messageout( '' )
THIS.messageout( REPLICATE('*',80) )
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_GenerarExtension_BAK_Cuando_ExtraBackupLevels_EsteComentado_UseElValorPorDefecto_YNoExistaBAK
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
STRTOFILE('', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'Extensi<73>n de Backup'
leValorEsperado = '.BAK'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.getNext_BAK('TESTS\DATOS_TEST\foxbin2prg.cfg')
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_GenerarExtension_BAK_Cuando_ExtraBackupLevels_EsteComentado_UseElValorPorDefecto_YExistaBAK
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
STRTOFILE('', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
STRTOFILE('', 'TESTS\DATOS_TEST\foxbin2prg.cfg.BAK')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'Extensi<73>n de Backup'
leValorEsperado = '.BAK'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.getNext_BAK('TESTS\DATOS_TEST\foxbin2prg.cfg')
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_GenerarExtension_BAK_Cuando_ExtraBackupLevels_Sea_0_YNoExistaBAK
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
STRTOFILE('ExtraBackupLevels:0', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'Extensi<73>n de Backup'
leValorEsperado = '.BAK'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.getNext_BAK('TESTS\DATOS_TEST\foxbin2prg.cfg')
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_GenerarExtension_BAK_Cuando_ExtraBackupLevels_Sea_0_YExistaBAK
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
STRTOFILE('ExtraBackupLevels:0', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
STRTOFILE('ExtraBackupLevels:0', 'TESTS\DATOS_TEST\foxbin2prg.cfg.bak')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'Extensi<73>n de Backup'
leValorEsperado = '.BAK'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.getNext_BAK('TESTS\DATOS_TEST\foxbin2prg.cfg')
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_GenerarExtension_BAK_Cuando_ExtraBackupLevels_Sea_1_YNoExistaBAK
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
STRTOFILE('ExtraBackupLevels:1', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'Extensi<73>n de Backup'
leValorEsperado = '.BAK'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.getNext_BAK('TESTS\DATOS_TEST\foxbin2prg.cfg')
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_GenerarExtension_1_BAK_Cuando_ExtraBackupLevels_Sea_1_YExistaBAK
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
STRTOFILE('ExtraBackupLevels:1', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
STRTOFILE('ExtraBackupLevels:1', 'TESTS\DATOS_TEST\foxbin2prg.cfg.bak')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'Extensi<73>n de Backup'
leValorEsperado = '.BAK'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.getNext_BAK('TESTS\DATOS_TEST\foxbin2prg.cfg')
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_GenerarExtension_BAK_Cuando_ExtraBackupLevels_Sea_2_YExista_1_BAK
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
STRTOFILE('ExtraBackupLevels:2', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
STRTOFILE('ExtraBackupLevels:2', 'TESTS\DATOS_TEST\foxbin2prg.cfg.bak')
STRTOFILE('ExtraBackupLevels:2', 'TESTS\DATOS_TEST\foxbin2prg.cfg.1.bak')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'Extensi<73>n de Backup'
leValorEsperado = '.BAK'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.getNext_BAK('TESTS\DATOS_TEST\foxbin2prg.cfg')
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_GenerarExtension_BAK_Cuando_ExtraBackupLevels_Sea_2_YExista_2_BAK
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
STRTOFILE('ExtraBackupLevels:2', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
STRTOFILE('ExtraBackupLevels:2', 'TESTS\DATOS_TEST\foxbin2prg.cfg.bak')
STRTOFILE('ExtraBackupLevels:2', 'TESTS\DATOS_TEST\foxbin2prg.cfg.1.bak')
STRTOFILE('ExtraBackupLevels:2', 'TESTS\DATOS_TEST\foxbin2prg.cfg.2.bak')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'Extensi<73>n de Backup'
leValorEsperado = '.BAK'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.getNext_BAK('TESTS\DATOS_TEST\foxbin2prg.cfg')
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
*******************************************************************************************************************************************
FUNCTION Deberia_Setear_Debug_False_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'l_Debug'
leValorEsperado = .F.
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.l_Debug
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_Setear_Debug_False_CuandoElArhivo_foxbin2prg_cfg_Tenga_Debug_0
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
STRTOFILE('Debug:0', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'l_Debug'
leValorEsperado = .F.
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.l_Debug
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_Setear_Debug_True_CuandoElArhivo_foxbin2prg_cfg_Tenga_Debug_1
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
STRTOFILE('Debug:1', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'l_Debug'
leValorEsperado = .T.
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.l_Debug
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_Setear_NoTimestamps_True_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'l_NoTimestamps'
leValorEsperado = .T.
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.l_NoTimestamps
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_Setear_NoTimestamps_False_CuandoElArhivo_foxbin2prg_cfg_Tenga_NoTimestamps_0
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
STRTOFILE('NoTimestamps:0', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'l_NoTimestamps'
leValorEsperado = .F.
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.l_NoTimestamps
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_Setear_NoTimestamps_True_CuandoElArhivo_foxbin2prg_cfg_Tenga_NoTimestamps_1
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
STRTOFILE('NoTimestamps:1', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'l_NoTimestamps'
leValorEsperado = .T.
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.l_NoTimestamps
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_Setear_ClearUniqueID_False_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'l_ClearUniqueID'
leValorEsperado = .F.
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.l_ClearUniqueID
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_Setear_ClearUniqueID_False_CuandoElArhivo_foxbin2prg_cfg_Tenga_ClearUniqueID_0
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
STRTOFILE('ClearUniqueID:0', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'l_ClearUniqueID'
leValorEsperado = .F.
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.l_ClearUniqueID
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_Setear_ClearUniqueID_True_CuandoElArhivo_foxbin2prg_cfg_Tenga_ClearUniqueID_1
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
STRTOFILE('ClearUniqueID:1', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'l_ClearUniqueID'
leValorEsperado = .T.
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.l_ClearUniqueID
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_Setear_ShowProgress_True_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'l_ShowProgress'
leValorEsperado = .T.
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.l_ShowProgress
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_Setear_ShowProgress_True_CuandoElArhivo_foxbin2prg_cfg_Tenga_DontShowProgress_0
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
STRTOFILE('DontShowProgress:0', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'l_ShowProgress'
leValorEsperado = .T.
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.l_ShowProgress
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_Setear_ShowProgress_False_CuandoElArhivo_foxbin2prg_cfg_Tenga_DontShowProgress_1
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
loFB2P.l_ShowErrors = .F.
STRTOFILE('DontShowProgress:1', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'l_ShowProgress'
leValorEsperado = .F.
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.l_ShowProgress
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_Setear_ShowErrors_True_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'l_ShowErrors'
leValorEsperado = .T.
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.l_ShowErrors
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_Setear_ShowErrors_True_CuandoElArhivo_foxbin2prg_cfg_Tenga_DontShowErrors_0
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('DontShowErrors:0', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'l_ShowErrors'
leValorEsperado = .T.
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.l_ShowErrors
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_Setear_ShowErrors_False_CuandoElArhivo_foxbin2prg_cfg_Tenga_DontShowErrors_1
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('DontShowErrors:1', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'l_ShowErrors'
leValorEsperado = .F.
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.l_ShowErrors
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearLaExtension_DB2_Como_DB2_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'DB2 Extension:'
leValorEsperado = 'DB2'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.c_DB2
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearLaExtension_DB2_Como_DBA_CuandoElArhivo_foxbin2prg_cfg_TengaExtension_DB2_igual_DBA
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('Extension:db2=dba', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'DB2 Extension:'
leValorEsperado = 'DBA'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.c_DB2
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearLaExtension_DC2_Como_DC2_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'DC2 Extension:'
leValorEsperado = 'DC2'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.c_DC2
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearLaExtension_DC2_Como_DCA_CuandoElArhivo_foxbin2prg_cfg_TengaExtension_DC2_igual_DCA
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('Extension:dc2=dca', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'DC2 Extension:'
leValorEsperado = 'DCA'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.c_DC2
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearLaExtension_FR2_Como_FR2_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'FR2 Extension:'
leValorEsperado = 'FR2'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.c_FR2
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearLaExtension_FR2_Como_FRA_CuandoElArhivo_foxbin2prg_cfg_TengaExtension_FR2_igual_FRA
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('Extension:fr2=fra', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'FR2 Extension:'
leValorEsperado = 'FRA'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.c_FR2
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearLaExtension_LB2_Como_LB2_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'LB2 Extension:'
leValorEsperado = 'LB2'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.c_LB2
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearLaExtension_LB2_Como_LBA_CuandoElArhivo_foxbin2prg_cfg_TengaExtension_LB2_igual_LBA
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('Extension:lb2=lba', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'LB2 Extension:'
leValorEsperado = 'LBA'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.c_LB2
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearLaExtension_MN2_Como_MN2_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'MN2 Extension:'
leValorEsperado = 'MN2'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.c_MN2
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearLaExtension_MN2_Como_MNA_CuandoElArhivo_foxbin2prg_cfg_TengaExtension_MN2_igual_MNA
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('Extension:mn2=mna', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'MN2 Extension:'
leValorEsperado = 'MNA'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.c_MN2
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearLaExtension_PJ2_Como_PJ2_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'PJ2 Extension:'
leValorEsperado = 'PJ2'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.c_PJ2
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearLaExtension_PJ2_Como_PJA_CuandoElArhivo_foxbin2prg_cfg_TengaExtension_PJ2_igual_PJA
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('Extension:pj2=pja', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'PJ2 Extension:'
leValorEsperado = 'PJA'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.c_PJ2
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearLaExtension_SC2_Como_SC2_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'SC2 Extension:'
leValorEsperado = 'SC2'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.c_SC2
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearLaExtension_SC2_Como_SCA_CuandoElArhivo_foxbin2prg_cfg_TengaExtension_SC2_igual_SCA
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('Extension:sc2=sca', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'SC2 Extension:'
leValorEsperado = 'SCA'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.c_SC2
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearLaExtension_VC2_Como_VC2_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'VC2 Extension:'
leValorEsperado = 'VC2'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.c_VC2
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearLaExtension_VC2_Como_VCA_CuandoElArhivo_foxbin2prg_cfg_TengaExtension_VC2_igual_VCA
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('Extension:vc2=vca', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'VC2 Extension:'
leValorEsperado = 'VCA'
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.c_VC2
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearElSoporte_DBF_Como_1_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'DBF_Conversion_Support:'
leValorEsperado = 1
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.DBF_Conversion_Support
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearElSoporte_DBF_Como_0_CuandoElArhivo_foxbin2prg_cfg_Y_DBF_Conversion_Support_Sea_0
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('DBF_Conversion_Support:0', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'DBF_Conversion_Support:'
leValorEsperado = 0
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.DBF_Conversion_Support
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearElSoporte_DBC_Como_2_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'DBC_Conversion_Support:'
leValorEsperado = 2
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.DBC_Conversion_Support
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearElSoporte_DBC_Como_0_CuandoElArhivo_foxbin2prg_cfg_Y_DBC_Conversion_Support_Sea_0
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('DBC_Conversion_Support:0', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'DBC_Conversion_Support:'
leValorEsperado = 0
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.DBC_Conversion_Support
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearElSoporte_PJX_Como_2_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'PJX_Conversion_Support:'
leValorEsperado = 2
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.PJX_Conversion_Support
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearElSoporte_PJX_Como_0_CuandoElArhivo_foxbin2prg_cfg_Y_PJX_Conversion_Support_Sea_0
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('PJX_Conversion_Support:0', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'PJX_Conversion_Support:'
leValorEsperado = 0
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.PJX_Conversion_Support
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearElSoporte_SCX_Como_2_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'SCX_Conversion_Support:'
leValorEsperado = 2
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.SCX_Conversion_Support
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearElSoporte_SCX_Como_0_CuandoElArhivo_foxbin2prg_cfg_Y_SCX_Conversion_Support_Sea_0
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('SCX_Conversion_Support:0', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'SCX_Conversion_Support:'
leValorEsperado = 0
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.SCX_Conversion_Support
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearElSoporte_VCX_Como_2_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'VCX_Conversion_Support:'
leValorEsperado = 2
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.VCX_Conversion_Support
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearElSoporte_VCX_Como_0_CuandoElArhivo_foxbin2prg_cfg_Y_VCX_Conversion_Support_Sea_0
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('VCX_Conversion_Support:0', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'VCX_Conversion_Support:'
leValorEsperado = 0
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.VCX_Conversion_Support
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearElSoporte_MNX_Como_2_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'MNX_Conversion_Support:'
leValorEsperado = 2
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.MNX_Conversion_Support
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearElSoporte_MNX_Como_0_CuandoElArhivo_foxbin2prg_cfg_Y_MNX_Conversion_Support_Sea_0
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('MNX_Conversion_Support:0', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'MNX_Conversion_Support:'
leValorEsperado = 0
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.MNX_Conversion_Support
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearElSoporte_FRX_Como_2_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'FRX_Conversion_Support:'
leValorEsperado = 2
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.FRX_Conversion_Support
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearElSoporte_FRX_Como_0_CuandoElArhivo_foxbin2prg_cfg_Y_FRX_Conversion_Support_Sea_0
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('FRX_Conversion_Support:0', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'FRX_Conversion_Support:'
leValorEsperado = 0
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.FRX_Conversion_Support
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearElSoporte_LBX_Como_2_CuandoNoExistaElArhivo_foxbin2prg_cfg
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'LBX_Conversion_Support:'
leValorEsperado = 2
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.LBX_Conversion_Support
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_SetearElSoporte_LBX_Como_0_CuandoElArhivo_foxbin2prg_cfg_Y_LBX_Conversion_Support_Sea_0
LOCAL lnCodError, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor ;
, loFB2P AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
, loEx AS EXCEPTION
#IF .F.
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
#ENDIF
TRY
loEx = NULL
loFB2P = THIS.ioFB2P
loFB2P.l_ShowErrors = .F.
loFB2P.c_Foxbin2prg_ConfigFile = 'TESTS\DATOS_TEST\foxbin2prg.cfg'
STRTOFILE('LBX_Conversion_Support:0', 'TESTS\DATOS_TEST\foxbin2prg.cfg')
*-- DATOS DE ENTRADA
STORE 0 TO lnCodError
lcSeteo = 'LBX_Conversion_Support:'
leValorEsperado = 0
*-- TEST
loFB2P.EvaluarConfiguracion()
leValor = loFB2P.LBX_Conversion_Support
CATCH TO loEx
FINALLY
THIS.Evaluate_results( loEx, lnCodError_Esperado, lcSeteo, leValorEsperado, leValor )
ENDTRY
ENDFUNC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink