Marius Mutu
a682e7985b
Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01WsxyCHJYL6W9MZ6FPnH8ax
25 lines
964 B
Plaintext
25 lines
964 B
Plaintext
* mock_xmenu_storno.prg - mock XMENU specific testului E2E storno (test_storno_e2e.prg).
|
|
* Raspunde din coada PUBLIC gaXmenuQueue/gnXmenuQueuePos (populata de test inainte de fiecare
|
|
* Click care deschide meniul cmdTrimite); coada goala -> 0 (echivalent Esc/renuntare la xmenu).
|
|
* Logheaza toate apelurile in PUBLIC gaXmenuCalls/gnXmenuCalls.
|
|
FUNCTION xmenu
|
|
LPARAMETERS tcItems, tnBar
|
|
LOCAL lnRaspuns
|
|
IF TYPE('gnXmenuQueuePos') = 'N' AND gnXmenuQueuePos <= ALEN(gaXmenuQueue)
|
|
lnRaspuns = gaXmenuQueue[gnXmenuQueuePos]
|
|
gnXmenuQueuePos = gnXmenuQueuePos + 1
|
|
ELSE
|
|
lnRaspuns = 0
|
|
ENDIF
|
|
IF TYPE('gnXmenuCalls') = 'N'
|
|
gnXmenuCalls = gnXmenuCalls + 1
|
|
DIMENSION gaXmenuCalls[gnXmenuCalls, 2]
|
|
gaXmenuCalls[gnXmenuCalls, 1] = TRANSFORM(tcItems)
|
|
gaXmenuCalls[gnXmenuCalls, 2] = lnRaspuns
|
|
ENDIF
|
|
IF TYPE('gcUILog') = 'C'
|
|
DO PrLogLocal WITH 'MOCK xmenu: [' + LEFT(TRANSFORM(tcItems), 100) + '] -> ' + TRANSFORM(lnRaspuns)
|
|
ENDIF
|
|
RETURN lnRaspuns
|
|
ENDFUNC
|