Перем юТест;
Функция Проверка(ЮнитТестирование) Экспорт
юТест = ЮнитТестирование;
ВсеТесты = Новый Массив;
ВсеТесты.Добавить("Тест_Обычный");
Параметры = Новый Структура("ИмяТеста,Транзакция,Параметр", "ТестСОпциями", Истина, 1);
ВсеТесты.Добавить(Параметры);
Параметры = Новый Структура("ИмяТеста,Транзакция,Параметр", "ТестСОпциями", Истина, 2);
ВсеТесты.Добавить(Параметры);
Параметры = Новый Структура("ИмяТеста,Транзакция", "ТестСОпциями_БезПараметра", Истина);
ВсеТесты.Добавить(Параметры);
Параметры = Новый Структура("ИмяТеста,Параметр", "НесуществующийТест", 1);
ВсеТесты.Добавить(Параметры);
//Параметры = Новый Структура("Парам1", 1); // нет имени теста - браузер не загрузит тестовый набор
//ВсеТесты.Добавить(Параметры);
Возврат ВсеТесты;
КонецФункции
Функция ПолучитьСписокТестов(ЮнитТестирование) Экспорт
юТест = ЮнитТестирование;
ВсеТесты = Новый Массив;
ВсеТесты.Добавить("Тест_Обычный");
Параметры = Новый Структура("ИмяТеста,Транзакция,Параметр", "ТестСОпциями", Истина, 1);
ВсеТесты.Добавить(Параметры);
Параметры = Новый Структура("ИмяТеста,Транзакция,Параметр", "ТестСОпциями", Истина, 2);
ВсеТесты.Добавить(Параметры);
Параметры = Новый Структура("ИмяТеста,Транзакция", "ТестСОпциями_БезПараметра", Истина);
ВсеТесты.Добавить(Параметры);
Параметры = Новый Структура("ИмяТеста,Параметр", "НесуществующийТест", 1);
ВсеТесты.Добавить(Параметры);
//Параметры = Новый Структура("Парам1", 1); // нет имени теста - браузер не загрузит тестовый набор
//ВсеТесты.Добавить(Параметры);
Возврат ВсеТесты;
КонецФункции
Процедура ТестСОпциями(Парам) Экспорт
Сообщить("Парам теста <"+Парам+">");
юТест.ПроверитьЗаполненность(Парам, "ТестСОпциями(Парам)");
КонецПроцедуры
Процедура ТестСОпциями_БезПараметра() Экспорт
КонецПроцедуры
Процедура Тест_Обычный() Экспорт
юТест.Проверить(Истина, "Значение ложно");
КонецПроцедуры