Для функции Равно в случае неравенства значения выдаем полезное дополнительное сообщение, если типы не совпадают.

Важно для случаев, когда визуальное представление совпадает, например, число 10 сверяем со строкой 10

Author: artbear

src/bdd-asserts.os

@@ -10,13 +10,13 @@
 	ПроверяемоеЗначение = ПроверяемоеЗначениеПараметр;
 	ДопСообщениеОшибки = Сообщение;
 	ФлагОтрицания = Ложь;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
 Функция Не_() Экспорт
 	ФлагОтрицания = Истина;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
@@ -31,7 +31,7 @@
 	Иначе
 		ПараметрыМетода = ПараметрыМетодаПараметр;
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
@@ -40,7 +40,7 @@
 		СообщениеОшибки = СформироватьСообщениеОбОшибке(Формат(ПроверяемоеЗначение, "БЛ=Ложь; БИ=Истина"), "является ИСТИНОЙ.");
 		ВызватьОшибкуПроверки(СообщениеОшибки);
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
@@ -53,7 +53,7 @@
 		СообщениеОшибки = СформироватьСообщениеОбОшибке(Формат(ПроверяемоеЗначение, "БЛ=Ложь; БИ=Истина"), "является ЛОЖЬЮ.");
 		ВызватьОшибкуПроверки(СообщениеОшибки);
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
@@ -64,9 +64,13 @@
 Функция Равно(Знач ОжидаемоеЗначение) Экспорт
 	Если Не ЛогическоеВыражениеВерно(ПроверяемоеЗначение = ОжидаемоеЗначение) Тогда
 		СообщениеОшибки = СформироватьСообщениеОбОшибке(ПроверяемоеЗначение, "РАВНО (" + ОжидаемоеЗначение + ").");
+		Если ТипЗнч(ПроверяемоеЗначение) <> ТипЗнч(ОжидаемоеЗначение) Тогда
+			СообщениеОшибки = СообщениеОшибки + СтрШаблон("%3 Тип проверяемого значения (%1) НЕ РАВЕН  типу ожидаемого значения (%2).",
+				ТипЗнч(ПроверяемоеЗначение), ТипЗнч(ОжидаемоеЗначение), Символы.ПС);
+		КонецЕсли;
 		ВызватьОшибкуПроверки(СообщениеОшибки);
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
@@ -75,7 +79,7 @@
 		СообщениеОшибки = СформироватьСообщениеОбОшибке(ПроверяемоеЗначение, "БОЛЬШЕ (" + МеньшееЗначение + ").");
 		ВызватьОшибкуПроверки(СообщениеОшибки);
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
@@ -84,7 +88,7 @@
 		СообщениеОшибки = СформироватьСообщениеОбОшибке(ПроверяемоеЗначение, "БОЛЬШЕ ИЛИ РАВНО (" + МеньшееИлиРавноеЗначение + ").");
 		ВызватьОшибкуПроверки(СообщениеОшибки);
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
@@ -97,7 +101,7 @@
 		СообщениеОшибки = СформироватьСообщениеОбОшибке(ПроверяемоеЗначение, "МЕНЬШЕ ИЛИ РАВНО (" + БольшееИлиРавноеЗначение + ").");
 		ВызватьОшибкуПроверки(СообщениеОшибки);
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
@@ -110,7 +114,7 @@
 		СообщениеОшибки = СформироватьСообщениеОбОшибке(ПроверяемоеЗначение, "МЕНЬШЕ (" + БольшееЗначение + ").");
 		ВызватьОшибкуПроверки(СообщениеОшибки);
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
@@ -119,7 +123,7 @@
 		СообщениеОшибки = СформироватьСообщениеОбОшибке(ПроверяемоеЗначение, "является ЗАПОЛНЕННЫМ.");
 		ВызватьОшибкуПроверки(СообщениеОшибки);
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
@@ -128,7 +132,7 @@
 		СообщениеОшибки = СформироватьСообщениеОбОшибке(ПроверяемоеЗначение, "СУЩЕСТВУЕТ.");
 		ВызватьОшибкуПроверки(СообщениеОшибки);
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
@@ -137,7 +141,7 @@
 		СообщениеОшибки = СформироватьСообщениеОбОшибке(ПроверяемоеЗначение, "является НЕОПРЕДЕЛЕНО.");
 		ВызватьОшибкуПроверки(СообщениеОшибки);
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
@@ -150,7 +154,7 @@
 		СообщениеОшибки = СформироватьСообщениеОбОшибке(ПроверяемоеЗначение, "является NULL.");
 		ВызватьОшибкуПроверки(СообщениеОшибки);
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
@@ -165,7 +169,7 @@
 		СообщениеОшибки = СформироватьСообщениеОбОшибке("тип - " + ТипПроверяемогоЗначения, "имеет тип (" + ОжидаемыйТип + ").");
 		ВызватьОшибкуПроверки(СообщениеОшибки);
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
@@ -174,13 +178,13 @@
 		СообщениеОшибки = СформироватьСообщениеОбОшибке(ПроверяемоеЗначение, "МЕЖДУ (" + НачальноеЗначение + ") и (" + КонечноеЗначение + ").");
 		ВызватьОшибкуПроверки(СообщениеОшибки);
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
 Функция Содержит(Знач ИскомоеЗначение) Экспорт
 	Перем ИскомоеЗначениеНайдено;
