Merge pull request #38 from sfaqer/bugfix/envPrefix

Исправлены ошибки при работе с переменными среды с префиксом

packagedef

@@ -4,7 +4,7 @@
 //
 
 Описание.Имя("configor")
-        .Версия("0.8.4")
+        .Версия("0.9.0")
         .Автор("Khorev Aleksey")
         .АдресАвтора("[email protected]")
         .Описание("Библиотека для работы с конфигурационными файлами в формате json, yaml")

src/Классы/internal/Классы/ИндексЗначений.os

@@ -34,6 +34,10 @@
 
 	ПроверитьИндекс();
 
+	Если ТипЗнч(КлючИндекса) = Тип("Строка") Тогда
+		КлючИндекса = НРег(КлючИндекса);
+	КонецЕсли;
+
 	ЗначениеИзИндекса = ИндексКоллекция[КлючИндекса];
 
 	Возврат ЗначениеИзИндекса;
@@ -82,6 +86,11 @@
 	// Вставляем все значение целиком
 	Если Не ПустаяСтрока(ИмяПараметра) Тогда
 		Лог.Отладка("Добавляю параметр <%1> со значением <%2> в индекс", ИмяПараметра, ЗначениеПараметра);
+
+		Если ТипЗнч(ИмяПараметра) = Тип("Строка") Тогда
+			ИмяПараметра = НРег(ИмяПараметра);
+		КонецЕсли;
+
 		ИндексКоллекция.Вставить(ИмяПараметра, ЗначениеПараметра);
 	КонецЕсли;
 

src/Классы/internal/Классы/ПровайдерПараметровENV.os

@@ -69,10 +69,10 @@
 
 		Для каждого ПеременнаяСреды Из ПрочитанныеПараметры Цикл
 
-			Если СтрНачинаетсяС(ПеременнаяСреды.Ключ, Префикс) Тогда
-				Сообщить(Прав(ПеременнаяСреды.Ключ, СтрДлина(ПеременнаяСреды.Ключ) - СтрДлина(Префикс)));
+			Если СтрНачинаетсяС(НРег(ПеременнаяСреды.Ключ), НРег(Префикс)) Тогда
+
 				Результат.Вставить(
-					Прав(ПеременнаяСреды.Ключ, СтрДлина(ПеременнаяСреды.Ключ) - СтрДлина(Префикс)),
+					Прав(ПеременнаяСреды.Ключ, СтрДлина(ПеременнаяСреды.Ключ) - (СтрДлина(Префикс) + 1)),
 					ПеременнаяСреды.Значение
 				);
 

tests/ПровайдерПараметровENV.os

@@ -6,7 +6,7 @@
 
 	// Дано
 
-	УстановитьПеременнуюСреды("Test__Configor_Env", "ТестЗначение", РасположениеПеременнойСреды.Процесс);
+	УстановитьПеременнуюСреды("TEST__CONFIGOR_ENV", "ТестЗначение", РасположениеПеременнойСреды.Процесс);
 
 	// Когда
 
@@ -27,13 +27,13 @@
 
 	// Дано
 
-	УстановитьПеременнуюСреды("Test_Configor__Env", "ТестЗначение", РасположениеПеременнойСреды.Процесс);
+	УстановитьПеременнуюСреды("TEST_CONFIGOR__ENV", "ТестЗначение", РасположениеПеременнойСреды.Процесс);
 
 	// Когда
 
 	МенеджерПараметров = Новый МенеджерПараметров();
 
-	МенеджерПараметров.ДобавитьПровайдерПараметров(Новый ПровайдерПараметровENV("Test."));
+	МенеджерПараметров.ДобавитьПровайдерПараметров(Новый ПровайдерПараметровENV("Test"));
 
 	МенеджерПараметров.Прочитать();