Discussion :

[zenetcalme]

Bonjour,

Je viens de commencer a utiliser Dunit pour faire quelques test sur un de mes projets.
Pour l'instant, je dirais tout vas bien, mais il y a 2 ou 3 points que je ne maitrise pas.
1 - Comment peut on généré un rapport avec cette outils?
2 - est ce qu'en cas de problèmes, (un Check qui passe pas) on peut encore faire une opération ou deux avant que ce test se termine?

Merci d'avance!

[zenetcalme]

Personne n'utilise DUnit?

[ShaiLeTroll]

J'ai utilisé PHPUnit et DUnit (Delphi 7)
- Le Premier génère un rapport par défaut (une page HTML pur)
- Le Second intégré dans un programme Delphi 7, lancer en ligne de commande par FinalBuilder en nocturne et le GUITestRunner fourni un TTestResult qui te donne le nombre de Test Lancé, en Echec et en Défaut que tu peux récupérer via Errors[] et Failures[] fournissant un TTestFailure dont je te laisse explorer les propriétés comme ThrownExceptionMessage
Suffit de lire le code, il est fourni

Sinon, il existe TextTestRunner qui écrit dans le STD OUTPUT, je crois que l'on peut l'utiliser en GUI en connectant un Pipe sur le StdOut tu pourras récupérer le contenu ou alors faire une appli console.

[zenetcalme]

Bonjour,

alors, effectivement j'ai le code. Il a été généré automatiquement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
  try
  {
 
	Application->Initialize();
	Guitestrunner::RunRegisteredTests();
  }
  catch (Exception &exception)
  {
     Application->ShowException(&exception);
  }
  catch (...)
  {
     try
     {
       throw Exception("");
     }
     catch (Exception &exception)
     {
       Application->ShowException(&exception);
     }
  }
  return 0;
}

Je suis allé voie la définition de "RunRegisteredTests" puisque c'est lui qui s'occupe de tout:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

extern PACKAGE void __fastcall RunRegisteredTests(void);

Moi je ne vois aucun code de retour. Je n'ai trouvé aucun accesseur me permettant de récupérer un TTestResult.

je trouve dommage d'avoir un projet graphique, et aucune fonction d'export écrite de base. je vais encore devoir me recogner une bonne partie du truc...
l'interface graphique m’étant demandé.

merci quand même...

[ShaiLeTroll]

Le Code de DUnit comme cela porte bien son nom "Delphi Test Unit" est écrit en Delphi !
Si tu veux voir le vrai code de DUnit, il ne faut pas se contenter des Headers générés mais du code Pascal qui contient l'implémentation donnant les obj utilisés en C++

Sinon, en mode GUI, je te conseille de laisser le Application->Run et d'avoir un bouton pour lancer les Tests (et\ou une gestion de la ligne de commande)

Je n'ai trouvé aucun accesseur me permettant de récupérer un TTestResult.

Tu cherches donc très mal !

Fichier GUITestRunner
Classe TGUITestRunner
Ligne 356 (version de 2007)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
	__property Testframework::TTestResult* TestResult = {read=FTestResult, write=FTestResult};

Ah, tu utilise un projet de Test séparé !
Perso, c'était le même projet (le réel et le test + directive de compil), les deux fois où je l'ai utilisé en Delphi, je n'étais pas à l'initiative de l'utilisation, c'était déjà intégré dans le projet principal et lançait la procédure RunRegisteredTests() dans un Bouton ou via CMD


Ne confond pas Guitestrunner::RunRegisteredTests() qui est la procédure RunRegisteredTests dans le namespace Guitestrunner
Et
TGUITestRunner::RunRegisteredTests qui est une méthode classe et en lisant le code Delphi, tu trouves comment faire ta propre version

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
void MyRunTest();
{
  TGUITestRunner *TestObj = TGUITestRunner.Create(NULL);
  try
  {
    TestObj->Suite = Testframework::RegisteredTests();
    TestObj->ShowModal();
 
    for int i = 0; i < TestObj->TestResult->ErrorCount; i++)
    {
      TestObj->TestResult->Errors[i]->ThrownExceptionMessage;
    }
  }     
  __finally
  {
    delete TestObj;
  }
}

Faut avouer que ce n'est pas bien difficile !

Dommage que TTextTestListener ne soit pas disponible en GUI, il me semble qu'il y a tout de même une bidouille pour utiliser Write, WriteLn sur Output (console) en mode GUI, faudrait retrouver cela !