Environnement des tests unitaires (testsuite) - Historique des versions

Thdym le 13 décembre 2011 à 13:29

2011-12-13T13:29:32Z

Thdym le 13 décembre 2011 à 13:26

2011-12-13T13:26:32Z

Syfre le 2 décembre 2011 à 10:47

2011-12-02T10:47:36Z

Syfre le 28 septembre 2011 à 08:03

2011-09-28T08:03:27Z

Syfre le 28 septembre 2011 à 07:52

2011-09-28T07:52:42Z

Syfre : Page créée avec « Une bonne pratique consiste à exécuter les tests unitaires dans un Dossier de test qui présente la particularité de n'être pas rattaché à une base de données. A l'i… »

2011-09-28T07:34:53Z

Page créée avec « Une bonne pratique consiste à exécuter les tests unitaires dans un Dossier de test qui présente la particularité de n'être pas rattaché à une base de données. A l'i… »

Nouvelle page

Une bonne pratique consiste à exécuter les tests unitaires dans un Dossier de test qui présente la particularité de n'être pas rattaché à une base de données.

A l'intérieur de ce dossier vos premiers tests enregistreront et créeront une base de données puis initialiseront cette base des données de test. Ainsi vos tests s'exécuteront dans un environnement isolé et stable qui garantira la reproductibilité.

Pour ce faire :

1. Créer un dossier de test dans l'administration en cochant l'option "Ce dossier est un dossier de test" sur la page de sélection de la base de données.

2. A l'intérieur de vos tests définissez une première classe de test dont la responsabilité est de :

:* Enregistrer une base de données dont le nom est unique et lié à votre session de test.
:* Supprimer cette base de données
:* Créer cette base de données
:* Synchroniser cette base de données
:* Initialiser cette base de données

Créer ensuite vos donner de test.

* {{#images:image9.png|dsm\designer\testsuite}}

L'arborescence des tests doit être organisée de sorte que ces tests d'initialisation soient exécutés en premier, utilisé l'ordre du nom de test pour ceci.

Le code de ces tests sera le suivant :

<source lang="delphi">
//Procedure Test_0_RegisterDatabase;
var dbi:TDatabaseInfo;
begin
Abort(GlbTestSuiteEnvName<>'','Test environnement not set');
Abort(GlbTestSuiteDatabaseName<>'','Test database name not set');
dbi := ClassManager.RegisterTestDatabase(GlbTestSuiteEnvName,GlbTestSuiteDatabaseName);
Abort(Assigned(dbi),'Register database failed');
ClassManager.defDatabaseURL := dbi.URL;
end;

//Procedure Test_1_drop_database;
var dbi:TDatabaseinfo;
begin
dbi := ClassManager.DatabaseByURL(ClassManager.DefDatabaseURL);
Check(Assigned(dbi),'No database context');
Abort(ClassManager.DropDatabase(dbi),'Drop database failed');
end;

//Procedure Test_2_create_database;
var dbi:TDatabaseinfo;
begin
dbi := ClassManager.DatabaseByURL(ClassManager.DefDatabaseURL);
Check(Assigned(dbi),'No database context');
Abort(ClassManager.CreateDatabase(dbi),'Create database failed');
end;

//Procedure Test_3_sync_database;
var dbi:TDatabaseinfo;
begin
dbi := ClassManager.DatabaseByURL(ClassManager.DefDatabaseURL);
Check(Assigned(dbi),'No database context');
Abort(ClassManager.SyncDatabase(dbi),'Sync database failed');
end;

//Procedure Test_4_init_database;
var dbi:TDatabaseinfo;
begin
dbi := ClassManager.DatabaseByURL(ClassManager.DefDatabaseURL);
Check(Assigned(dbi),'No database context');
Abort(ClassManager.InitDatabase(dbi),'Init database failed');
end;

</source>

[[Category:Tests unitaires]]

@@ Ligne 86 : / Ligne 86 : @@
 * [[SyncDatabase (CM)|SyncDatabase]]
 * [[InitDatabase (CM)|InitDatabase]]
 [[Category:Tests unitaires]]

@@ Ligne 73 : / Ligne 73 : @@
 GlbTestSuiteEnvName
-:Nom d'un contexte de test, le contexte défini les paramètres de la base de données.
+:Nom d'un contexte de test, [[Contexte de test unitaire (testsuite)|le contexte]] défini les paramètres de la base de données.
 GlbTestSuiteDatabaseName
 :Nom de la base de données
 [[Category:Tests unitaires]]

@@ Ligne 13 : / Ligne 13 : @@
 :* Créer cette base de données
 :* Synchroniser cette base de données
 :* Initialiser cette base de données
 Créer ensuite vos donner de test.
 {{#images:image9.png|dsm\designer\testsuite}}
@@ Ligne 58 : / Ligne 61 : @@
 end;
-//Procedure Test_4_init_database;
+//Procedure Test_4_execute_script;
 var dbi:TDatabaseinfo;
 begin

@@ Ligne 17 : / Ligne 17 : @@
 Créer ensuite vos donner de test.
-* {{#images:image9.png|dsm\designer\testsuite}}
+{{#images:image9.png|dsm\designer\testsuite}}
 L'arborescence des tests doit être organisée de sorte que ces tests d'initialisation soient exécutés en premier, utilisé l'ordre du nom de test pour ceci.
@@ Ligne 68 : / Ligne 68 : @@
 </source>
 [[Category:Tests unitaires]]