Merge pull request #31 from Ndochp/8storage_issues_29

8storage issues 29

Author: khorevaa

.github/workflows/qa.yml

@@ -31,6 +31,8 @@ jobs:
         uses: otymko/setup-onescript@v1.0
         with:
           version: ${{ matrix.oscript_version }}
+	env:
+          ACTIONS_ALLOW_UNSECURE_COMMANDS: true
 
       # Установка зависимостей пакета
       - name: Установка зависимостей
@@ -41,6 +43,8 @@ jobs:
           opm install 1bdd 
           opm install notify
           opm install coverage
+	env:
+          ACTIONS_ALLOW_UNSECURE_COMMANDS: true
 
       # Запуск тестов и сбор покрытия кода
       - name: Покрытие кода
@@ -53,6 +57,9 @@ jobs:
 
       - name: Установка Sonar-scanner
         uses: warchant/setup-sonar-scanner@v1
+	env:
+          # отключение безопасности установки, от 2020-10-01
+          ACTIONS_ALLOW_UNSECURE_COMMANDS: true
 
       # Анализ проекта в SonarQube (ветка)
       - name: Анализ в SonarQube (branch)

.github/workflows/testing.yml

@@ -25,6 +25,8 @@ jobs:
         uses: otymko/setup-onescript@v1.0
         with:
           version: ${{ matrix.oscript_version }}
+	env:
+          ACTIONS_ALLOW_UNSECURE_COMMANDS: true
 
       # Установка зависимостей пакета
       - name: Установка зависимостей
@@ -35,6 +37,8 @@ jobs:
           opm install 1bdd 
           opm install notify
           opm install coverage
+	env:
+          ACTIONS_ALLOW_UNSECURE_COMMANDS: true
 
       # Задача тестирования, в результате ожидается успешное выполнение
       - name: Тестирование Unit

src/Классы/internal/ripper/Классы/ПарсерОтчетаХранилища.os

@@ -131,6 +131,8 @@
     ТаблицаВерсий.Колонки.Добавить("Версия");
     ТаблицаВерсий.Колонки.Добавить("Автор");
     ТаблицаВерсий.Колонки.Добавить("Комментарий");
+    ТаблицаВерсий.Колонки.Добавить("Метка");
+    ТаблицаВерсий.Колонки.Добавить("КомментарийМетки");
     ТаблицаВерсий.Колонки.Добавить("Изменены");
     ТаблицаВерсий.Колонки.Добавить("Добавлены");
  	ТаблицаВерсий.Колонки.Добавить("Удалены");
@@ -165,7 +167,11 @@
 		ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Версия конфигурации:") Тогда
 	 		ИмяПоля = "Версия";
 		ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Комментарий:") Тогда
-	 		ИмяПоля = "Комментарий";
+			ИмяПоля = "Комментарий";
+		ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Метка:") Тогда
+			ИмяПоля = "Метка";
+		ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Комментарий метки:") Тогда
+			ИмяПоля = "КомментарийМетки";
 		ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Изменены:") Тогда
 	 		ИмяПоля = "Изменены";
 		ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Добавлены:") Тогда
@@ -184,7 +190,8 @@
 
 
 
-				ИначеЕсли ИмяПоля = "Комментарий" Тогда 
+				ИначеЕсли ИмяПоля = "Комментарий" 
+					Или ИмяПоля = "КомментарийМетки" Тогда 
 
 					СтрокаТаблицы[ИмяПоля] = СократитьКавычки(ТекущаяСтрока);
 

tests/fixtures/report.mark.mxl.txt

@@ -13,13 +13,24 @@
 
 	ИменаТестов.Добавить("ТестДолжен_ПроверитьЧтениеОтчетаХранилища");
 	ИменаТестов.Добавить("ТестДолжен_ПроверитьЧтениеОтчетаХранилищаКавычкиВКомментарии");
+	ИменаТестов.Добавить("ТестДолжен_ПроверитьЧтениеОтчетаХранилищаКомментарийПриМетке");
 
 	Возврат ИменаТестов;
 
 КонецФункции
 
-Процедура ТестДолжен_ПроверитьЧтениеОтчетаХранилищаКавычкиВКомментарии() Экспорт
+Процедура ТестДолжен_ПроверитьЧтениеОтчетаХранилищаКомментарийПриМетке() Экспорт
+
+	ПутьКФайлуОтчета = ОбъединитьПути(ТекущийСценарий().Каталог, "fixtures", "report.mark.mxl.txt");
+	ПарсерОтчетаХранилища = Новый ПарсерОтчетаХранилища;
+	ТаблицаВерсийХранилища = ПарсерОтчетаХранилища.ПрочитатьФайлОтчетаХранилища(ПутьКФайлуОтчета);
+	Ожидаем.Что(ТаблицаВерсийХранилища.Количество(), "Количество версий должно быть равны").Равно(3);
+	Ожидаем.Что(ТаблицаВерсийХранилища[2].Комментарий).Равно(
+		"Добавлен реквизит в справочник dneumoychev@PTSECURITY.RU, 2020-12-23 06:41:38"
+	);
+КонецПроцедуры 
 
+Процедура ТестДолжен_ПроверитьЧтениеОтчетаХранилищаКавычкиВКомментарии() Экспорт
 	ПутьКФайлуОтчета = ОбъединитьПути(ТекущийСценарий().Каталог, "fixtures", "report.quoted.mxl.txt");
 	ПарсерОтчетаХранилища = Новый ПарсерОтчетаХранилища;
 	ТаблицаВерсийХранилища = ПарсерОтчетаХранилища.ПрочитатьФайлОтчетаХранилища(ПутьКФайлуОтчета);
@@ -30,9 +41,9 @@
 		|* 'одинарные кавычки'
 		|* несколько кавычек подряд: """""" и '''");
 
-
 КонецПроцедуры // ТестДолжен_ПроверитьЧтениеОтчетаХранилищаКавычкиВКомментарии()
 
+
 Процедура ТестДолжен_ПроверитьЧтениеОтчетаХранилища() Экспорт
 
 	ПутьКФайлуОтчета = ОбъединитьПути(ТекущийСценарий().Каталог, "fixtures", "report.mxl.txt");