#23 Исправлена ошибка вывода версии. При отсутсвии других опций и арг.

Author: khorevaa

src/core/Классы/cmd/КомандаПриложения.os

@@ -139,19 +139,6 @@
 // Содержит код определение необходимости вывода версии приложения
 Процедура ПередВыполнениемКоманды(Знач Команда) Экспорт
 
-	Если Команда.Приложение = Неопределено Тогда
-		Возврат;
-	КонецЕсли;
-
-	Лог.Отладка("Выполнение метода <ПередВыполнениемКоманды>");
-	Если НЕ Команда.Приложение.ФлагВерсия = Неопределено
-		И Команда.Приложение.ФлагВерсия.Значение Тогда
-
-		ВывестиВерсию();
-		ЗавершитьРаботу(0);
-
-	КонецЕсли;
-
 КонецПроцедуры
 
 // Предопределенная процедура ПослеВыполненияКоманды команды, если не задана процедура в классе.
@@ -591,7 +578,7 @@
 
 	КонецЦикла;
 
-	АргументыCLI = Новый ФиксированныйМассив(НовыйМассивАргументов)
+	АргументыCLI = Новый ФиксированныйМассив(НовыйМассивАргументов);
 
 КонецПроцедуры
 
@@ -639,7 +626,6 @@
 	Для каждого КлючЗначение Из Опции Цикл
 
 		КлассОпции = КлючЗначение.Ключ;
-		КлассОпции.ИзФайла();
 		КлассОпции.ИзПеременнойОкружения();
 
 		Для каждого ИмяПараметра Из КлассОпции.НаименованияПараметров Цикл
@@ -657,7 +643,6 @@
 	Для каждого КлючЗначение Из Аргументы Цикл
 
 		КлассАргумента = КлючЗначение.Ключ;
-		КлассАргумента.ИзФайла();
 		КлассАргумента.ИзПеременнойОкружения();
 
 		Для каждого ИмяПараметра Из КлассАргумента.НаименованияПараметров Цикл
@@ -953,12 +938,6 @@
 
 #Область Вспомогательные процедуры и функции
 
-Процедура ВывестиВерсию()
-
-	Сообщить(Приложение.ВерсияПриложения);
-
-КонецПроцедуры
-
 Процедура ВывестиПутьПарсераВОтладке()
 
 	Если Лог.Уровень() = УровниЛога.Отладка Тогда

src/core/Классы/КонсольноеПриложение.os

@@ -55,6 +55,15 @@
 		Аргументы = АргументыКоманднойСтрокиВходящие;
 	КонецЕсли;
 
+	Если Тип("ПараметрКоманды") = ТипЗнч(ФлагВерсия) 
+		И ЗначениеЗаполнено(ВерсияПриложения)
+		И ФлагУстановлен(Аргументы, ФлагВерсия) Тогда
+		
+		ВывестиВерсию();
+		ЗавершитьРаботу(0);
+
+	КонецЕсли;
+
 	Команда.НачалоЗапуска();
 	Команда.Запуск(Аргументы);
 
@@ -163,6 +172,34 @@
 
 КонецПроцедуры
 
+Процедура ВывестиВерсию()
+
+	Сообщить(ВерсияПриложения);
+
+КонецПроцедуры
+
+Функция ФлагУстановлен(Знач АргументыCLI, Знач ОпцияФлаг)
+
+	Если АргументыCLI.Количество() = 0 Тогда
+		Возврат Ложь;
+	КонецЕсли;
+
+	ПервыйАргумент = АргументыCLI[0];
+	МассивИменОпции = ОпцияФлаг.НаименованияПараметров;
+
+	Для каждого ИмяФлага Из МассивИменОпции Цикл
+		
+		Если АргументыCLI[0] = ИмяФлага Тогда
+			Возврат Истина;
+		КонецЕсли;
+
+	КонецЦикла;
+
+	Возврат ложь;;
+
+КонецФункции
+
+
 Процедура ПриСозданииОбъекта(Знач Наименование, Знач Описание, Знач КлассРеализацииОсновныйКоманды = Неопределено)
 
 	НаименованиеПриложения = Наименование;

tests/КонсольноеПриложение_test.os

@@ -14,6 +14,7 @@
 	//ИменаТестов.Добавить("ТестДолжен_ПроверитьПриложения");
 	ИменаТестов.Добавить("ТестДолжен_ПараметрыПеречисленияОпции");
 	ИменаТестов.Добавить("ТестДолжен_ПараметрыПеречисленияОпцииВыводHelp");
+	ИменаТестов.Добавить("ТестДолжен_ПроверитьВыводВерсииПриложения");
 
 	Возврат ИменаТестов;
 
@@ -46,6 +47,18 @@
 
 КонецПроцедуры
 
+Процедура ТестДолжен_ПроверитьВыводВерсииПриложения() Экспорт
+
+	Приложение = Новый КонсольноеПриложение("cp", "");
+	Приложение.Версия("v version", "1.0");
+	ВходящиеАргументы = Новый Массив;
+	ВходящиеАргументы.Добавить("-v");
+	
+	// TODO: При выполнении этого теста происходить завершение тестирования
+	// Переписать после написания нормального флоу
+	//Приложение.Запустить(ВходящиеАргументы);
+	
+КонецПроцедуры
 
 Процедура ТестДолжен_ПараметрыПеречисленияОпции() Экспорт