Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.270 Beiträge
 
Delphi 10.4 Sydney
 
#5

Re: Was sind eigentlich Unittests genau?

  Alt 14. Mai 2008, 14:51
Hallo,

und hier noch mal der Link.

http://dunit.sourceforge.net/

Warum diese Bibliothek.

Aaaaalso. ein Bsp.

Wir haben eine tolle Funktion:

Delphi-Quellcode:
function Add_One(const theValue: Integer): Integer;
begin
  Result:= theValue+1;
end;
uiui
nich schlecht

Aber jetzt kommt es.
Wie stellst du sicher, dass die Funktion auch das richtige Ergebnis liefert.

Delphi-Quellcode:
procedure Test__Add_One;
var
  iValue : Integer;
  iResult : Integer;
begin
  iValue:= 0;
  iResult:= Add_One(iValue);
  Assert(iResult=1);

  iValue:= 1;
  iResult:= Add_One(iValue);
  Assert(iResult=2);
end;
So, klappt !!!


Jetzt stell dir vor, wir Ändern/Erweitern die Funktion.
wenn negative Zahlen übergeben werden, soll 0 rauskommen
Das ist ein Bsp.!


Delphi-Quellcode:
function Add_One(const theValue: Integer): Integer;
begin
  Result:= 0;

  if theValue>0 then
  begin
    Result:= theValue+1
  end;
end;
Jetzt testen wir wieder und !!!
OK OK, habe ich extra so gemacht

Delphi-Quellcode:
 iValue:= 0;
  iResult:= Add_One(iValue);
  Assert(iValue=1); <<<--- hier kracht es
Ich habe einen Fehler eingebaut.
Bei 0 wird gar nichts übergeben, den Übergabe-Wert habe ich vergessen.
Vorher ging es aber !

Unit-Tests heisst, zuerst schreibe ich den Körper der Procedure/Funktion,
dann denke ich mir Tests aus, dann schreibe ich den Code
und probiere, ob meine Tests klappen.

Gerade bei Änderungen an existierendem Code kann es ebend
schon mal passieren, dass ein Fehler eingebaut wird.


dUnit erlaubt es jetzt, basierend auf einem Framework
Test-Code zu schreiben.
Die Testmethoden werden per RTTI ausgelesen.
Bsp. auf dem Link oben.

In unserem Bsp.

Delphi-Quellcode:
type
  TTestCase1 = class(TTestCase)
    published
      procedure Test__Add_One;
  end; { TTestCase }

procedure TTestCase1.Test__Add_One;
var
  iValue : Integer;
  iResult : Integer;
begin
  iValue:= 0;
  iResult:= Add_One(iValue);
  Check(iResult=1, "iResult<>1");

  iValue:= 1;
  iResult:= Add_One(iValue);
  Check(iResult=2);
end;
TTestCase1 wird über eine Framework-Methode
mit dunit verbunden und Test__Add_One ausgeführt,
Check ist ähnlich wie das Assert oben.


Das dUnit-Framework erstellt eine Exe, die die mit published
markierten Methoden der einzelnen TestCases ausführt.


Heiko
Heiko
  Mit Zitat antworten Zitat