ExecuteTestSuiteScript (CM)
De Wiki1000
(Différences entre les versions)
m |
|||
| (Une révision intermédiaire par un utilisateur est masquée) | |||
| Ligne 19 : | Ligne 19 : | ||
Exemple | Exemple | ||
<source lang='delphi'> | <source lang='delphi'> | ||
| − | //Procedure | + | //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: | + | [[category:CMTest]] |
| + | [[category:Tests unitaires]] | ||
Version actuelle en date du 28 décembre 2018 à 09:21
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 :
