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
Walter Pachl - autor testovacího prostředí


obálka obsah index hlavní

změněno 12. dubna 2018
Copyright © 2000-2018 Vladimír Zábrodský, RNDr.

mail