Merge pull request #9 from autumn-library/check_ovm

тест на флаг и аргумент

tests/alltests.os

@@ -462,4 +462,30 @@
 
 	Ожидаем.Что(Команда.ИмяПользователя(), "Параметр передан в команду").Равно("Никита");
 
+КонецПроцедуры
+
+&Тест
+Процедура Опции_ВызовКомандыСФлагомИАгрументом() Экспорт
+	// Дано
+
+	Поделка = ПолучитьПоделку();
+	Поделка.ЗапуститьПриложение();
+
+	// Когда
+
+	Команда = Поделка.НайтиЖелудь("КомандаСАргументомИФлагом");
+	КонсольноеПриложение = Поделка.НайтиЖелудь("КонсольноеПриложение");
+
+	ПараметрыКоманды = Новый Массив();
+	ПараметрыКоманды.Добавить("argandflag");
+	ПараметрыКоманды.Добавить("-i");
+	ПараметрыКоманды.Добавить("dev");
+
+	КонсольноеПриложение.Запустить(ПараметрыКоманды);
+
+	// Тогда
+
+	Ожидаем.Что(Команда.Результат[0], "проверка аргумента").Равно("dev");
+	Ожидаем.Что(Команда.Результат[1], "проверка флага").Равно(Истина);
+
 КонецПроцедуры

tests/Классы/КомандаСАргументомИФлагом.os

@@ -0,0 +1,24 @@
+&Аргумент(Имя = "VERSION", Описание = "Используемая версия OneScript. Допустимо использовать трехномерные версии (1.0.17, 1.0.18), stable, dev")
+&ВОкружении("OVM_USE_VERSION")
+&ТСтрока
+Перем ИспользуемаяВерсия;
+
+&Опция(Имя = "install i", Описание = "Выполнять установку требуемой версии в случае ее отсутствия")
+&ПоУмолчанию(Ложь)
+&ВОкружении("OVM_USE_INSTALL")
+Перем ВыполнятьУстановкуПриНеобходимости;
+
+Перем Результат Экспорт;
+
+&КомандаПриложения(Имя = "argandflag")
+Процедура ПриСозданииОбъекта()
+	Результат = Новый Массив();
+КонецПроцедуры
+
+&ВыполнениеКоманды
+Процедура СформироватьРезультат() Экспорт
+
+	Результат.Добавить(ИспользуемаяВерсия);
+	Результат.Добавить(ВыполнятьУстановкуПриНеобходимости);
+
+КонецПроцедуры