Skip to content

Перевод аннотаций на &ПсевдонимДля #26

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

Open
nixel2007 wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Перевод аннотаций на &ПсевдонимДля #26

Show file tree
Hide file tree
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
2 changes: 1 addition & 1 deletion packagedef
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -19,7 +19,7 @@
.ВключитьФайл("oscript_modules")

.ЗависитОт("1commands", "1.5.0")
.ЗависитОт("annotations", "1.4.0")
.ЗависитОт("annotations", "1.6.0")
Comment thread
nixel2007 marked this conversation as resolved.
.ЗависитОт("asserts", "1.6.1")
.ЗависитОт("async", "0.3.0")
.ЗависитОт("autumn", "4.3.12")
Expand Down
12 changes: 6 additions & 6 deletions src/core/Классы/АннотацияВключенДляOneScript.os
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,6 @@
#Использовать semver
#Использовать annotations

Перем _Причина; // Причина пропуска
Перем _Версия; // Проверяемая версия OneScript

// Аннотация определяет что тест выполняется только для версий OneScript соответствующих указанному диапазону.
Expand All @@ -28,9 +27,12 @@
//
&Аннотация("ВключенДляOneScript")
&ВключенЕсли(Значение = "")
Процедура ПриСозданииОбъекта(Значение, Причина = "Выключен для текущей версии OneScript")
_Версия = Значение;
_Причина = Причина;
Процедура ПриСозданииОбъекта(
Значение,
&ПсевдонимДля(Аннотация = "ВключенЕсли", Параметр = "Причина", ПереноситьЗначениеПоУмолчанию = Истина)
Причина = "Выключен для текущей версии OneScript"
)
_Версия = Значение;
КонецПроцедуры

Процедура ПриРазворачиванииАннотации(ОпределениеАннотации, ПодчиненныеАннотации, ВладелецСвойства, Свойство) Экспорт
Expand All @@ -43,6 +45,4 @@
СтрШаблон("() -> Версии.ВерсияВДиапазоне(Новый СистемнаяИнформация().Версия, ""%1"");", _Версия)
);

РаботаСАннотациями.УстановитьЗначениеПараметраАннотации(Аннотация, "Причина", _Причина);

КонецПроцедуры
9 changes: 5 additions & 4 deletions src/core/Классы/АннотацияВключенНаОС.os
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,6 @@
#Использовать annotations
#Использовать collectionos

Перем _Причина; // Причина пропуска теста
Перем _ОперационнаяСистема; // Переданная операционная система

Перем ВозможныеОС; // Допустимые значения для указания операционной системы
Expand Down Expand Up @@ -34,10 +33,13 @@
//
&Аннотация("ВключенНаОС")
&ВключенЕсли(Значение = "")
Процедура ПриСозданииОбъекта(Значение, Причина = "Выключен в текущей операционной системе")
Процедура ПриСозданииОбъекта(
Значение,
&ПсевдонимДля(Аннотация = "ВключенЕсли", Параметр = "Причина", ПереноситьЗначениеПоУмолчанию = Истина)
Причина = "Выключен в текущей операционной системе"
)

_ОперационнаяСистема = Значение;
_Причина = Причина;

ВозможныеОС = Списки.ИзЭлементов("Windows", "Linux", "MacOS");

Expand All @@ -50,7 +52,6 @@
Процедура ПриРазворачиванииАннотации(ОпределениеАннотации, ПодчиненныеАннотации, ВладелецСвойства, Свойство) Экспорт

Аннотация = РаботаСАннотациями.НайтиАннотацию(ПодчиненныеАннотации, "ВключенЕсли");
РаботаСАннотациями.УстановитьЗначениеПараметраАннотации(Аннотация, "Причина", _Причина);

Условие =
"() ->
Expand Down
10 changes: 1 addition & 9 deletions src/core/Классы/АннотацияВыключен.os
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,5 @@
#Использовать annotations

Перем _Причина; // Причина пропуска теста

// Аннотация безусловно выключает выполнение теста
//
// Параметры:
Expand All @@ -14,11 +12,5 @@
//
&Аннотация("Выключен")
&ВыключенЕсли(Значение = "() -> Истина")
Процедура ПриСозданииОбъекта(Значение)
_Причина = Значение;
КонецПроцедуры

