Marius Mutu
a580dfd6e1
Proba end-to-end ruleaza formularul frm_firme_nou_desktopf peste nomenclatorul Oracle real; 997/1000 coduri fiscale reale potrivite corect. Testul sintetic acopera 42 de verificari, fara Oracle si fara ANAF. Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v
38 lines
2.5 KiB
Plaintext
38 lines
2.5 KiB
Plaintext
* mock_amessagebox.prg - inlocuieste FUNCTION amessagebox (din oproceduri_comune.prg) in teste,
|
|
* ca dialogurile modale de confirmare sa NU blocheze testul headless. Returneaza 6 (Da/OK) implicit.
|
|
* Se incarca cu SET PROCEDURE ... ADDITIVE **PRIMA**, INAINTEA fisierelor aplicatiei: la nume
|
|
* duplicat de procedura VFP foloseste fisierul cautat PRIMUL (verificat empiric - vezi
|
|
* COMUN\docs\testare-ui-vfp.md capcana g si antetul lui partener_anaf\mock_anaf_verificare.prg).
|
|
* 23.08.2026: antetul spunea pana acum "ULTIMA", ceea ce e invers si a costat o rulare blocata
|
|
* pe un dialog modal (test_e2e_anaf_firma). Logheaza apelul (dovada rezolutiei).
|
|
* LIMITA: nu acopera sigur apelurile INTRA-FISIER. `verifica_partener_show_info` si `amessagebox`
|
|
* sunt amandoua in oproceduri_comune.prg, deci dialogul acelei functii ramane modal chiar cu
|
|
* mock-ul incarcat; pentru el exista partener_anaf\mock_verifica_partener_show_info.prg.
|
|
* Configurabil per apel: daca testul declara PUBLIC gnMockRaspuns (implicit 6 daca nedeclarata),
|
|
* mock-ul returneaza acea valoare - necesar pt. meniuri cu raspunsuri diferite (6/7/2) pe acelasi
|
|
* dialog (ex. do_sterge/do_copiaza_nota, flag 3+32 Yes/No/Cancel).
|
|
* gnMockRaspunsTotal (PUBLIC, optional): cand testul declara aceasta variabila SUPLIMENTARA si
|
|
* mesajul primit contine "Actualizati totalul facturii" (runda25, Grid1.cSuma/cSumaVal.Valid),
|
|
* mock-ul raspunde cu ACEASTA valoare in loc de gnMockRaspuns - necesar cand doua dialoguri
|
|
* diferite (recalculare suma in lei / actualizare total factura) apar in ACELASI apel de metoda
|
|
* si trebuie sa primeasca raspunsuri diferite (ex. Da la primul, Nu la al doilea).
|
|
* gcMockUltimMesaj / gnMockUltimTip (PUBLIC, optional): daca testul declara gcMockUltimMesaj ca
|
|
* sir, mock-ul memoreaza in ele mesajul si tipul ultimului apel - pentru aserti pe TEXTUL dialogului.
|
|
FUNCTION amessagebox
|
|
LPARAMETERS tcMessage, tnDialogBoxType, tcTitle, tcFont, tnTimeOut, tnTimeoutValue
|
|
LOCAL lnRaspuns
|
|
IF TYPE('gnMockRaspunsTotal') = 'N' AND 'Actualizati totalul facturii' $ tcMessage
|
|
lnRaspuns = gnMockRaspunsTotal
|
|
ELSE
|
|
lnRaspuns = IIF(TYPE('gnMockRaspuns') = 'N', gnMockRaspuns, 6)
|
|
ENDIF
|
|
IF TYPE('gcMockUltimMesaj') = 'C'
|
|
gcMockUltimMesaj = TRANSFORM(tcMessage)
|
|
gnMockUltimTip = IIF(TYPE('tnDialogBoxType') = 'N', tnDialogBoxType, 0)
|
|
ENDIF
|
|
IF TYPE('gcUILog') = 'C'
|
|
DO HarnessLog WITH 'MOCK amessagebox apelat: [' + ALLTRIM(TRANSFORM(tcMessage)) + '] -> returnez ' + TRANSFORM(lnRaspuns)
|
|
ENDIF
|
|
RETURN lnRaspuns
|
|
ENDFUNC
|