Skip to content

Commit 50e09a2

Browse files
committed
Поправил тесты для прохождения на Linux.
1 parent 0a111e7 commit 50e09a2

File tree

2 files changed

+21
-9
lines changed

2 files changed

+21
-9
lines changed

tests/git-sync-test.os

Lines changed: 17 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -9,6 +9,7 @@
99
Перем юТест;
1010
Перем Распаковщик;
1111
Перем Лог;
12+
Перем ЭтоWindows;
1213

1314
Процедура Инициализация()
1415

@@ -129,7 +130,7 @@
129130

130131
Распаковщик.РазложитьМодули1СПоПапкамСогласноИерархииМетаданных(КаталогПлоскойВыгрузки, КаталогИерархическойВыгрузки, РежимВыгрузкиФайлов.Плоский);
131132

132-
ФайлПереименований = Новый Файл(КаталогИерархическойВыгрузки + "\renames.txt");
133+
ФайлПереименований = Новый Файл(ОбъединитьПути(КаталогИерархическойВыгрузки,"renames.txt"));
133134
Утверждения.ПроверитьИстину(ФайлПереименований.Существует(), "Не удалось разложим модули 1С по иерархии - не существует файл <"+ФайлПереименований.ПолноеИмя+">");
134135

135136
МассивФайлов = НайтиФайлы(КаталогИерархическойВыгрузки,"*.*");
@@ -355,7 +356,7 @@
355356
ИмяФайлаЛогаГит = ВременныеФайлы.НовоеИмяФайла("txt");
356357

357358
Батник = Новый КомандныйФайл;
358-
Батник.ДобавитьКоманду("cd /d " + ОбернутьВКавычки(КаталогИсходников));
359+
Батник.ДобавитьКоманду(СтрШаблон("cd %1 %2",?(ЭтоWindows, "/d", ""), ОбернутьВКавычки(КаталогИсходников)));
359360
Батник.ДобавитьКоманду("git log --pretty=oneline >"+ОбернутьВКавычки(ИмяФайлаЛогаГит));
360361

361362
КодВозврата = Батник.Исполнить();
@@ -426,7 +427,7 @@
426427
ВременныйРепо = ВыполнитьКлонированиеТестовогоРепо();
427428

428429
СоздатьФайлАвторовГит_ДляТестов(ВременныйРепо.ЛокальныйРепозиторий);
429-
Утверждения.ПроверитьИстину(Новый Файл(ВременныйРепо.ЛокальныйРепозиторий+"\AUTHORS").Существует());
430+
Утверждения.ПроверитьИстину(Новый Файл(ОбъединитьПути(ВременныйРепо.ЛокальныйРепозиторий,"AUTHORS")).Существует());
430431

431432
Распаковщик.ВыполнитьКоммитГит(ВременныйРепо.ЛокальныйРепозиторий, "test commit", "Администратор <admin@localhost>");
432433

@@ -440,7 +441,7 @@
440441
ВременныйРепо = ВыполнитьКлонированиеТестовогоРепо();
441442

442443
СоздатьФайлАвторовГит_ДляТестов(ВременныйРепо.ЛокальныйРепозиторий);
443-
Утверждения.ПроверитьИстину(Новый Файл(ВременныйРепо.ЛокальныйРепозиторий+"\AUTHORS").Существует());
444+
Утверждения.ПроверитьИстину(Новый Файл(ОбъединитьПути(ВременныйРепо.ЛокальныйРепозиторий,"AUTHORS")).Существует());
444445

445446
Распаковщик.ВыполнитьКоммитГит(ВременныйРепо.ЛокальныйРепозиторий, "test commit", "Администратор <admin@localhost>");
446447

@@ -472,19 +473,25 @@
472473
ФайлЛога = ВременныеФайлы.СоздатьФайл("log");
473474
Батник = Новый КомандныйФайл();
474475
Батник.Создать();
475-
Батник.ДобавитьКоманду("chcp 1251 > nul");
476-
Батник.ДобавитьКоманду(СтроковыеФункции.ПодставитьПараметрыВСтроку("cd /d ""%1""", ЛокальныйКаталог));
476+
Если ЭтоWindows Тогда
477+
Батник.ДобавитьКоманду("chcp 1251 > nul");
478+
КонецЕсли;
479+
Батник.ДобавитьКоманду(СтрШаблон("cd %1 ""%2""",?(ЭтоWindows, "/d", ""), ЛокальныйКаталог));
477480

478481
ПараметрыКоманды = Новый Массив;
479482
ПараметрыКоманды.Добавить("git clone");
480483
ПараметрыКоманды.Добавить(URLРепозитария);
481-
ПараметрыКоманды.Добавить(ОбернутьВКавычки("%CD%"));
484+
ПараметрыКоманды.Добавить(ОбернутьВКавычки(ЛокальныйКаталог));
482485
ПараметрыКоманды.Добавить(СуффиксПеренаправленияВывода(ФайлЛога, Истина));
483486

484487
КоманднаяСтрока = СобратьКоманднуюСтроку(ПараметрыКоманды);
485488
Лог.Отладка("Командная строка git clone:" + Символы.ПС + КоманднаяСтрока);
486489
Батник.ДобавитьКоманду(КоманднаяСтрока);
487-
Батник.ДобавитьКоманду("exit /b %ERRORLEVEL%");
490+
Если Не ЭтоWindows Тогда
491+
Батник.ДобавитьКоманду("exit $#");
492+
Иначе
493+
Батник.ДобавитьКоманду("exit /b %ERRORLEVEL%");
494+
КонецЕсли;
488495

489496
РезультатКлонирования = Батник.Исполнить();
490497
// вывод всех сообщений от Git
@@ -537,5 +544,7 @@
537544
КонецПроцедуры
538545

539546
//////////////////////////////////////////////////////////////////////////////
547+
СистемнаяИнформация = Новый СистемнаяИнформация;
548+
ЭтоWindows = Найти(НРег(СистемнаяИнформация.ВерсияОС), "windows") > 0;
540549

541550
Инициализация();

tests/test-export_with_min_max_versions.os

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -9,6 +9,7 @@
99
Перем юТест;
1010
Перем Распаковщик;
1111
Перем Лог;
12+
Перем ЭтоWindows;
1213

1314
Процедура Инициализация()
1415

@@ -89,7 +90,7 @@
8990
ИмяФайлаЛогаГит = ВременныеФайлы.НовоеИмяФайла("txt");
9091

9192
Батник = Новый КомандныйФайл;
92-
Батник.ДобавитьКоманду("cd /d " + ОбернутьВКавычки(КаталогИсходников));
93+
Батник.ДобавитьКоманду(СтрШаблон("cd %1 %2",?(ЭтоWindows, "/d", ""), ОбернутьВКавычки(КаталогИсходников)));
9394
Батник.ДобавитьКоманду("git log --pretty=oneline >"+ОбернутьВКавычки(ИмяФайлаЛогаГит));
9495

9596
КодВозврата = Батник.Исполнить();
@@ -153,5 +154,7 @@
153154
КонецФункции
154155

155156
//////////////////////////////////////////////////////////////////////////////
157+
СистемнаяИнформация = Новый СистемнаяИнформация;
158+
ЭтоWindows = Найти(НРег(СистемнаяИнформация.ВерсияОС), "windows") > 0;
156159

157160
Инициализация();

0 commit comments

Comments
 (0)