TECHNIKA: TESTOVACÍ PROSTŘEDÍ
Walter Pachl z Vídně mi poslal program dokazující chyby v jednom z mých podprogramů. Jeho kód vytváří geniálně jednoduché testovací prostředí, které nyní používám a které se mi velice osvědčilo.
signal on HALT
signal on NOVALUE
signal on SYNTAX
...
kód laděného programu
...
NOVALUE:
say 'Chyba Novalue v řádce' Sigl
say SOURCELINE(Sigl)
say 'Proměnná' CONDITION('D')
signal POROZHLEDNI_SE
SYNTAX:
say 'Chyba syntaxe v řádku' Sigl
say SOURCELINE(Sigl)
say 'rc='rc '('ERRORTEXT(rc)')'
HALT:
POROZHLEDNI_SE:
do
say 'Můžeš se porozhlédnout kolem.'
trace ?R
nop
end
exit 12
|
SPOLUAUTOR