Перем юТест;

Перем Глобал;

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

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

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

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

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

ВсеТесты.Добавить("ТестДолжен_ПроверитьВычислениеБроскаИсключения");

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

ВсеТесты.Добавить("ТестДолжен_ПроверитьОбращениеКЛокальнымПеременным");

ВсеТесты.Добавить("ТестДолжен_ПроверитьОператорВыполнитьСВыбросомИсключения");

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

ВсеТесты.Добавить("ТестДолжен_ПроверитьСвойствоЭтотОбъект_issue712");

ВсеТесты.Добавить("ТестДолжен_ПроверитьEvalНаРазныхЭкземплярахThis");

ВсеТесты.Добавить("ТестДолжен_ПроверитьКешКомпиляцииВРазныхФреймах");

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

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

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

ВсеТесты.Добавить("ТестДолжен_ПроверитьАлиасыФункцийИПеременныхВВычислить");

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

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

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

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

ВсеТесты.Добавить("ТестДолжен_ПроверитьРаботоспособностьВПодключенныхСценариях");

ВсеТесты.Добавить("ТестДолжен_ПроверитьРаботоспособностьСПараметрамиПроцедуры");

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

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

юТест.ПроверитьРавенство(4, Вычислить("2 + 2"));

ВнешняяПеременная = 1;

юТест.ПроверитьРавенство(1, Вычислить("ВнешняяПеременная"));

Функция НехорошийМетод()

ВызватьИсключение "ААА";

Функция ХорошийМетод()

Возврат Сред("ААА",2,1);

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

Текст = "";

Для Сч = 1 По 3 Цикл

Текст = Текст + Вычислить("ХорошийМетод()");

КонецЦикла;

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

Процедура ТестДолжен_ПроверитьВычислениеБроскаИсключения() Экспорт

Перем ОК;

Попытка

А = Вычислить("НехорошийМетод()");

Исключение

ТекстОшибки = ИнформацияОбОшибке().Описание;

Сообщить("Получено исключение: " + ТекстОшибки);

ОК = Истина;

КонецПопытки;

юТест.ПроверитьИстину(ОК, "Проверяем, что после исключения вернулись в тот же кадр стека вызовов");

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

ВнешнийКонтекст = "Привет";

Выполнить "ВнешнийКонтекст = ""Пока""";

юТест.ПроверитьРавенство("Пока", ВнешнийКонтекст);

Процедура ТестДолжен_ПроверитьОбращениеКЛокальнымПеременным() Экспорт

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

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

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

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

Результат = 0;

КодДляВыполнения = "

Выполнить(КодДляВыполнения);

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

Процедура ТестДолжен_ПроверитьОператорВыполнитьСВыбросомИсключения() Экспорт

ВнешнийКонтекст = "Привет";

Попытка

Выполнить "ВнешнийКонтекст = ""Пока"";

Исключение

юТест.ПроверитьРавенство("Пока", ВнешнийКонтекст);

юТест.ПроверитьРавенство("123", ИнформацияОбОшибке().Описание);

Возврат;

КонецПопытки;

ВызватьИсключение "Должно было быть выдано исключение, но его не было";

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

ТекстМетода = "А = 1;

Попытка

Выполнить ТекстМетода;

Исключение

Эталон = НСтр("ru='Оператор ""Возврат"" может использоваться только внутри метода';en='Return operator may not be used outside procedure or function'");

юТест.ПроверитьИстину(Найти(ИнформацияОбОшибке().Описание, Эталон)>0);

Возврат;

КонецПопытки;

ВызватьИсключение "Должно было быть выдано исключение, но его не было";

Процедура ТестДолжен_ПроверитьСвойствоЭтотОбъект_issue712() Экспорт

ПутьСценарий = ОбъединитьПути(ТекущийСценарий().Каталог, "testdata", "thisObjClass.os");

Сценарий = ЗагрузитьСценарий(ПутьСценарий);

Сценарий.Идентификатор = "Это класс";

Результат = "";

КодВыполнения = "Результат = Сценарий.ПолучитьИдентификатор()";

Выполнить(КодВыполнения);

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

Процедура ТестДолжен_ПроверитьEvalНаРазныхЭкземплярахThis() Экспорт

ПутьСценарий = ОбъединитьПути(ТекущийСценарий().Каталог, "testdata", "evalDifferentThis.os");

