AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi Wie verhindere ich paralleles Ausführen von Integrationstests (DUnitX, TestInsight)?
Thema durchsuchen
Ansicht
Themen-Optionen

Wie verhindere ich paralleles Ausführen von Integrationstests (DUnitX, TestInsight)?

Ein Thema von wonderbird · begonnen am 4. Nov 2021 · letzter Beitrag vom 6. Nov 2021
 
wonderbird

Registriert seit: 4. Nov 2021
Ort: Rösrath
4 Beiträge
 
#5

AW: Wie verhindere ich paralleles Ausführen von Integrationstests (DUnitX, TestInsigh

  Alt 5. Nov 2021, 04:29
Das Problem habe ich gelöst, indem ich das DeleteFile am Anfang des Tests entfernt habe. Stattdessen habe ich ein "DELETE FROM exercises" statement nach dem CREATE eingefügt (s.u.). Nun laufen die Tests zuverlässig durch.

Danke Stevie, dass Du die Abhängigkeiten hervorgehoben hast.

Mir war zwar bewusst, dass ich durch die gemeinsame Datenbank-Datei "shared state" habe, aber ich dachte es reicht aus, die Datei vor Testbeginn zu löschen. Ich nehme an, dass FireDAC und SQLite die DB cachen. Dadurch würden sich die Tests trotzdem weiterhin beeinflussen.

Es hat nicht ausgereicht, das DeleteFile Statement ans Ende der Tests bzw. in eine TearDown Methode zu verschieben.

Danke Euch beiden für die Diskussion Sie hat mir ein paar gute Einblicke in DUnitX und TestInsight verschafft.

--
Hier kommt der Fix:

Code:
diff --git a/Repository/TestUsingFireDAC.pas b/Repository/TestUsingFireDAC.pas
index 7bf9246..b753b1f 100644
--- a/Repository/TestUsingFireDAC.pas
+++ b/Repository/TestUsingFireDAC.pas
@@ -30,13 +30,13 @@ var
   Query: TFDQuery;
   Value: TDateTime;
 begin
-  DeleteFile(TSqliteDatabaseConfiguration.DatabaseFileName);
-
   Connection := TFDConnection.Create(nil);
   Connection.ConnectionDefName := TSqliteDatabaseConfiguration.ConnectionDefinitionName;
   Connection.Connected := True;

   Connection.ExecSQL('CREATE TABLE IF NOT EXISTS exercises (id INTEGER PRIMARY KEY AUTOINCREMENT, start DATETIME)');
+  Connection.ExecSQL('DELETE FROM exercises');
+
   Connection.ExecSQL('INSERT INTO exercises VALUES (NULL, ''2021-10-08T07:00:00.000Z'')');

   Query := TFDQuery.Create(nil);
Stefan
  Mit Zitat antworten Zitat
 

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:03 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz