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

Author: Mr-Rm

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

@@ -45,7 +45,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);
 
@@ -67,6 +70,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

@@ -78,6 +78,11 @@
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьЗапятуюВИменахКолонок_СПустыми");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьИсключениеДляИндекса");
 
+	
+	ВсеТесты.Добавить("ТестДолжен_ВызватьИсключениеПриДобавленииКолонкиСНевернымИменем");
+	ВсеТесты.Добавить("ТестДолжен_ВызватьИсключениеПриВставкеКолонкиСНевернымИменем");
+	
+	
 	Возврат ВсеТесты;
 
 КонецФункции
@@ -1234,3 +1239,25 @@
 
 	ВызватьИсключение "Ожидали исключение, но его не было";
 КонецПроцедуры
+
+Процедура ТестДолжен_ВызватьИсключениеПриДобавленииКолонкиСНевернымИменем() Экспорт
+	ТЗ = Новый ТаблицаЗначений();
+	Попытка
+		ТЗ.Колонки.Добавить("!@#");
+	Исключение
+		Возврат;
+	КонецПопытки;
+	
+	ВызватьИсключение "Должно было быть выдано исключение, но его не было";
+КонецПроцедуры
+
+Процедура ТестДолжен_ВызватьИсключениеПриВставкеКолонкиСНевернымИменем() Экспорт
+	ТЗ = Новый ТаблицаЗначений();
+	Попытка
+		ТЗ.Колонки.Вставить(0,"!@#");
+	Исключение
+		Возврат;
+	КонецПопытки;
+	
+	ВызватьИсключение "Должно было быть выдано исключение, но его не было";
+КонецПроцедуры