Первый = ЗагрузитьСценарий(ПутьСценарий);

Второй = ЗагрузитьСценарий(ПутьСценарий);

Первый.УстановитьЗначение("Первый");

Второй.УстановитьЗначение("Второй");

Рез1 = Первый.ПолучитьЧерезВычислить();

Рез2 = Второй.ПолучитьЧерезВычислить();

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

юТест.ПроверитьРавенство("Второй", Рез2);

Функция ТестМетод1(П1)

ЛокальнаяПеременная = 1;

Возврат Вычислить("ЛокальнаяПеременная + П1 + 1");

Функция ТестМетод2(П2, П1)

ДругаяПеременная = 3;

ЛокальнаяПеременная = 1;

Возврат Вычислить("ЛокальнаяПеременная + П1 + 1");

Процедура ТестДолжен_ПроверитьКешКомпиляцииВРазныхФреймах() Экспорт

Рез1 = ТестМетод1(1);

Рез2 = ТестМетод1(1);

Рез3 = ТестМетод2(Неопределено, 1);

Рез4 = ТестМетод2(Неопределено, 1);

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

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

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

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

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

Рез = "Вычислить(1)";

Для й=1 По 100 Цикл

Рез = "Вычислить("+Рез+")+1";

КонецЦикла;

Рез = Вычислить(Рез);

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

Функция Один()

Возврат Вычислить("1");

Функция Два()

Один = Вычислить("Один()");

Возврат Вычислить("Один+Один()");

Функция Шесть()

Три = 3;

Возврат Вычислить("Два()") * Три;

Функция СорокДва(Семь)

Возврат Вычислить("Семь * Шесть()");

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

Функция Ответ()

Возврат Вычислить("Глобал + СорокДва(7)");

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

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

Глобал = 0;

Рез = Вычислить("Ответ()");

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

Глобал = 66;

Рез = Вычислить("Ответ()");

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

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

Рез = -1;

Выполнить("Для й=1 По 9 Цикл ц = -й; КонецЦикла; Рез = Вычислить(""ц + й"")");

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

Процедура ТестДолжен_ПроверитьАлиасыФункцийИПеременныхвВычислить() Экспорт

Рез = Вычислить("Лев(""фыв""+Символы.ПС,1)+Left(""fgh""+Chars.LF,1)");

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

Процедура ТестДолжен_ПроверитьОбработкуИсключенияВВыполнить() Экспорт

Рез = 1;

Выполнить "

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

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

Рез = 1;

Код = "Рез=Рез+1;";

Для й = 1 По 10 Цикл

Код = СтрЗаменить(Код, """", """""");

Код = "Выполнить""" + Код + """;";

КонецЦикла;

Выполнить(Код);

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

Процедура Третья(Пар)

Выполнить "Рез = Пар;";

Процедура Вторая(Пар)

Выполнить "Лок = Пар + 1; Третья(Лок);";

Процедура ЗаменаПараметра(Пар)

Выполнить "Пар = Пар + 1";

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

Рез = 1;

Выполнить "Вторая(2);";

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

Выполнить "ЗаменаПараметра(Рез);";

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

Процедура СИсключением()

Выполнить "

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

Рез = "0";

попытка

Выполнить("

|КонецПопытки;");

Выполнить("

|Рез = Рез + 4;");

Выполнить("

|Рез = Рез + 7;");

исключение

Рез = Рез+ "!" ;

конецпопытки;

Рез = Рез + "+";

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

Процедура ТестДолжен_ПроверитьРаботоспособностьВПодключенныхСценариях() Экспорт

Библиотека = ОбъединитьПути(ТекущийСценарий().Каталог, "eval-in-libraries");

ПодключитьСценарий(Библиотека + "/src/Тесты/Тест.os", "ТестEvalInLibraries");

А = Новый ТестEvalInLibraries();

А.Тест();

Процедура РаботаСПараметрамиПроцедуры(Элемент1, Элемент2)

Рез = "";

Для Сч = 1 По 2 Цикл

Рез = Рез + Вычислить("Элемент" + Сч);

КонецЦикла;

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

Процедура ТестДолжен_ПроверитьРаботоспособностьСПараметрамиПроцедуры() Экспорт

Структура=Новый Структура("Поле1,Поле2","Поле1","Поле2");

РаботаСПараметрамиПроцедуры(Структура.Поле1, Структура.Поле2);