Marius Mutu
2736cbd525
Include si sistemul de depanare/testare headless din Teste\ (harness UI cu capturi, verificare de sintaxa prin compilare, wrappere text<->binar) si docs\depanare_testare_flora2roa.md.
64 lines
2.1 KiB
Plaintext
64 lines
2.1 KiB
Plaintext
* test_conectare_roa.prg - verifica drumul de initializare CU conectare la Oracle.
|
|
* Ruleaza cu datele din settings.ini; daca baza nu e accesibila, testul trebuie sa raporteze
|
|
* esecul si sa iasa - NU sa ramana agatat pe un dialog de login (SQLSetProp DispLogin).
|
|
*
|
|
* vfp9.exe -A -T "Teste\test_conectare_roa.prg"
|
|
* Nu face parte din suita implicita: depinde de reteaua/serverul Oracle.
|
|
|
|
SET SAFETY OFF
|
|
SET TALK OFF
|
|
|
|
PUBLIC gcUILog, gcSyncDir, gnTestFail
|
|
gnTestFail = 0
|
|
|
|
LOCAL lcTestDir, llConectat
|
|
lcTestDir = ADDBS(JUSTPATH(SYS(16, 0)))
|
|
gcUILog = lcTestDir + 'test_conectare_roa_log.txt'
|
|
gcSyncDir = lcTestDir + 'uisync\'
|
|
IF !DIRECTORY(gcSyncDir)
|
|
MD (gcSyncDir)
|
|
ENDIF
|
|
STRTOFILE('START ' + TTOC(DATETIME()) + CHR(13) + CHR(10), gcUILog)
|
|
|
|
* fara dialog de login: headless, un prompt ODBC ar bloca procesul la nesfarsit
|
|
SQLSETPROP(0, 'DispLogin', 3)
|
|
|
|
llConectat = DO_CONECTARE(lcTestDir)
|
|
|
|
HarnessLog('gnHandle = ' + TRANSFORM(gnHandle))
|
|
TestAssert(TYPE('goConn') = 'O', 'goConn instantiat chiar si fara conectare')
|
|
TestAssert(TYPE('gnHandle') = 'N', 'gnHandle este numeric')
|
|
|
|
IF llConectat
|
|
TestAssert(gnHandle > 0, 'conectare reusita la ' + ALLTRIM(goApp.oSettings.host))
|
|
LOCAL lnSucces
|
|
lnSucces = goExecutor.oExecute(GetHash('cSql=>select 1 as unu from dual??cCursor=>cPing'))
|
|
TestAssertEqual(1, lnSucces, 'interogare de test executata')
|
|
IF USED('cPing')
|
|
TestAssertEqual(1, cPing.unu, 'baza a raspuns corect')
|
|
USE IN (SELECT('cPing'))
|
|
ENDIF
|
|
goConn.Disconnect()
|
|
TestAssert(goConn.GetHandle() <= 0, 'deconectare reusita')
|
|
ELSE
|
|
HarnessLog('Conectare esuata (host ' + ALLTRIM(goApp.oSettings.host) + ;
|
|
'). Testul a iesit controlat, fara sa ramana agatat.')
|
|
TestAssert(gnHandle <= 0, 'esecul de conectare e raportat, nu ascuns')
|
|
ENDIF
|
|
|
|
HarnessLog('REZULTAT: ' + TestRezultat())
|
|
DO HarnessDone WITH TestRezultat()
|
|
QUIT
|
|
|
|
FUNCTION DO_CONECTARE
|
|
LPARAMETERS tcTestDir
|
|
LOCAL llOk
|
|
llOk = .F.
|
|
DO (tcTestDir + 'test_init_env_auto.prg') WITH .T.
|
|
SET PROCEDURE TO (tcTestDir + 'ui_harness.prg') ADDITIVE
|
|
SET PROCEDURE TO (tcTestDir + 'mock_amessagebox.prg') ADDITIVE
|
|
DO HarnessInit
|
|
llOk = (TYPE('gnHandle') = 'N' AND gnHandle > 0)
|
|
RETURN llOk
|
|
ENDFUNC
|