1. Cobertura de código (code coverage)

Cobertura de código ou no inglês, code coverage- um programa testado é aquele em que TODAS as suas instruções foram executadas ao menos uma vez.Isso é efetuado por testes sucessivos, tentando "cobrir" todas as situações tratadas no código.

O TOTVS Developer Studio disponibiliza aos desenvolvedores uma ferramenta que os ajudará no processo de testes, identificando qual parte do código já foi executado.

Passar por todas as linhas do seu código, não significa que ele esteja livre de erros, apenas minimiza as chances disto ocorrer.

Para demonstrar o uso desta ferramenta, utilizaremos o programa abaixo.

user function escolheNum()
local n, cResp, cMsg := ""
local aOpcoes := {}

for n := 1 to 5
aAdd(aOpcoes, strZero(n,1,0))
next

while !(cResp == "*")
cResp := tela(aOpcoes)

if cResp == "1"
cMsg := "Você escolheu o numero 1"
elseif cResp == "2"
cMsg := "Você escolheu o numero 2"
elseif cResp == "3"
cMsg := "Você escolheu o numero 3"
elseif cResp == "4"
cMsg := "Você escolheu o numero 4"
elseif cResp == "5"
cMsg := "Você escolheu o numero 5"
else
cMsg := "Nenhum número escolhido"
endif

if !empty(cResp)
if cResp == "2" .or. cResp == "4"
cMsg += " e é PAR"
else
cMsg += " e é IMPAR"
endif
endif

if !(cResp == "*")
msgAlert(cMsg)
endif

enddo

return

static function tela(aaOpcoes)
Local oDlg,oSay1,oBtn

private cOpcao := ""

if !(valType(aaOpcoes) == "A")
msgAlerta("Parametro aaOpcoes não é uma lista (array)")
return cOpcao
endif

oDlg := MSDIALOG():Create()
oDlg:cName := "oDlg"
oDlg:cCaption := "Escolha um numero"
oDlg:nLeft := 0
oDlg:nTop := 0
oDlg:nWidth := 400
oDlg:nHeight := 250
oDlg:lCentered := .T.

oSay1 := TSAY():Create(oDlg)
oSay1:cName := "oSay1"
oSay1:cCaption := "Escolha um número acionando um dos botões abaixo."
oSay1:nLeft := 10
oSay1:nTop := 28
oSay1:nWidth := 250
oSay1:nHeight := 17
oSay1:lTransparent := .T.

oBtn := TButton():Create(oDlg)
oBtn:cCaption := "<nenhum>"
oBtn:blClicked := {|| cOpcao := "", oDlg:end() }
oBtn:nWidth := 90
oBtn:nTop := 90
oBtn:nLeft := 10

oBtn := TButton():Create(oDlg)
oBtn:cCaption := "<encerrar>"
oBtn:blClicked := {|| cOpcao := "*", oDlg:end() }
oBtn:nWidth := 90
oBtn:nTop := 90
oBtn:nLeft := 110

aEval(aaOpcoes, { |x,i| ;
oBtn := TButton():Create(oDlg),;
oBtn:cCaption := x,;
oBtn:blClicked := &("{|| cOpcao := '"+x+"', oDlg:end() }"),;
oBtn:nWidth := 30,;
oBtn:nTop := 60,;
oBtn:nLeft := (10 * i) + (oBtn:nWidth*(i-1));
})

oDlg:Activate()

Return cOpcao