Процедура ПриРазворачиванииАннотации(ОпределениеАннотации, ПодчиненныеАннотации, ВладелецСвойства, Свойство) Экспорт
Аннотация = РаботаСАннотациями.НайтиАннотацию(ПодчиненныеАннотации, "ВыключенЕсли");
РаботаСАннотациями.УстановитьЗначениеПараметраАннотации(Аннотация, "Причина", _Причина);
Процедура ПриСозданииОбъекта(&ПсевдонимДля(Аннотация = "ВыключенЕсли", Параметр = "Причина") Значение)
КонецПроцедуры
12 changes: 6 additions & 6 deletions src/core/Классы/АннотацияВыключенДляOneScript.os
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,6 @@
#Использовать semver
#Использовать annotations

Перем _Причина; // Причина пропуска
Перем _Версия; // Проверяемая версия OneScript

// Аннотация определяет что тест не будет выполнятся для версий OneScript соответствующих указанному диапазону.
Expand All @@ -28,9 +27,12 @@
//
&Аннотация("ВыключенДляOneScript")
&ВыключенЕсли(Значение = "")
Процедура ПриСозданииОбъекта(Значение, Причина = "Выключен для текущей версии OneScript")
_Версия = Значение;
_Причина = Причина;
Процедура ПриСозданииОбъекта(
Значение,
&ПсевдонимДля(Аннотация = "ВыключенЕсли", Параметр = "Причина", ПереноситьЗначениеПоУмолчанию = Истина)
Причина = "Выключен для текущей версии OneScript"
)
_Версия = Значение;
КонецПроцедуры

Процедура ПриРазворачиванииАннотации(ОпределениеАннотации, ПодчиненныеАннотации, ВладелецСвойства, Свойство) Экспорт
Expand All @@ -43,6 +45,4 @@
СтрШаблон("() -> Версии.ВерсияВДиапазоне(Новый СистемнаяИнформация().Версия, ""%1"");", _Версия)
);

РаботаСАннотациями.УстановитьЗначениеПараметраАннотации(Аннотация, "Причина", _Причина);

КонецПроцедуры
9 changes: 5 additions & 4 deletions src/core/Классы/АннотацияВыключенНаОС.os
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,6 @@
#Использовать annotations
#Использовать collectionos

Перем _Причина; // Причина пропуска теста
Перем _ОперационнаяСистема; // Переданная операционная система

Перем ВозможныеОС; // Допустимые значения для указания операционной системы
Expand Down Expand Up @@ -34,10 +33,13 @@
//
&Аннотация("ВыключенНаОС")
&ВыключенЕсли(Значение = "")
Процедура ПриСозданииОбъекта(Значение, Причина = "Выключен в текущей операционной системе")
Процедура ПриСозданииОбъекта(
Значение,
&ПсевдонимДля(Аннотация = "ВыключенЕсли", Параметр = "Причина", ПереноситьЗначениеПоУмолчанию = Истина)
Причина = "Выключен в текущей операционной системе"
)

_ОперационнаяСистема = Значение;
_Причина = Причина;

ВозможныеОС = Списки.ИзЭлементов("Windows", "Linux", "MacOS");

Expand All @@ -50,7 +52,6 @@
Процедура ПриРазворачиванииАннотации(ОпределениеАннотации, ПодчиненныеАннотации, ВладелецСвойства, Свойство) Экспорт

Аннотация = РаботаСАннотациями.НайтиАннотацию(ПодчиненныеАннотации, "ВыключенЕсли");
РаботаСАннотациями.УстановитьЗначениеПараметраАннотации(Аннотация, "Причина", _Причина);

Условие =
"() ->
Expand Down
15 changes: 4 additions & 11 deletions src/core/Классы/АннотацияТестовыйНабор.os
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,14 +1,5 @@
#Использовать annotations

Перем _Характер;

Процедура ПриРазворачиванииАннотации(ОпределениеАннотации, ПодчиненныеАннотации, ТипВладельцаСвойств, Свойство) Экспорт

Аннотация = РаботаСАннотациями.НайтиАннотацию(ПодчиненныеАннотации, "Характер");
РаботаСАннотациями.УстановитьЗначениеПараметраАннотации(Аннотация, "Значение", _Характер);

КонецПроцедуры

// Аннотация указывает что сценарий является тестовым набором.
// Аннотацию необходимо размещать над конструктором сценария.
// Можно указать способ управления жизненным циклом тестового набора.
Expand All @@ -28,6 +19,8 @@
&Прозвище("ТестовыйНабор")
&Характер(Значение = "")
&Желудь
Процедура ПриСозданииОбъекта(Характер = "Компанейский")
_Характер = Характер;
Процедура ПриСозданииОбъекта(
&ПсевдонимДля(Аннотация = "Характер", Параметр = "Значение", ПереноситьЗначениеПоУмолчанию = Истина)
Характер = "Компанейский"
)
КонецПроцедуры
Loading