Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Добавил проверку ОМ ПолныеПрава, closes #553 #554

Merged
merged 1 commit into from
Sep 25, 2019
Merged

Добавил проверку ОМ ПолныеПрава, closes #553 #554

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
67 changes: 65 additions & 2 deletions tests/smoke/Tests_SmokeCommonModules/Tests_SmokeCommonModules/Ext/ObjectModule.bsl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -298,6 +298,66 @@ Procedure Fact_ServerModule(CommonModuleName, Transaction = False) Export

EndProcedure // Fact_ServerModule()

// Tests whether server common module with full access rights is set properly.
//
// Parameters:
// CommonModuleName - String - common module name.
// Transaction - Boolean - shows if transaction exist.
// Default value: False.
//
Procedure Fact_FullAccessModule(CommonModuleName, Transaction = False) Export

Module = Metadata.CommonModules.Find(CommonModuleName);

Assertions.ПроверитьТип(Module, "MetadataObject");

Assertions.ПроверитьЛожь(Module.Global, _StrTemplate(
NStr("en='Participation in global context creation {%1}';
|ru='Участие в формировании глобального контекста {%1}';
|uk='Участь у формуванні глобального контексту {%1}';
|en_CA='Participation in global context creation {%1}'"),
CommonModuleName));

Assertions.ПроверитьЛожь(Module.ClientManagedApplication, _StrTemplate(
NStr("en='Use of managed application in the client {%1}';
|ru='Использование в клиенте управляемого приложения {%1}';
|uk='Використання в клієнті керованого додатку {%1}';
|en_CA='Use of managed application in the client {%1}'"),
CommonModuleName));

Assertions.ПроверитьИстину(Module.Server, _StrTemplate(
NStr("en='Run on server in client/server mode {%1}';
|ru='Выполнение на сервере в клиент-серверном варианте {%1}';
|uk='Виконання на сервері в клієнт-серверному варіанті {%1}';
|en_CA='Run on server in client/server mode {%1}'"),
CommonModuleName));

Assertions.ПроверитьЛожь(Module.ExternalConnection, _StrTemplate(
NStr("en='Use in external connection {%1}';
|ru='Использование во внешнем соединении {%1}';
|uk='Використання в зовнішньому з''єднанні {%1}';
|en_CA='Use in external connection {%1}'"),
CommonModuleName));

Assertions.ПроверитьЛожь(Module.ClientOrdinaryApplication, _StrTemplate(
NStr("en='Use of ordinary application in the client {%1}';
|ru='Использование в клиенте обычного приложения {%1}';
|uk='Використання в клієнті звичайного додатку {%1}';
|en_CA='Use of ordinary application in the client {%1}'"),
CommonModuleName));

Assertions.ПроверитьЛожь(Module.ServerCall, _StrTemplate(
NStr("en='Allows server call {%1}';
|ru='Разрешает вызов сервера {%1}';
|uk='Дозволяє виклик сервера {%1}';
|en_CA='Allows server call {%1}'"),
CommonModuleName));

Fact_FullAccessRightsGranted(CommonModuleName, Module);
Fact_ModuleReuseReturnValues(CommonModuleName, Module);

EndProcedure // Fact_FullAccessModule()

// Tests whether client-server common module is set properly.
//
// Parameters:
Expand Down Expand Up @@ -443,12 +503,10 @@ Procedure AddSmokeCommonModuleTest(TestsSet, CommonModule)

NameToAnalyze = CommonModule.Name;
NameToAnalyze = StrReplace(NameToAnalyze, "Cached", "");
NameToAnalyze = StrReplace(NameToAnalyze, "FullAccess", "");
NameToAnalyze = StrReplace(NameToAnalyze, "Overridable", "");
NameToAnalyze = StrReplace(NameToAnalyze, "ReUse", "");
NameToAnalyze = StrReplace(NameToAnalyze, "Переопределяемый", "");
NameToAnalyze = StrReplace(NameToAnalyze, "ПовтИсп", "");
NameToAnalyze = StrReplace(NameToAnalyze, "ПолныеПрава", "");
SuffixPart = Right(NameToAnalyze, 6);

TestParameters = TestsSet.ПараметрыТеста(CommonModule.Name, False);
Expand All @@ -472,6 +530,11 @@ Procedure AddSmokeCommonModuleTest(TestsSet, CommonModule)

TestName = "Fact_ClientModule";

ElsIf Find(CommonModule.Name, "ПолныеПрава") <> 0
Or Find(CommonModule.Name, "FullAccess") <> 0 Then

TestName = "Fact_FullAccessModule";

Else

TestName = "Fact_ServerModule";
Expand Down