ОтносительныйПуть возвращает . для текущего каталога

Author: artbear

packagedef

@@ -1,6 +1,6 @@
 
 Описание.Имя("fs")
-		.Версия("0.4")
+		.Версия("0.4.1")
 		.ВключитьФайл("Модули")
 		.ВключитьФайл("LICENSE")
 		.ВключитьФайл("README.md");

tests/Пути.os

@@ -12,6 +12,7 @@
 	МассивТестов.Добавить("Тест_ОтносительныйПуть_ДругойСлеш");
 	МассивТестов.Добавить("Тест_ОтносительныйПуть_НеСвязанныеПути");
 	МассивТестов.Добавить("Тест_ОтносительныйПуть_РазныеСлешиВКорнеИПути");
+	МассивТестов.Добавить("Тест_ОтносительныйПуть_ВернутьТочкуДляТекущегоКаталога");
 
 	Возврат МассивТестов;
 
@@ -60,3 +61,11 @@
 	Ожидаем.Что(ОтносительныйПуть).Равно(Рез);
 
 КонецПроцедуры
+
+Процедура Тест_ОтносительныйПуть_ВернутьТочкуДляТекущегоКаталога() Экспорт
+	Путь = "d:\build";
+	Корень = "d:\build";
+
+	ОтносительныйПуть = ФС.ОтносительныйПуть(Корень, Путь);
+	Ожидаем.Что(ОтносительныйПуть).Равно(".");
+КонецПроцедуры

Модули/ФС.os

@@ -157,5 +157,9 @@
 		Рез = СтрЗаменить(Рез, "/", РазделительПути);
 	КонецЕсли;
 
+	Если ПустаяСтрока(Рез) Тогда
+		Рез = ".";
+	КонецЕсли;
+
 	Возврат Рез;
 КонецФункции