sync SVN r18175
This commit is contained in:
17
utile/Teste/_test_curs_bnr_out.txt
Normal file
17
utile/Teste/_test_curs_bnr_out.txt
Normal file
@@ -0,0 +1,17 @@
|
||||
RUN 09/17/26 10:36:54 PM marca=_7KA1CGZRZ
|
||||
env init OK, ClassLibrary onom_curs incarcat: DA
|
||||
PASS CAZ1_sursa1_azi :: Return obtinut=0 asteptat=0 durata=0.234s Reccount=37 EUR curs=5.2637 (OK)
|
||||
CAZ2 dData(luni)=14/09/2026
|
||||
PASS CAZ2_sursa1_luni :: Return obtinut=0 asteptat=0 durata=0.052s Reccount=37 EUR curs=5.2557 (OK)
|
||||
PASS CAZ3_sursa2_martie :: Return obtinut=0 asteptat=0 durata=0.187s Reccount=37 EUR curs=5.0947 (OK)
|
||||
PASS CAZ4_sursa2_2ian :: Return obtinut=0 asteptat=0 durata=0.240s Reccount=38 EUR curs=5.0985 (OK)
|
||||
[ON ERROR] 13 Alias 'CCRSBNR' is not found. in REPUNE_BACKUP_CURSOARE linia 6363
|
||||
PASS CAZ5_sursa1_veche :: Return obtinut=2 asteptat=2 durata=0.053s
|
||||
PASS CAZ8_cascada_sursa1_apoi_sursa2 :: Return obtinut=0 asteptat=0 durata=0.119s Reccount=38 EUR curs=5.0985 (OK)
|
||||
[ON ERROR] 13 Alias 'CCRSBNR' is not found. in REPUNE_BACKUP_CURSOARE linia 6363
|
||||
CAZ6 durata=0.062s
|
||||
PASS CAZ6_sursa1_host_invalid :: Return obtinut=1 asteptat=1 durata=0.062s
|
||||
CAZ7 dData inainte=18/08/2026 dData dupa=18/09/2026 (trebuie sa difere, s-a suprascris ca la sursa 0)
|
||||
PASS CAZ7_fara_parametru :: Return obtinut=0 asteptat=0 durata=0.050s Reccount=37 EUR curs=5.2601 (OK)
|
||||
=== SUMAR: PASS=8 FAIL=0 ===
|
||||
Nicio scriere in Oracle: nu s-a apelat initializeaza() nici scrie_curs_bnr() in acest test.
|
||||
189
utile/Teste/test_curs_bnr_headless.prg
Normal file
189
utile/Teste/test_curs_bnr_headless.prg
Normal file
@@ -0,0 +1,189 @@
|
||||
* test_curs_bnr_headless.prg
|
||||
* Proba headless pentru citeste_curs_bnr (clasa actualizare_curs_bnr, onom_curs.vcx) dupa
|
||||
* patch-ul arhiva 10 zile + fisier anual BNR. Apeleaza metoda DIRECT (nu initializeaza), ca sa
|
||||
* nu atinga Oracle (initializeaza ar chema scrie_curs_bnr la succes).
|
||||
*
|
||||
* Capcana descoperita si ocolita AICI, in test, nu in cod: citeste_curs_bnr incepe cu
|
||||
* creeaza_backup_cursoare(This.cCursor), care cheama copiaza_structura_cursor() din
|
||||
* oproceduri_comune.prg (linia ~3024). Daca cursorul cCursor ("ccrsbnr") nu e deja deschis,
|
||||
* copiaza_structura_cursor cade pe ramura Else si cheama amessagebox("Eroare interna 2 -
|
||||
* copiaza structura cursor",...) - apel INTRA-FISIER (amessagebox e tot in oproceduri_comune.prg),
|
||||
* deci mock_amessagebox.prg NU il intercepteaza (limita documentata in antetul mock-ului). Rezultat:
|
||||
* dialog real, headless agata. In productie nu se intampla pentru ca initializeaza() creeaza
|
||||
* cursorul via goExecutor.oExecute(lcSql, This.cCursor) INAINTE de a chema citeste_curs_bnr.
|
||||
* Aici, apeland metoda direct, precream cursorul ccrsbnr gol (crea_cursor_gol) inainte de FIECARE
|
||||
* apel - metoda oricum il inchide (Use In) si il reface din raspunsul HTTP (Xmltocursor).
|
||||
|
||||
SET SAFETY OFF
|
||||
SET TALK OFF
|
||||
SET DELETED ON
|
||||
|
||||
LOCAL lcLog
|
||||
lcLog = "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\_test_curs_bnr_out.txt"
|
||||
STRTOFILE("RUN " + TTOC(DATETIME()) + " marca=" + SYS(2015) + CHR(13) + CHR(10), lcLog)
|
||||
|
||||
ON ERROR DO log_eroare WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
|
||||
|
||||
DO (ADDBS("D:\ROA\ROAFACTURARE\COMUN\utile\Teste") + "test_init_env_auto_roafacturare.prg") WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT'
|
||||
|
||||
DO log_txt WITH "env init OK, ClassLibrary onom_curs incarcat: " + IIF(('ONOM_CURS' $ UPPER(SET('CLASSLIB'))), 'DA', 'NU')
|
||||
|
||||
LOCAL lnPass, lnFail
|
||||
lnPass = 0
|
||||
lnFail = 0
|
||||
|
||||
* ---------- Caz 1: sursa 1, azi (zi lucratoare) -> Return 0, cursor populat, EUR>0 ----------
|
||||
LOCAL loCurs, lnRet, ldData, lnT0, lnT1, lnDur
|
||||
loCurs = CREATEOBJECT("actualizare_curs_bnr", 1)
|
||||
DO crea_cursor_gol WITH loCurs.cCursor
|
||||
ldData = DATE()
|
||||
loCurs.dData = ldData
|
||||
lnT0 = SECONDS()
|
||||
lnRet = loCurs.citeste_curs_bnr(1)
|
||||
lnT1 = SECONDS()
|
||||
DO verifica_caz WITH "CAZ1_sursa1_azi", lnRet, 0, loCurs, .T., (lnT1-lnT0), lnPass, lnFail
|
||||
|
||||
* ---------- Caz 2: sursa 1, luni recenta -> Return 0 (cade pe publicarea de vineri) ----------
|
||||
LOCAL ldLuni
|
||||
ldLuni = DATE() - (DOW(DATE(),2) - 1)
|
||||
IF ldLuni = DATE()
|
||||
ldLuni = ldLuni - 7
|
||||
ENDIF
|
||||
loCurs = CREATEOBJECT("actualizare_curs_bnr", 1)
|
||||
DO crea_cursor_gol WITH loCurs.cCursor
|
||||
loCurs.dData = ldLuni
|
||||
lnT0 = SECONDS()
|
||||
lnRet = loCurs.citeste_curs_bnr(1)
|
||||
lnT1 = SECONDS()
|
||||
DO log_txt WITH "CAZ2 dData(luni)=" + DTOC(ldLuni)
|
||||
DO verifica_caz WITH "CAZ2_sursa1_luni", lnRet, 0, loCurs, .T., (lnT1-lnT0), lnPass, lnFail
|
||||
|
||||
* ---------- Caz 3: sursa 2, martie anul curent -> Return 0 ----------
|
||||
LOCAL ldMartie
|
||||
ldMartie = DATE(YEAR(DATE()), 3, 15)
|
||||
loCurs = CREATEOBJECT("actualizare_curs_bnr", 1)
|
||||
DO crea_cursor_gol WITH loCurs.cCursor
|
||||
loCurs.dData = ldMartie
|
||||
lnT0 = SECONDS()
|
||||
lnRet = loCurs.citeste_curs_bnr(2)
|
||||
lnT1 = SECONDS()
|
||||
DO verifica_caz WITH "CAZ3_sursa2_martie", lnRet, 0, loCurs, .T., (lnT1-lnT0), lnPass, lnFail
|
||||
|
||||
* ---------- Caz 4: sursa 2, 2 ianuarie anul curent -> Return 0 (trecere in anul precedent) ----------
|
||||
LOCAL ld2Ian
|
||||
ld2Ian = DATE(YEAR(DATE()), 1, 2)
|
||||
loCurs = CREATEOBJECT("actualizare_curs_bnr", 1)
|
||||
DO crea_cursor_gol WITH loCurs.cCursor
|
||||
loCurs.dData = ld2Ian
|
||||
lnT0 = SECONDS()
|
||||
lnRet = loCurs.citeste_curs_bnr(2)
|
||||
lnT1 = SECONDS()
|
||||
DO verifica_caz WITH "CAZ4_sursa2_2ian", lnRet, 0, loCurs, .T., (lnT1-lnT0), lnPass, lnFail
|
||||
|
||||
* ---------- Caz 5: sursa 1, data mult mai veche decat arhiva 10 zile -> Return 2 ----------
|
||||
LOCAL ldVeche, loCurs5
|
||||
ldVeche = DATE(YEAR(DATE()), 1, 1)
|
||||
loCurs5 = CREATEOBJECT("actualizare_curs_bnr", 1)
|
||||
DO crea_cursor_gol WITH loCurs5.cCursor
|
||||
loCurs5.dData = ldVeche
|
||||
lnT0 = SECONDS()
|
||||
lnRet = loCurs5.citeste_curs_bnr(1)
|
||||
lnT1 = SECONDS()
|
||||
DO verifica_caz WITH "CAZ5_sursa1_veche", lnRet, 2, loCurs5, .F., (lnT1-lnT0), lnPass, lnFail
|
||||
|
||||
* ---------- Caz 8 (cascada dubla, cerut suplimentar): acelasi obiect/data, sursa 2 dupa ----------
|
||||
* ---------- Return 2 pe sursa 1 - verifica ca ccrsbnr e refacut de repune_backup_cursoare si ----------
|
||||
* ---------- ca al doilea apel NU mai loveste "Eroare interna 2" (creeaza_backup_cursoare cere ----------
|
||||
* ---------- Used(cCursor) la intrare). ----------
|
||||
lnT0 = SECONDS()
|
||||
lnRet = loCurs5.citeste_curs_bnr(2)
|
||||
lnT1 = SECONDS()
|
||||
DO verifica_caz WITH "CAZ8_cascada_sursa1_apoi_sursa2", lnRet, 0, loCurs5, .T., (lnT1-lnT0), lnPass, lnFail
|
||||
|
||||
* ---------- Caz 6: sursa 1, host invalid -> Return 1, fara agatare (timeouts 5s/5s/5s/15s) ----------
|
||||
LOCAL loCurs6
|
||||
loCurs6 = CREATEOBJECT("actualizare_curs_bnr", 1)
|
||||
DO crea_cursor_gol WITH loCurs6.cCursor
|
||||
loCurs6.cLinkArhiva = "https://host-inexistent-romfast-test.invalid/nbrfxrates10days.xml"
|
||||
loCurs6.dData = DATE()
|
||||
lnT0 = SECONDS()
|
||||
lnRet = loCurs6.citeste_curs_bnr(1)
|
||||
lnT1 = SECONDS()
|
||||
lnDur = lnT1 - lnT0
|
||||
DO log_txt WITH "CAZ6 durata=" + TRANSFORM(lnDur) + "s"
|
||||
DO verifica_caz WITH "CAZ6_sursa1_host_invalid", lnRet, 1, loCurs6, .F., lnDur, lnPass, lnFail
|
||||
|
||||
* ---------- Caz 7: fara parametru -> comportament ca sursa 0, This.dData se actualizeaza ----------
|
||||
LOCAL loCurs7, ldDataInainte
|
||||
loCurs7 = CREATEOBJECT("actualizare_curs_bnr", 1)
|
||||
DO crea_cursor_gol WITH loCurs7.cCursor
|
||||
ldDataInainte = DATE() - 30
|
||||
loCurs7.dData = ldDataInainte
|
||||
lnT0 = SECONDS()
|
||||
lnRet = loCurs7.citeste_curs_bnr()
|
||||
lnT1 = SECONDS()
|
||||
DO log_txt WITH "CAZ7 dData inainte=" + DTOC(ldDataInainte) + " dData dupa=" + DTOC(loCurs7.dData) + " (trebuie sa difere, s-a suprascris ca la sursa 0)"
|
||||
DO verifica_caz WITH "CAZ7_fara_parametru", lnRet, 0, loCurs7, .T., (lnT1-lnT0), lnPass, lnFail
|
||||
|
||||
DO log_txt WITH "=== SUMAR: PASS=" + TRANSFORM(lnPass) + " FAIL=" + TRANSFORM(lnFail) + " ==="
|
||||
DO log_txt WITH "Nicio scriere in Oracle: nu s-a apelat initializeaza() nici scrie_curs_bnr() in acest test."
|
||||
|
||||
QUIT
|
||||
|
||||
* ============================================================
|
||||
PROCEDURE crea_cursor_gol
|
||||
LPARAMETERS tcCursor
|
||||
IF USED(tcCursor)
|
||||
USE IN (tcCursor)
|
||||
ENDIF
|
||||
CREATE CURSOR (tcCursor) (Currency C(10), multiplier N(10,4), Curs N(14,6))
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE log_txt
|
||||
LPARAMETERS tcTxt
|
||||
STRTOFILE(TRANSFORM(tcTxt) + CHR(13) + CHR(10), "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\_test_curs_bnr_out.txt", 1)
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE log_eroare
|
||||
LPARAMETERS tnErr, tcMsg, tcProg, tnLine
|
||||
DO log_txt WITH " [ON ERROR] " + TRANSFORM(tnErr) + " " + TRANSFORM(tcMsg) + " in " + TRANSFORM(tcProg) + " linia " + TRANSFORM(tnLine)
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE verifica_caz
|
||||
LPARAMETERS tcLabel, tnRetObtinut, tnRetAsteptat, toCurs, tlAsteaptaDate, tnDur, tnPassRef, tnFailRef
|
||||
LOCAL llOk, lcDetaliu, lnRc, lcEur
|
||||
llOk = (tnRetObtinut = tnRetAsteptat)
|
||||
lcDetaliu = "Return obtinut=" + TRANSFORM(tnRetObtinut) + " asteptat=" + TRANSFORM(tnRetAsteptat) + " durata=" + TRANSFORM(tnDur) + "s"
|
||||
|
||||
IF tlAsteaptaDate
|
||||
IF USED(toCurs.cCursor)
|
||||
lnRc = RECCOUNT(toCurs.cCursor)
|
||||
lcDetaliu = lcDetaliu + " Reccount=" + TRANSFORM(lnRc)
|
||||
IF lnRc > 0
|
||||
SELECT (toCurs.cCursor)
|
||||
LOCATE FOR UPPER(ALLTRIM(NVL(Currency,""))) = "EUR"
|
||||
IF FOUND() AND Curs > 0
|
||||
lcEur = "EUR curs=" + TRANSFORM(Curs) + " (OK)"
|
||||
ELSE
|
||||
lcEur = "EUR NU s-a gasit sau curs<=0"
|
||||
llOk = .F.
|
||||
ENDIF
|
||||
lcDetaliu = lcDetaliu + " " + lcEur
|
||||
ELSE
|
||||
llOk = .F.
|
||||
lcDetaliu = lcDetaliu + " (cursor gol, esuat)"
|
||||
ENDIF
|
||||
ELSE
|
||||
llOk = .F.
|
||||
lcDetaliu = lcDetaliu + " (cursor neincarcat)"
|
||||
ENDIF
|
||||
ENDIF
|
||||
|
||||
IF llOk
|
||||
tnPassRef = tnPassRef + 1
|
||||
DO log_txt WITH "PASS " + tcLabel + " :: " + lcDetaliu
|
||||
ELSE
|
||||
tnFailRef = tnFailRef + 1
|
||||
DO log_txt WITH "FAIL " + tcLabel + " :: " + lcDetaliu
|
||||
ENDIF
|
||||
ENDPROC
|
||||
Reference in New Issue
Block a user