Unittest von OnWhatever Events?

[Mavarik]

Hallo Zusammen!

Wie mache ich ein Unittest von einem OnWhatever Event?
Beispiel:

Delphi-Quellcode:

procedure TestIUDFDatenbank.TestInit;
var
  ClientGUID: TGUID;
begin
  // TODO: Methodenaufrufparameter einrichten
  FIUDFDatenbank.Init(ClientGUID); // Wenn der InitThread fertig ist wird ein Event OnInitDone aufgerufen
  // TODO: Methodenergebnisse prüfen
end;

Wie bringe ich das hier unter, dass ich:
1. Testen kann ob innerhalb von 10 Sekunden der OnInitDone aufgerufen wurde
2. Oder der OnInitFailure

Mavarik

[Uwe Raabe]

Ich gehe mal davon aus, daß die Events innerhalb des Init-Aufrufs ausgeführt werden. Dann kannst du die Events auf entsprechende Methoden des TestCase setzen, die eine Feld im TestCase setzen, daß du dann nach dem Init prüfst.

Die Zeit kannst du testen, indem du dir den Start von Init merkst und in den jeweiligen Events das Intervall abprüfst.

Für nicht-synchrone Events ist DUnit allerdings gar nicht gut geeignet.

[Mavarik]

Zitat von Uwe Raabe:

Dann kannst du die Events auf entsprechende Methoden des TestCase setzen

emm - nochmal für bitte...

Zitat von Uwe Raabe:

Für nicht-synchrone Events ist DUnit allerdings gar nicht gut geeignet.

Oh wie doof...

Die Init läuft in einem Thread und feuert irgendwann den OnXXXX.
Kommt also sofort wieder.
Ich müsste also im TestCase eigentlich einen Anonymen Thread starten der auf das Ergebnis warten kann (5 Sekunden oder was auch immer) um in der Testcase procedure dann true oder false zu erzeugen.

Richig????

[Uwe Raabe]

Zitat von Mavarik:

Die Init läuft in einem Thread und feuert irgendwann den OnXXXX.
Kommt also sofort wieder.
Ich müsste also im TestCase eigentlich einen Anonymen Thread starten der auf das Ergebnis warten kann (5 Sekunden oder was auch immer) um in der Testcase procedure dann true oder false zu erzeugen.

Besser wäre es, der Code, der im Thread ausgeführt wird, kann direkt geprüft werden. Das käme der Intention eines Unittests eigentlich näher.

[Dejan Vu]

Beides, oder?

1. Teste den Thread, das er das macht, was er machen soll (z.B. die Objektmethode aufrufen, die einen Event feuern soll. Ob der gefeuert wird, interessiert den Thread ja nicht).
2. Teste das Objekt, das den Event feuert, wenn es soll.

[Sir Rufo]

Zitat von Dejan Vu:

Beides, oder?

1. Teste den Thread, das er das macht, was er machen soll (z.B. die Objektmethode aufrufen, die einen Event feuern soll. Ob der gefeuert wird, interessiert den Thread ja nicht).
2. Teste das Objekt, das den Event feuert, wenn es soll.

Ich hätte es jetzt nicht schöner sagen können.

Beim Unittest darf man eben nie aus den Augen verlieren, was man testen möchte. Manchmal benötigt man auch ein paar Dummies zum Testen, denn wer will schon beim Testen einer SEPA-Schnittstelle aus Versehen 100000,00€ überweisen oder per Lastschrift einziehen.

[Dejan Vu]

Zitat von Uwe Raabe:

...und in den jeweiligen Events das Intervall abprüfst..

Ich würde im Event eher den Aufrufzeitpunkt setzen und im Assert-Teil des Unit-Tests dann das Timing prüfen:

Pseudocode:

Delphi-Quellcode:

// Arrange
unitUnderTest := TMyObject.Create;
unitUnderTest.OnEvent := TestEvent;

StartTime := Now;
EventWasFired := False;
EventTime := 0;
// Act
unitUnderTest.TriggerTheEvent();
// This is nonworking pseudocode but you should get the point
WaitUntil (EventWasFired  or (Now-StartTime > maxTimeToWait));  

// Assert
Assert.That(EventWasFired , 'The Event was not called');
Assert.That(EventTime-StartTime <= TenSeconds, 'The Event was not called in Time');
...

Procedure TTestCase.TestEvent(Sender : TObject);
Begin
  EventTime := Now;
  EventWasFired := True;
End;

Edit: Du solltest den Event in gar keinem Thread starten. Das ist ja kein Integrationstest, der die 'Blackbox' (Thread und Objekt) testet, sondern nur das Abfeuern des Events.