fix EvilBeaver#1580.1: вставка вне размера Таблицы значений

Author: Mr-Rm

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

@@ -76,13 +76,18 @@ public ValueTableRow Add()
         /// <summary>
         /// Вставляет строку в указанную позицию
         /// </summary>
-        /// <param name="index">Число - Индекс позиции куда будет произведена вставка</param>
+        /// <param name="index">Число - Индекс позиции куда будет произведена вставка.
+        /// Если индекс вне размера Таблицы значений, строка добавляется в конец</param>
         /// <returns>СтрокаТаблицыЗначений</returns>
         [ContextMethod("Вставить", "Insert")]
         public ValueTableRow Insert(int index)
         {
             var row = new ValueTableRow(this);
-            _rows.Insert(index, row);
+            if (index < 0 || index > _rows.Count)
+                _rows.Add(row); // для совместимости с 1С, хотя логичней было бы исключение
+            else
+                _rows.Insert(index, row);
+
             Indexes.ElementAdded(row);
             return row;
         }

tests/valuetable.os

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