fix EvilBeaver#1626.1: проверка корректности имени добавляемой колонки

Author: Mr-Rm

src/OneScript.StandardLibrary/Collections/ValueTable/ValueTableColumnCollection.cs

@@ -46,7 +46,10 @@ public ValueTableColumnCollection(ValueTable owner)
         /// <returns>КолонкаТаблицыЗначений</returns>
         [ContextMethod("Добавить", "Add")]
         public ValueTableColumn Add(string name, TypeDescription type = null, string title = null, int width = 0)
-        {
+        {
+            if (!Utils.IsValidIdentifier(name))
+                throw ColumnException.WrongColumnName(name);
+
             if (FindColumnByName(name) != null)
                 throw ColumnException.DuplicatedColumnName(name);
 
@@ -68,6 +71,9 @@ public ValueTableColumn Add(string name, TypeDescription type = null, string tit
         [ContextMethod("Вставить", "Insert")]
         public ValueTableColumn Insert(int index, string name, TypeDescription type = null, string title = null, int width = 0)
         {
+            if (!Utils.IsValidIdentifier(name))
+                throw ColumnException.WrongColumnName(name);
+
             if (FindColumnByName(name) != null)
                 throw ColumnException.DuplicatedColumnName(name);
 

tests/valuetable.os

@@ -52,6 +52,11 @@
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьСортировкуНеупорядочиваемыхТипов");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьСортировкуРазныхТипов");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьСортировкуПоПредставлению");
+	
+	ВсеТесты.Добавить("ТестДолжен_ВызватьИсключениеПриДобавленииКолонкиСНевернымИменем");
+	ВсеТесты.Добавить("ТестДолжен_ВызватьИсключениеПриВставкеКолонкиСНевернымИменем");
+	
+	
 	Возврат ВсеТесты;
 
 КонецФункции
@@ -951,3 +956,25 @@
 	юТест.ПроверитьРавенство(КодСимвола(ТЗ[3].Тест,1), 917, "greek");
 	юТест.ПроверитьРавенство(КодСимвола(ТЗ[4].Тест,1), 1045, "cyrillic");
 КонецПроцедуры
+
+Процедура ТестДолжен_ВызватьИсключениеПриДобавленииКолонкиСНевернымИменем() Экспорт
+	ТЗ = Новый ТаблицаЗначений();
+	Попытка
+		ТЗ.Колонки.Добавить("!@#");
+	Исключение
+		Возврат;
+	КонецПопытки;
+	
+	ВызватьИсключение "Должно было быть выдано исключение, но его не было";
+КонецПроцедуры
+
+Процедура ТестДолжен_ВызватьИсключениеПриВставкеКолонкиСНевернымИменем() Экспорт
+	ТЗ = Новый ТаблицаЗначений();
+	Попытка
+		ТЗ.Колонки.Вставить(0,"!@#");
+	Исключение
+		Возврат;
+	КонецПопытки;
+	
+	ВызватьИсключение "Должно было быть выдано исключение, но его не было";
+КонецПроцедуры