EvilBeaver/OneScript: Исполняющая среда скриптов на языке 1С

tests/native-module.os
55 строк2 KB
EvilBeaver
Недоотключен тест
19 май 2025, 09:33
19 май 2025, 09:3385f2f55
#native

Перем юТест;
Перем Лог;
Функция ПолучитьСписокТестов(ЮнитТестирование) Экспорт
	
	юТест = ЮнитТестирование;
	
	ВсеТесты = Новый Массив;
	
	ВсеТесты.Добавить("ТестДолжен_ПроверитьВызовМетода");
	ВсеТесты.Добавить("ТестДолжен_ПроверитьВызовАссерта");
	ВсеТесты.Добавить("ТестДолжен_ПроверитьЧтениеЗаписьПоИндексу");
	//FIXME #1531
	//ВсеТесты.Добавить("ТестДолжен_ПроверитьДелегат");
		
	Возврат ВсеТесты;
	
КонецФункции

// Вызовется со стороны основного рантайма
Процедура ТестДолжен_ПроверитьВызовМетода() Экспорт
	// просто не должно упасть
	Сообщить("Вызвано со стороны testrunner")
КонецПроцедуры

Процедура ТестДолжен_ПроверитьВызовАссерта() Экспорт
	// должно суметь вызвать основной рантайм (юТест.*)
	юТест.ПроверитьРавенство(1, 1);
	Сообщить("Выполнен вызов в сторону testrunner");
КонецПроцедуры

Процедура ТестДолжен_ПроверитьЧтениеЗаписьПоИндексу() Экспорт
	
	Массив = Новый Массив;
	Массив.Добавить(1);

	юТест.ПроверитьРавенство(1, Массив[0]);
	Массив[0] = "Привет";

	юТест.ПроверитьРавенство("Привет", Массив[0]);

КонецПроцедуры

Процедура ПроверитьДелегат() Экспорт
    
    //Текст = "Функция Петля(Знач Значение) Экспорт Возврат Значение; КонецФункции";
    //Сценарий = ЗагрузитьСценарийИзСтроки(Текст);
    //
    //Делегат = Новый Действие(Сценарий, "Петля");
    //Результат = Делегат.Выполнить("Привет");
    //
    //юТест.ПроверитьРавенство("Привет", Результат);
    
КонецПроцедуры