« ExecuteTestSuiteScript (CM) » : différence entre les versions

De Wiki1000
(Page créée avec « <source lang='delphi'>function ExecuteTestSuiteScript(dbi:TDatabaseInfo; const iTestSuiteEnvName:string; var errorMsg:string):boolean;</source> Cette fonction initialise la … »)
 
mAucun résumé des modifications
 
(2 versions intermédiaires par un autre utilisateur non affichées)
Ligne 3 : Ligne 3 :
Cette fonction initialise la base de données en exécutant le scripts de base de données associé à l'environnement de test.
Cette fonction initialise la base de données en exécutant le scripts de base de données associé à l'environnement de test.


Si la base de données supporte le multi-société la fonction exécute le [[Script de partage|script de création des objets de partage]].
Si la base de données supporte le multi-société alors la fonction exécute le [[Script de partage|script de création des objets de partage]] associé à l'environnement de test.


{|class="wikitable"
{|class="wikitable"
Ligne 19 : Ligne 19 :
Exemple
Exemple
<source lang='delphi'>
<source lang='delphi'>
//Procedure Test_5_execute_script;
//Procedure Test_4_execute_script;
var dbi:TDatabaseinfo;errorMsg:string;
var dbi:TDatabaseinfo;errorMsg:string;
begin
begin
Ligne 40 : Ligne 40 :
{{Footer|Gestion des bases de données (CM)}}
{{Footer|Gestion des bases de données (CM)}}
[[category:ClassManager]]
[[category:ClassManager]]
[[category:CMDB]]
[[category:CMTest]]
[[category:Tests unitaires]]

Dernière version du 28 décembre 2018 à 08:21

<source lang='delphi'>function ExecuteTestSuiteScript(dbi:TDatabaseInfo; const iTestSuiteEnvName:string; var errorMsg:string):boolean;</source>

Cette fonction initialise la base de données en exécutant le scripts de base de données associé à l'environnement de test.

Si la base de données supporte le multi-société alors la fonction exécute le script de création des objets de partage associé à l'environnement de test.

Result True si l'initialisation s'est correctement réalisé
iTestSuiteEnvName Le nom d'un contexte de test.
errorMsg Le message d'erreur en cas d'erreur.

Exemple <source lang='delphi'> //Procedure Test_4_execute_script; var dbi:TDatabaseinfo;errorMsg:string; begin

 dbi := ClassManager.DatabaseByURL(ClassManager.DefDatabaseURL);
 Check(Assigned(dbi),'No database context');
 Abort(ClassManager.ExecuteTestSuiteScript(dbi,GlbTestSuiteEnvName,errorMsg),errorMsg);

end; </source>

Voir aussi :

{{#if:Gestion des bases de données (CM)|

{{#if:Gestion des bases de données (CM)|— Gestion des bases de données (CM) |}} — Développement DSM

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM

}}