Перем юТест;

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

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

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

СИ = Новый СистемнаяИнформация;

Сообщить(СИ.ВерсияОС);

Если Найти(СИ.ВерсияОС, "Windows") > 0 Тогда

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

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

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

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

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

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

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

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

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

ВсеТесты.Добавить("ТестДолжен_ПроверитьЧтоСобственныйPIDПроцессаСуществует");

КонецЕсли;

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

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

Путь = ПутьОСкрипт();

Процесс = СоздатьПроцесс(Путь,,Истина);

Процесс.Запустить();

Поток = Процесс.ПотокВывода;

Процесс.ОжидатьЗавершения();

Стр = НормализоватьПереводыСтрок(Поток.Прочитать());

юТест.ПроверитьРавенство(ШтатныйВыводOscript(), Стр);

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

Путь = ПутьОСкрипт();

Процесс = СоздатьПроцесс(Путь,,Истина);

Процесс.Запустить();

Поток = Процесс.ПотокВывода;

Стр = "";

Пока Не Процесс.Завершен ИЛИ Поток.ЕстьДанные Цикл

СтрокаПотока = Поток.ПрочитатьСтроку();

Если СтрокаПотока = Неопределено Тогда

Приостановить(20);

Продолжить;

КонецЕсли;

Стр = Стр + СтрокаПотока + "

КонецЦикла;

Стр = СокрП(Стр);

юТест.ПроверитьРавенство(ШтатныйВыводOscript(), НормализоватьПереводыСтрок(Стр));

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

КодировкаПоУмолчанию = Консоль.КодировкаВходногоПотока;

Если Консоль.КодировкаВходногоПотока = КодировкаТекста.UTF8 Тогда

Консоль.КодировкаВходногоПотока = КодировкаТекста.UTF8NoBOM;

КонецЕсли;

Процесс = СоздатьПроцесс("sort",,Истина, Истина);

Процесс.Запустить();

Процесс.ПотокВвода.ЗаписатьСтроку("2");

Процесс.ПотокВвода.ЗаписатьСтроку("1");

Процесс.ПотокВвода.ЗаписатьСтроку("3");

Процесс.ПотокВвода.Закрыть();

Консоль.КодировкаВходногоПотока = КодировкаПоУмолчанию;

Процесс.ОжидатьЗавершения();

Вывод = Процесс.ПотокВывода.Прочитать();

