проверка правильности индекса колонки

Author: Mr-Rm

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

@@ -156,7 +156,13 @@ public ValueTableColumn FindColumnByName(string name)
             return _columns.Find(column => _namesComparer.Equals(name, column.Name));
         }
 
-        public ValueTableColumn FindColumnByIndex(int index) => _columns[index];
+        public ValueTableColumn FindColumnByIndex(int index)
+        {
+            if (index < 0 || index >= _columns.Count)
+                throw RuntimeException.IndexOutOfRange();
+            return _columns[index];
+        }
+
 
         public IEnumerator<ValueTableColumn> GetEnumerator()
         {
@@ -209,11 +215,7 @@ public ValueTableColumn GetColumnByIIndex(IValue index)
 
             if (index.SystemType == BasicTypes.Number)
             {
-                int i_index = Decimal.ToInt32(index.AsNumber());
-                if (i_index < 0 || i_index >= Count())
-                    throw RuntimeException.IndexOutOfRange();
-
-                return FindColumnByIndex(i_index);
+                return FindColumnByIndex(decimal.ToInt32(index.AsNumber()));
             }
 
             if (index is ValueTableColumn column)

tests/valuetable.os

@@ -83,6 +83,8 @@
 	ВсеТесты.Добавить("ТестДолжен_ВызватьИсключениеНаПоискеИндексаКолонкиСНевернымПримитивнымТипом");
 	ВсеТесты.Добавить("ТестДолжен_ВызватьИсключениеНаПоискеИндексаКолонкиСНевернымОбъектнымТипом");
 
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьИсключениеПолученияКолонкиСНевернымНомером");
+	
 
 	Возврат ВсеТесты;
 
@@ -1288,3 +1290,30 @@
 
 	ВызватьИсключение "Должно было быть выдано исключение, но его не было";
 КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьИсключениеПолученияКолонкиСНевернымНомером() Экспорт
+	ТЗ = Новый ТаблицаЗначений();
+	ТЗ.Колонки.Добавить("Тест");
+	СтрокаТЗ = ТЗ.Добавить();
+	
+	БылоИсключение = Ложь;
+	Попытка
+		Рез = СтрокаТЗ.Получить(-1);
+	Исключение
+		Ошибка = ИнформацияОбОшибке().Описание;
+		юТест.ПроверитьНеРавенство(Найти(Ошибка,"Значение индекса выходит за пределы"), 0, "Неверный вид ошибки: "+Ошибка);
+		БылоИсключение = Истина;
+	КонецПопытки;
+	юТест.ПроверитьИстину(БылоИсключение, "Получение колонки с неверным номером");
+
+	БылоИсключение = Ложь;
+	Попытка
+		Рез = СтрокаТЗ[-1];
+	Исключение
+		Ошибка = ИнформацияОбОшибке().Описание;
+		юТест.ПроверитьНеРавенство(Найти(Ошибка,"Значение индекса выходит за пределы"), 0, "Неверный вид ошибки: "+Ошибка);
+		БылоИсключение = Истина;
+	КонецПопытки;
+	юТест.ПроверитьИстину(БылоИсключение, "Получение колонки по неверному индексу");
+
+КонецПроцедуры