Testes unitários com Delphi - DUnit

 Descrição: Programa para testar possibilidades de erros, serão cadastradas as possibilidades e serão automatizados os testes;

Quem nunca fez uma alteração que arrumou uma coisa e sem querer estragou outra? Os testes unitários atuam justamente nesse ponto, se você faz algo que causa alguma conseqüência inesperada em alguma outra parte do sistema e que as vezes você nem se lembra, os testes vão te ajudar a pegar essas falhas.

http://dunit.sourceforge.net/

A instalação é simples. Descompacte a o conteúdo do arquivo para alguma pasta e adicione no library path do Delphi  o caminho <pasta instalação>\DUnit\Source

Feche a aplicação e inicie um novo projeto, removendo deste o Form1, se criado. Acesse Project -> View Source e ajuste o código do projeto de acordo

Importante: Esse projeto será o programa que utilizará o framework DUnit para serem adicionadas as nossas unit's com nossas classes que serão testadas.

uses

Forms,

TestFrameWork,

GuiTestRunner;

{$R *.res}

begin

Application.Initialize;

GUITestRunner.RunRegisteredTests;

end.

//Salve o projeto e adicione uma nova Unit, nela vamos escrever o teste necessário, conforme a unit de teste abaixo

Unit UNotaTeste;

uses TestFramework, u_nota;{<- unit da classe TNotas}

type

TNotasTestes = class(TTestCase)

private

FNotas: TNotas;

protected

published

procedure TestMedia;

end;

procedure TNotasTestes.TestMedia;

begin

FNotas.Nota1 := 10;

FNotas.Nota2 := 10;

FNotas.Nota3 := 10;

FNotas.Nota4 := 10;

CheckEquals(10,FNotas.Media);

end;

O framework DUnit oferece vários métodos que utilizamos para realizar testes, em nosso exemplo utilizamos o CheckEquals. CheckEquals vai verificar a igualdade dos valores passados, havendo diferença o teste é identificado como falho.

E para inicializar o teste use no initialize o:

TestFramework.RegisterTest('Tests Suite', TNotasTestes.Suite);