﻿
Перем юТест;

Функция Проверка(ЮнитТестирование) Экспорт
	
	юТест = ЮнитТестирование;
	
	ВсеТесты = Новый Массив;
	ВсеТесты.Добавить("Тест_Обычный");

	Параметры = Новый Структура("ИмяТеста,Транзакция,Параметр", "ТестСОпциями", Истина, 1);
	ВсеТесты.Добавить(Параметры);

	Параметры = Новый Структура("ИмяТеста,Транзакция,Параметр", "ТестСОпциями", Истина, 2);
	ВсеТесты.Добавить(Параметры);

	Параметры = Новый Структура("ИмяТеста,Транзакция", "ТестСОпциями_БезПараметра", Истина);
	ВсеТесты.Добавить(Параметры);

	Параметры = Новый Структура("ИмяТеста,Параметр", "НесуществующийТест", 1);
	ВсеТесты.Добавить(Параметры);

	//Параметры = Новый Структура("Парам1", 1); // нет имени теста - браузер не загрузит тестовый набор
	//ВсеТесты.Добавить(Параметры);

	Возврат ВсеТесты;
	
КонецФункции

Функция ПолучитьСписокТестов(ЮнитТестирование) Экспорт
	
	юТест = ЮнитТестирование;
	
	ВсеТесты = Новый Массив;
	ВсеТесты.Добавить("Тест_Обычный");

	Параметры = Новый Структура("ИмяТеста,Транзакция,Параметр", "ТестСОпциями", Истина, 1);
	ВсеТесты.Добавить(Параметры);

	Параметры = Новый Структура("ИмяТеста,Транзакция,Параметр", "ТестСОпциями", Истина, 2);
	ВсеТесты.Добавить(Параметры);

	Параметры = Новый Структура("ИмяТеста,Транзакция", "ТестСОпциями_БезПараметра", Истина);
	ВсеТесты.Добавить(Параметры);

	Параметры = Новый Структура("ИмяТеста,Параметр", "НесуществующийТест", 1);
	ВсеТесты.Добавить(Параметры);

	//Параметры = Новый Структура("Парам1", 1); // нет имени теста - браузер не загрузит тестовый набор
	//ВсеТесты.Добавить(Параметры);
	
	Возврат ВсеТесты;
	
КонецФункции

Процедура ТестСОпциями(Парам) Экспорт

	Сообщить("Парам теста <"+Парам+">");
	юТест.ПроверитьЗаполненность(Парам, "ТестСОпциями(Парам)");
	
КонецПроцедуры

Процедура ТестСОпциями_БезПараметра() Экспорт

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

Процедура Тест_Обычный() Экспорт
	
	юТест.Проверить(Истина, "Значение ложно");
	
КонецПроцедуры
