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 :