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

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 @@
 Рез = СтрЗаменить(Рез, "/", РазделительПути);
 КонецЕсли;
 
+Если ПустаяСтрока(Рез) Тогда
+Рез = ".";
+КонецЕсли;
+
 Возврат Рез;
 КонецФункции