FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 119, nombre de questions : 909, dernière mise à jour : 22 décembre 2016  Ajouter une question

 

Cette FAQ a été réalisée à partir des questions fréquemment posées sur les forums Delphi et Delphi et bases de données de www.developpez.com et de l'expérience personnelle des auteurs.

Nous tenons à souligner que cette FAQ ne garantit en aucun cas que les informations qu'elle propose soient correctes. Les auteurs font le maximum, mais l'erreur est humaine. Cette FAQ ne prétend pas non plus être complète. Si vous souhaitez y apporter des corrections ou la compléter, contactez un responsable (lien au bas de cette page).

Nous espérons que cette FAQ saura répondre à vos attentes. Nous vous en souhaitons une bonne lecture.

L'équipe Delphi de Developpez.com.

Commentez


SommaireInterface utilisateurDUnitInterface graphique (1)
précédent sommaire suivant
 

L'interface ne proposant pas par défaut cette fonctionnalité, vous trouverez ici une solution pour ce faire.

Dans un premier temps déclarons une unité dédiée à la déclaration d'une classe dérivée de la classe TGUITestRunner.

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
unit ToolsDUnit; 
interface 
  
uses TestFramework, 
     GUITestRunner, 
     SysUtils, 
     Classes, 
     Dialogs; 
type 
  // Il existe 2 types d'erreur qui nous intéressent 
 TypeErreur=(Echec,Exception); 
  
const 
 TabTypeErreur: Array[TypeErreur] Of String[9]=('Echec','Exception'); 
  
type 
  // La solution nécessite d'utiliser l'interface ITestListener 
 TGUIMyTestRunner = class(TGUITestRunner,ITestListener) 
   Procedure TestingEnds(TestResult :TTestResult); Virtual; 
   Function TestResultToCSV(TestResult :TTestResult;Delimiteur:String): TStringList; Virtual;   
 end; 
  
 procedure RunRegisteredTestsAndSave; // Suis le principe de la classe de base 
  
implementation 
  
Function TGUIMyTestRunner.TestResultToCSV(TestResult :TTestResult;Delimiteur:String): TStringList; 
 Var I:Integer;  procedure AddLine(TypeTest:String;ATest:TTestFailure); 
 begin 
  With ATest do 
   // Type :Echec,Exception;Nom de test;Nom de l'exception;Message de l'exception;Adresse de l'exception; 
   // Localisation de l'erreur; pile d'appel 
  Result.Add(TypeTest+Delimiteur+ 
             FailedTest.Name+Delimiteur+ 
             ThrownExceptionName+Delimiteur+ 
             ThrownExceptionMessage+Delimiteur+ 
             AddressInfo+Delimiteur+ 
             LocationInfo+Delimiteur+ 
             StackTrace); 
 end; 
  
begin 
 Result:=TStringList.Create; 
 With TestResult do 
  begin 
   If ErrorCount>0 then 
      // Errors contient la liste des exceptions 
     For I:=0 to ErrorCount-1 do 
      AddLine(TabTypeErreur[Echec],Errors[I]); 
  
   If FailureCount>0 then 
     // Failures contient la liste des cas de test en erreur 
     For I:=0 to FailureCount-1 do 
       With Failures[I] do 
        AddLine(TabTypeErreur[Exception],Failures[I]); 
 end; 
end; 
  
procedure TGUIMyTestRunner.TestingEnds(TestResult :TTestResult); Var Resultat : TStringList; begin  Try 
   if Assigned(TestResult) then 
     if (TestResult.ErrorCount>0) or (TestResult.FailureCount>0) then 
      begin 
        Resultat:=TestResultToCSV(TestResult,';'); 
        Resultat.SaveToFile(IncludeTrailingBackSlash(ExtractFilePath(ParamStr(0)))+ 'DUnit_Resultat.txt'); 
      end; 
 Finally 
  If Assigned(Resultat) 
   then Resultat.Free; 
 end; 
end; 
  
procedure RunRegisteredTestsAndSave; 
Var TestRunner : TGUIMyTestRunner; 
begin 
  TestRunner:=TGUIMyTestRunner.Create(nil); 
  With TestRunner do 
  begin 
    try 
      Suite := RegisteredTests; 
      ShowModal; 
    finally 
      Free; 
    end; 
  end; 
end; 
  
end.
Dans un second temps l'appel des tests dans le fichier DPR devient :
Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
begin 
  Application.Initialize; 
  if IsConsole then 
    TextTestRunner.RunRegisteredTests 
  else 
    //Code d'origine remplacé : 
    // GUITestRunner.RunRegisteredTests; 
   RunRegisteredTestsAndSave; 
end.

Mis à jour le 24 janvier 2014 Laurent Dardenne

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2017 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

 
Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -