ExecuteTestSuiteScript (CM)

De Wiki1000
function ExecuteTestSuiteScript(dbi:TDatabaseInfo; const iTestSuiteEnvName:string; var errorMsg:string):boolean;

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

//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;

Voir aussi :

Gestion des bases de données (CM)Développement DSM

Outils personnels