Добавлен метод проверки нахождения в строке только цифр и проверку типа, а также дату с 2 секундной флуктуацией, ну и проверка на ожидаемую ошибку (#9)

* Добавлен метод проверки нахождения в строке только цифр

проверка обнаружена в testrunner.os https://github.com/EvilBeaver/OneScript/blob/develop/tests/testrunner.os#L903

* Как можно было тип то забыть ;-)

очередной порт из Testrunner.os

* Проверка даты с флуктуацией 2 секунды

* Код вызывающий исключение - и его проверка

Author: aliczin

src/xunit-asserts.os

@@ -24,6 +24,13 @@
 	КонецЕсли;
 КонецПроцедуры
 
+Процедура ПроверитьРавенствоДатСТочностью2Секунды(_Дата, _Дата2, ДопСообщениеОшибки = "") Экспорт
+	Если _Дата < _Дата2-2 или _Дата > _Дата2+2 Тогда
+		СообщениеОшибки = "Переданная дата ("+Формат(_Дата, "ДФ='dd.MM.yyyy HH:mm:ss'")+") не равна дате ("+Формат(_Дата2, "ДФ='dd.MM.yyyy HH:mm:ss'")+") с точностью до 2-х секунд, а хотели, чтобы они равнялись." + ФорматДСО(ДопСообщениеОшибки);
+		ВызватьИсключение(СообщениеОшибки);
+	КонецЕсли;
+КонецПроцедуры
+
 Процедура ПроверитьРавенство(ПервоеЗначение, ВтороеЗначение, ДопСообщениеОшибки = "") Экспорт
 	Если ПервоеЗначение <> ВтороеЗначение Тогда
 		СообщениеОшибки = "Сравниваемые значения ("+ПервоеЗначение+"; "+ВтороеЗначение+") не равны, а хотели, чтобы были равны." + ФорматДСО(ДопСообщениеОшибки);
@@ -79,8 +86,8 @@
 КонецПроцедуры
 
 Процедура ПроверитьНеЗаполненность(ПроверяемоеЗначение, ДопСообщениеОшибки = "") Экспорт
-	СообщениеОшибки = "Значение ("+ПроверяемоеЗначение+") заполнено, а ожидалась незаполненность" + ФорматДСО(ДопСообщениеОшибки);
-	Попытка
+    СообщениеОшибки = "Значение ("+ПроверяемоеЗначение+") заполнено, а ожидалась незаполненность" + ФорматДСО(ДопСообщениеОшибки);
+    Попытка
         фЗаполнено = ЗначениеЗаполнено(ПроверяемоеЗначение);
     Исключение
         ВызватьИсключение СообщениеОшибки;
@@ -90,13 +97,69 @@
     КонецЕсли; 
 КонецПроцедуры
 
+Процедура ПроверитьТип(Значение, ТипИлиИмяТипа, ДопСообщениеОшибки = "") Экспорт
+	
+	Если ТипЗнч(ТипИлиИмяТипа) = Тип("Строка") Тогда
+		ОжидаемыйТип = Тип(ТипИлиИмяТипа);
+	ИначеЕсли ТипЗнч(ТипИлиИмяТипа) = Тип("Тип") Тогда
+		ОжидаемыйТип = ТипИлиИмяТипа;
+	Иначе
+		ТекстИсключения = СтрШаблон(
+			"ПроверитьТип: Тип значения параметра ТипИлиИмяТипа должен быть <Тип> или <Строка>, а получили <%1>.%2",
+			ТипЗнч(ТипИлиИмяТипа),
+			ФорматДСО(ДопСообщениеОшибки));
+		ВызватьИсключение(ТекстИсключения);
+	КонецЕсли;
+	Если ТипЗнч(Значение) <> ОжидаемыйТип Тогда
+		ОшибкаПроверки = СтрШаблон(
+			"Типом значения <%1> является <%2>, а ожидался тип <%3>.%4",
+			Значение, ТипЗнч(Значение), ТипИлиИмяТипа, ФорматДСО(ДопСообщениеОшибки));
+		ВызватьИсключение(ОшибкаПроверки);
+	КонецЕсли;
+КонецПроцедуры
+
+Процедура ПроверитьЧтоВСтрокеСодержатсяТолькоЦифры(Знач ИсходнаяСтрока, ДопСообщениеОшибки = "") Экспорт
+	//порт из testrunner в составе oscript-engine
+	СообщениеОшибки = "Строка ("+ИсходнаяСтрока+") содержит не только цифры, а ожидалась обратное" + ФорматДСО(ДопСообщениеОшибки);
+	
+	ТолькоЦифры = Ложь;
+	ДлинаСтроки = СтрДлина(ИсходнаяСтрока);
+	Для Сч = 1 По ДлинаСтроки Цикл
+		ТекущийСимвол = КодСимвола(Сред(ИсходнаяСтрока, Сч, 1));
+		Если 48 <= ТекущийСимвол И ТекущийСимвол <= 57 Тогда
+			ТолькоЦифры = Истина;
+		Иначе
+			ТолькоЦифры = Ложь;
+			Прервать;
+		КонецЕсли;
+	КонецЦикла;
+	Если НЕ ТолькоЦифры Тогда
+		ВызватьИсключение СообщениеОшибки;  
+	КонецЕсли;
+КонецПроцедуры
+
 Процедура ПроверитьВхождение(строка, подстрокаПоиска, ДопСообщениеОшибки = "") Экспорт
 	Если Найти(строка, подстрокаПоиска) = 0 Тогда
 		СообщениеОшибки = "Искали в <"+строка+"> подстроку <"+подстрокаПоиска+">, но не нашли." + ФорматДСО(ДопСообщениеОшибки);
 		ВызватьИсключение(СообщениеОшибки);
 	КонецЕсли;
 КонецПроцедуры
 
+Процедура ПроверитьКодСОшибкой( Код, Ошибка, ДопСообщениеОшибки = "" ) Экспорт
+	Попытка
+		Сценарий = ЗагрузитьСценарийИзСтроки(Код);
+		СообщениеОшибки = "Ожидали ошибку '"+Ошибка+"', но ее не было";
+	Исключение
+		ОписаниеОшибки = ИнформацияОбОшибке().Описание;
+		Если Найти(ОписаниеОшибки, Ошибка ) = 0 Тогда
+			СообщениеОшибки = "Ожидали ошибку '"+Ошибка+"', а была ошибка '"+ОписаниеОшибки+"'";
+		Иначе
+			Возврат;
+		КонецЕсли;
+	КонецПопытки;
+	ВызватьИсключение(СообщениеОшибки + ФорматДСО(ДопСообщениеОшибки));
+КонецПроцедуры
+
 // Проверяет существование метода у объекта
 // 
 // Выбрасывает исключение, если метод отсутствует