Эталон = НормализоватьПереводыСтрок("1

|3");

юТест.ПроверитьРавенство(Эталон, НормализоватьПереводыСтрок(Вывод));

Функция ИмяПроцесса()

Возврат ТекущийПроцесс().Имя;

Процедура ТестДолжен_НайтиПроцессПоИмени() Экспорт

МассивПроцессов = НайтиПроцессыПоИмени(ИмяПроцесса());

юТест.ПроверитьБольшеИлиРавно(МассивПроцессов.Количество(), 1);

Процедура ТестДолжен_НайтиПроцессПоPID() Экспорт

МассивПроцессов = НайтиПроцессыПоИмени(ИмяПроцесса());

ИД = МассивПроцессов[0].Идентификатор;

Процесс = НайтиПроцессПоИдентификатору(ИД);

юТест.ПроверитьРавенство(Процесс.Идентификатор, ИД);

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

МассивПроцессов = НайтиПроцессыПоИмени(ИмяПроцесса());

юТест.ПроверитьНеравенство(0, МассивПроцессов.Количество());

СобственныйPID = ТекущийПроцесс().Идентификатор;

PIDПроцесса = Неопределено;

Для Каждого ТекПроцесс Из МассивПроцессов Цикл

Если ТекПроцесс.Идентификатор = СобственныйPID Тогда

PIDПроцесса = ТекПроцесс.Идентификатор;

Прервать;

КонецЕсли;

КонецЦикла;

юТест.ПроверитьРавенство(СобственныйPID, PIDПроцесса);

Функция ШтатныйВыводOscript()

СИ = Новый СистемнаяИнформация;

Текст =

"1Script Execution Engine. Version " + СИ.Версия + "

Возврат НормализоватьПереводыСтрок(Текст);

Функция ПутьОСкрипт()

Возврат "dotnet """ + КаталогПрограммы() + "/oscript.dll""";

Функция НормализоватьПереводыСтрок(Знач ИсходнаяСтрока)

Возврат СтрЗаменить(ИсходнаяСтрока, Символы.ВК, "");

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

ФайлЗапускаемогоСкрипта = ЗаписатьТестовыйСкрипт();

ФайлВывода = ИмяФайлаВыводаТестовогоСкрипта();

УдалитьФайлы(ФайлВывода);

ПриложениеДляЗапуска = ПутьОСкрипт(); //TODO: для Mono должно быть иначе

ЗапуститьПриложение(ПриложениеДляЗапуска + " """ + ФайлЗапускаемогоСкрипта + """ """ + ФайлВывода + """ ""арг у мент1"" аргумент2", КаталогВременныхФайлов(), Истина);

УдалитьФайлы(ФайлЗапускаемогоСкрипта);

ФайлВыводаОбъект = Новый Файл(ФайлВывода);

юТест.ПроверитьИстину(ФайлВыводаОбъект.Существует(), "должен был быть создан файл с результатами");

ЧтениеТекста = Новый ЧтениеТекста(ФайлВывода, "utf-8");

Данные = ЧтениеТекста.Прочитать();

ЧтениеТекста.Закрыть();

УдалитьФайлы(ФайлВывода);

юТест.ПроверитьРавенство(ФайлВывода

+ ","

+ "арг у мент1" + ","

+ "аргумент2" + ","

,Данные);

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

Путь = ПутьОСкрипт();

Процесс = СоздатьПроцесс(Путь,,Истина);

Процесс.Запустить();

Процесс.ОжидатьЗавершения();

Стр = Процесс.ПотокВывода.Прочитать();

юТест.ПроверитьРавенство(Тип("Строка"), ТипЗнч(Стр), "Сначала должен был прочитать строку");

юТест.ПроверитьЛожь(ПустаяСтрока(Стр), "Вывод не должен быть пустым");

Стр = Процесс.ПотокВывода.Прочитать();

юТест.ПроверитьРавенство(Тип("Неопределено"), ТипЗнч(Стр), "После должен был прочитать Неопределено");

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

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

Путь = ПутьОСкрипт();

Процесс = СоздатьПроцесс(Путь,,Истина, Ложь,, ПеременныеСреды());

Процесс.Запустить();

Поток = Процесс.ПотокВывода;

Процесс.ОжидатьЗавершения();

Стр = НормализоватьПереводыСтрок(Поток.Прочитать());

юТест.ПроверитьРавенство(ШтатныйВыводOscript(), Стр);

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

Путь = ПутьОСкрипт();

Процесс = СоздатьПроцесс(Путь,,Истина, Ложь, КодировкаТекста.UTF8, ПеременныеСреды());

Процесс.Запустить();

Поток = Процесс.ПотокВывода;

Процесс.ОжидатьЗавершения();

Стр = НормализоватьПереводыСтрок(Поток.Прочитать());

юТест.ПроверитьРавенство(ШтатныйВыводOscript(), Стр);

Функция ЗаписатьТестовыйСкрипт()

ТекстСкрипта = "

ИмяФайла = КаталогВременныхФайлов() + "/" + СтрЗаменить(Строка(Новый УникальныйИдентификатор()), "-"," ");

ЗаписьТекста = Новый ЗаписьТекста(ИмяФайла);

ЗаписьТекста.Записать(ТекстСкрипта);

ЗаписьТекста.Закрыть();

Возврат ИмяФайла;

Функция ИмяФайлаВыводаТестовогоСкрипта()

Возврат юТест.ИмяВременногоФайла();