#native

Перем юТест;

Перем Лог;

Функция ПолучитьСписокТестов(ЮнитТестирование) Экспорт

юТест = ЮнитТестирование;

ВсеТесты = Новый Массив;

ВсеТесты.Добавить("ТестДолжен_ПроверитьВызовМетода");

ВсеТесты.Добавить("ТестДолжен_ПроверитьВызовАссерта");

ВсеТесты.Добавить("ТестДолжен_ПроверитьЧтениеЗаписьПоИндексу");

//FIXME #1531

//ВсеТесты.Добавить("ТестДолжен_ПроверитьДелегат");

Возврат ВсеТесты;

КонецФункции

// Вызовется со стороны основного рантайма

Процедура ТестДолжен_ПроверитьВызовМетода() Экспорт

// просто не должно упасть

Сообщить("Вызвано со стороны testrunner")

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

Процедура ТестДолжен_ПроверитьВызовАссерта() Экспорт

// должно суметь вызвать основной рантайм (юТест.*)

юТест.ПроверитьРавенство(1, 1);

Сообщить("Выполнен вызов в сторону testrunner");

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

Процедура ТестДолжен_ПроверитьЧтениеЗаписьПоИндексу() Экспорт

Массив = Новый Массив;

Массив.Добавить(1);

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

Массив[0] = "Привет";

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

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

Процедура ПроверитьДелегат() Экспорт

//Текст = "Функция Петля(Знач Значение) Экспорт Возврат Значение; КонецФункции";

//Сценарий = ЗагрузитьСценарийИзСтроки(Текст);

//

//Делегат = Новый Действие(Сценарий, "Петля");

//Результат = Делегат.Выполнить("Привет");

//

//юТест.ПроверитьРавенство("Привет", Результат);

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