fix EvilBeaver#1626.2: корректное сообщение об ошибочном типе аргумента

Author: Mr-Rm

src/ScriptEngine/Machine/Contexts/ContextValuesMarshaller.cs

@@ -242,8 +242,11 @@ private static object ConvertValueType(IValue value, Type type, IBslProcess proc
                 valueObj = value.AsBoolean();
             }
             else if (typeof(IRuntimeContextInstance).IsAssignableFrom(type))
-            {
-                valueObj = value.AsObject();
+            {
+                if (value.GetType().IsAssignableTo(type))
+                    valueObj = value.AsObject();
+                else
+                    throw new InvalidCastException();
             }
             else if (value is EnumerationValue && typeof(EnumerationValue).IsAssignableFrom(type))
             {

tests/valuetable.os

@@ -78,9 +78,10 @@
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьЗапятуюВИменахКолонок_СПустыми");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьИсключениеДляИндекса");
 
-	
 	ВсеТесты.Добавить("ТестДолжен_ВызватьИсключениеПриДобавленииКолонкиСНевернымИменем");
 	ВсеТесты.Добавить("ТестДолжен_ВызватьИсключениеПриВставкеКолонкиСНевернымИменем");
+	ВсеТесты.Добавить("ТестДолжен_ВызватьИсключениеНаПоискеИндексаКолонкиСНевернымПримитивнымТипом");
+	ВсеТесты.Добавить("ТестДолжен_ВызватьИсключениеНаПоискеИндексаКолонкиСНевернымОбъектнымТипом");
 
 
 	Возврат ВсеТесты;
@@ -1261,3 +1262,29 @@
 
 	ВызватьИсключение "Должно было быть выдано исключение, но его не было";
 КонецПроцедуры
+
+Процедура ТестДолжен_ВызватьИсключениеНаПоискеИндексаКолонкиСНевернымПримитивнымТипом() Экспорт
+	ТЗ = Новый ТаблицаЗначений();
+	Попытка
+		ТЗ.Колонки.Индекс(0);
+	Исключение
+		Ошибка = ИнформацияОбОшибке().Описание;
+		юТест.ПроверитьНеРавенство(Найти(Ошибка,"Неверный тип аргумента"), 0, "Неверный вид ошибки: "+Ошибка);
+		Возврат;
+	КонецПопытки;
+	
+	ВызватьИсключение "Должно было быть выдано исключение, но его не было";
+КонецПроцедуры
+
+Процедура ТестДолжен_ВызватьИсключениеНаПоискеИндексаКолонкиСНевернымОбъектнымТипом() Экспорт
+	ТЗ = Новый ТаблицаЗначений();
+	Попытка
+		ТЗ.Колонки.Индекс(ТЗ);
+	Исключение
+		Ошибка = ИнформацияОбОшибке().Описание;
+		юТест.ПроверитьНеРавенство(Найти(Ошибка,"Неверный тип аргумента"), 0, "Неверный вид ошибки: "+Ошибка);
+		Возврат;
+	КонецПопытки;
+	
+	ВызватьИсключение "Должно было быть выдано исключение, но его не было";
+КонецПроцедуры