Hi,
ich habe soeben den kleinen Zeh ins eisige DUnitX Wasser gesteckt und bin erschrocken zurück gezuckt.
Folgendes probiere ich, ich habe eine Methode einer Klasse, die einen Verbindungsversuch auf einen Webserver initiiert, und gemäß Antwortverhalten des somit "angepingten" eine Property dieser Klasse auf Connected setzt.
Testen wollte ich das mit einem Positiv Fall und einem Negativ Fall. Also so:
Delphi-Quellcode:
[TestFixture]
TMyFirstUnitTest =
class(TObject)
private
TestKomm: TMyKommunikation;
public
[Setup]
procedure Setup;
[TearDown]
procedure TearDown;
// Sample Methods
// Simple single Test
[Test]
[TestCase('
PingSuccess', '
192.168.110.78, True')]
[TestCase('
PingFail', '
127.0.0.1, False')]
procedure PingTest(
IP:
string; _Result: Boolean);
Im Test habe ich
Delphi-Quellcode:
procedure TMIVUnitTest.Setup;
begin
TestKomm := TMyKommunikation.Create;
end;
procedure TMyFirstUnitTest.TearDown;
begin
TestKomm.Free;
end;
procedure TMIVUnitTest.PingTest(
IP:
string; _Result: Boolean);
var
Erg: Boolean;
begin
TestKomm.ServerIP :=
IP;
TestKomm.Ping(True);
Erg := TestKomm.Connected;
Assert.IsEqual(Erg = _Result);
end;
_Result wird immer als True an die Testmethode gegeben, was zu falschen Ausgaben im Testrunner führt...erwarte ich da etwas unmögliches, oder mache ich etwas falsch?
Werde erst wieder Montrag antworten können (Wochenende, YAY!)
Sherlock