Finish 0.9.2

Author: khorevaa

packagedef

@@ -3,7 +3,7 @@
 // Полную документацию см. на hub.oscript.io/packaging
 
 Описание.Имя("v8storage")
-		.Версия("0.9.1")
+		.Версия("0.9.2")
 		.ВерсияСреды("1.0.21")
 		.ЗависитОт("asserts")
 		.ЗависитОт("fluent", "0.3.1")

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

@@ -23,15 +23,17 @@
 
 Функция ПрочитатьТекстСкобкоФайлаРегулярками(Знач Текст)
 
-	Текст = СтрЗаменить(Текст, """""", "'");
+	СпецСимвол = Символ(0); 
+	Текст = СтрЗаменить(Текст, """""", СпецСимвол);
 
 	РегВыражение = Новый РегулярноеВыражение("[\{]""#"",""([^""]+)[""][\}]");
 	МассивСовпадений = РегВыражение.НайтиСовпадения(Текст);
 
 	Массив = Новый Массив();
 
 	Для каждого Совпадение Из МассивСовпадений Цикл
-		Массив.Добавить(Совпадение.Группы[1].Значение);
+		Значение = СтрЗаменить(Совпадение.Группы[1].Значение, СпецСимвол, """""");
+		Массив.Добавить(Значение);
 	КонецЦикла;
 
 	ТаблицаВерсий = СформироватьТаблицуВерсий(Массив);
@@ -126,6 +128,7 @@
     ТаблицаВерсий.Колонки.Добавить("Номер");
     ТаблицаВерсий.Колонки.Добавить("Дата");
     ТаблицаВерсий.Колонки.Добавить("Время");
+    ТаблицаВерсий.Колонки.Добавить("Версия");
     ТаблицаВерсий.Колонки.Добавить("Автор");
     ТаблицаВерсий.Колонки.Добавить("Комментарий");
     ТаблицаВерсий.Колонки.Добавить("Изменены");
@@ -159,6 +162,8 @@
 	 		ИмяПоля = "Дата";
 		ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Время создания:") Тогда
 	 		ИмяПоля = "Время";
+		ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Версия конфигурации:") Тогда
+	 		ИмяПоля = "Версия";
 		ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Комментарий:") Тогда
 	 		ИмяПоля = "Комментарий";
 		ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Изменены:") Тогда

tests/fixtures/report.quoted.mxl.txt

@@ -12,11 +12,27 @@
 	ИменаТестов = Новый Массив;
 
 	ИменаТестов.Добавить("ТестДолжен_ПроверитьЧтениеОтчетаХранилища");
+	ИменаТестов.Добавить("ТестДолжен_ПроверитьЧтениеОтчетаХранилищаКавычкиВКомментарии");
 
 	Возврат ИменаТестов;
 
 КонецФункции
 
+Процедура ТестДолжен_ПроверитьЧтениеОтчетаХранилищаКавычкиВКомментарии() Экспорт
+
+	ПутьКФайлуОтчета = ОбъединитьПути(ТекущийСценарий().Каталог, "fixtures", "report.quoted.mxl.txt");
+	ПарсерОтчетаХранилища = Новый ПарсерОтчетаХранилища;
+	ТаблицаВерсийХранилища = ПарсерОтчетаХранилища.ПрочитатьФайлОтчетаХранилища(ПутьКФайлуОтчета);
+	Ожидаем.Что(ТаблицаВерсийХранилища.Количество(), "Количество версий должно быть равны").Равно(2);
+	Ожидаем.Что(ТаблицаВерсийХранилища[1].Комментарий).Равно(
+		"Многострочный комментарий к версии хранилища, содержащий:
+		|* ""двойные кавычки""
+		|* 'одинарные кавычки'
+		|* несколько кавычек подряд: """""" и '''");
+
+
+КонецПроцедуры // ТестДолжен_ПроверитьЧтениеОтчетаХранилищаКавычкиВКомментарии()
+
 Процедура ТестДолжен_ПроверитьЧтениеОтчетаХранилища() Экспорт
 
 	ПутьКФайлуОтчета = ОбъединитьПути(ТекущийСценарий().Каталог, "fixtures", "report.mxl.txt");