Еще поправил ошибку

Author: Gogs

src/Классы/ОпцияПарсера.os

@@ -3,6 +3,7 @@
 
 
 Функция ПриСозданииОбъекта(КлассОпции, Индекс)
+	Сообщить("Создан парсер для опции "+ КлассОпции.Имя);
 	Опция = КлассОпции;
 	ОпцииИндекс = Индекс;
 КонецФункции
@@ -21,7 +22,7 @@
 
 	Индекс = 0;
 
-	Пока Индекс <= Аргументы.Количество() Цикл
+	Пока Индекс < Аргументы.Количество() Цикл
 
 		ТекущийАргумент = Аргументы[Индекс];
 
@@ -36,7 +37,7 @@
 		ИначеЕсли СтрНачинаетсяС(ТекущийАргумент, "-") Тогда
 
 			РезультатПоискаКороткойОпции = НайтиКоротнуюОпцию(Аргументы, Индекс, КонтекстПоиска);
-
+			Сообщить("Короткая опция найдена: " + РезультатПоискаКороткойОпции.Найден);
 			Если РезультатПоискаКороткойОпции.Найден Тогда
 				Результат.РезультатПоиска = Истина;
 				Результат.Аргументы = РезультатПоискаКороткойОпции.Аргументы;
@@ -172,12 +173,13 @@
 			Возврат Результат;
 
 		КонецЕсли;
-	
+
+
 
 	КонецЦикла;
 
 
- 
+	Возврат Результат;
 
 
 КонецФункции

src/Классы/СпекПарсер.os

@@ -162,10 +162,10 @@
 		КонецЕсли;
 
 		Имя = НайденныйТокен.Значение;
-		Лог.Отладка("		>> Имя токен: %1", НайденныйТокен.Значение);
-		
 		КлассОпции = ОпцииИндекс[Имя];
-		
+		Лог.Отладка("		>> Имя токен: %1", НайденныйТокен.Значение);
+		Лог.Отладка("		>> класс опции: %1", КлассОпции.Имя);
+	
 		Если КлассОпции = Неопределено Тогда
 			Назад();
 			Сообщить("Нашли не объявленную опцию");
@@ -278,7 +278,7 @@
 Функция ВыборТокена_Адд(НачальноеСостояние, КонечноеСостояние, s, e)
 
 	НачальноеСостояние.Т(Новый ЛюбойСимвол(), s);
-	КонечноеСостояние.Т(Новый ЛюбойСимвол(), e);
+	e.Т(Новый ЛюбойСимвол(), НачальноеСостояние);
 
 КонецФункции
 

tests.xml

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<testsuites tests="2" name="xUnitFor1C" time="0.0698521" failures="0" skipped="0">
+<testsuites tests="2" name="xUnitFor1C" time="0.0845228" failures="0" skipped="0">
     <testsuite name="">
         <properties />
         <testcase classname="cli-lexer_test" name="ТестДолжен_ПроверитьСпекЛексер" status="passed" />

tests/cli.os

@@ -25,7 +25,7 @@
 	cli.НачалоЗапуска();
 	ВходящиеАргументы = Новый Массив;
 	ВходящиеАргументы.Добавить("-v");
-	//ВходящиеАргументы.Добавить("-s");
+	ВходящиеАргументы.Добавить("-s");
 	ВходящиеАргументы.Добавить("-b");
 	cli.ЧтениеАргументов(ВходящиеАргументы);