-	
+
 	ТипПроверяемоегоЗначения = ТипЗнч(ПроверяемоеЗначение);
 	Если ТипПроверяемоегоЗначения = Тип("Строка") Тогда
 		ИскомоеЗначениеНайдено = Найти(ПроверяемоеЗначение, ИскомоеЗначение) > 0;
@@ -197,23 +201,23 @@
 	ИначеЕсли ТипПроверяемоегоЗначения = Тип("СписокЗначений") Тогда
 		ИскомоеЗначениеНайдено = ПроверяемоеЗначение.НайтиПоЗначению(ИскомоеЗначение) <> Неопределено;
 	КонецЕсли;
-	
+
 	Если ИскомоеЗначениеНайдено = Неопределено Тогда
 		СообщениеОшибки = "Утверждение ""Содержит"" не умеет работать с типом <" + ТипПроверяемоегоЗначения + ">." + ФорматДСО(ДопСообщениеОшибки);
 		ВызватьИсключение СообщениеОшибки;
 	КонецЕсли;
-	
+
 	Если Не ЛогическоеВыражениеВерно(ИскомоеЗначениеНайдено) Тогда
 		СообщениеОшибки = СформироватьСообщениеОбОшибке(ПроверяемоеЗначение, "СОДЕРЖИТ (" + ИскомоеЗначение + ").");
 		ВызватьОшибкуПроверки(СообщениеОшибки);
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
 Функция ИмеетДлину(Знач ОжидаемаяДлина) Экспорт
 	Перем ФактическаяДлина;
-	
+
 	ТипПроверяемоегоЗначения = ТипЗнч(ПроверяемоеЗначение);
 	Если ТипПроверяемоегоЗначения = Тип("Строка") Тогда
 		ФактическаяДлина = СтрДлина(ПроверяемоеЗначение);
@@ -225,40 +229,40 @@
 			Или ТипПроверяемоегоЗначения = Тип("СписокЗначений") Тогда
 		ФактическаяДлина = ПроверяемоеЗначение.Количество();
 	КонецЕсли;
-	
+
 	Если ФактическаяДлина = Неопределено Тогда
 		СообщениеОшибки = "Утверждение ""ИмеетДлину"" не умеет работать с типом <" + ТипПроверяемоегоЗначения + ">." + ФорматДСО(ДопСообщениеОшибки);
 		ВызватьИсключение СообщениеОшибки;
 	КонецЕсли;
-	
+
 	Если Не ЛогическоеВыражениеВерно(ФактическаяДлина = ОжидаемаяДлина) Тогда
 		СообщениеОшибки = СформироватьСообщениеОбОшибке("<" +ПроверяемоеЗначение + "> с длиной " + ФактическаяДлина, "ИМЕЕТ ДЛИНУ (" + ОжидаемаяДлина + ").");
 		ВызватьОшибкуПроверки(СообщениеОшибки);
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
 Функция ВыбрасываетИсключение(Знач ФрагментИсключения = "") Экспорт
 	Контекст = ПроверяемоеЗначение;
 	ИсключениеВозникло = Ложь;
-	
+
 	Попытка
 		Рефлектор = Новый Рефлектор;
 		Рефлектор.ВызватьМетод(Контекст, ИмяМетода, ПараметрыМетода);
 	Исключение
 		ИсключениеВозникло = Истина;
 		ТекстИсключения = ОписаниеОшибки();
 	КонецПопытки;
-	
+
 	Если Не ЛогическоеВыражениеВерно(ИсключениеВозникло И Найти(ТекстИсключения, ФрагментИсключения) > 0) Тогда
 		СообщениеОшибки = "Ожидали, что " + ИмяМетода
 			+ ?(ФлагОтрицания, " НЕ ", " ")
 			+ "ВЫБРОСИТ ИСКЛЮЧЕНИЕ"
 			+ ?(ЗначениеЗаполнено(ФрагментИсключения), " СОДЕРЖАЩЕЕ ТЕКСТ <" + ФрагментИсключения + ">, а был текст <" + ТекстИсключения + ">.", "");
 		ВызватьОшибкуПроверки(СообщениеОшибки);
 	КонецЕсли;
-	
+
 	Возврат ЭтотОбъект;
 КонецФункции
 
@@ -267,7 +271,7 @@
 	Если ДопСообщениеОшибки = "" Тогда
 		Возврат "";
 	КонецЕсли;
-	
+
 	Возврат Символы.ПС + ДопСообщениеОшибки;
 КонецФункции
 
@@ -280,7 +284,7 @@
 	Результат = ФлагОтрицания <> ЛогическоеВыражение;
 	ФлагОтрицанияДляСообщения = ФлагОтрицания;
 	ФлагОтрицания = Ложь;
-	
+
 	Возврат Результат;
 КонецФункции