Тесты в первом приближении

Author: EvilBeaver

src/core/Классы/ВерсииOneScript.os

@@ -9,6 +9,9 @@
 &Пластилин
 Перем ПараметрыOVM;
 
+&Пластилин
+Перем ПровайдерДистрибутивовВерсии;
+
 Перем ЭтоWindows;
 Перем ДопустимыеАлиасы; // Кеш коллекции допустимых алиасов
 
@@ -215,17 +218,17 @@
 //
 Функция ПолучитьСписокДоступныхКУстановкеВерсий() Экспорт
 
-	Таймаут = 10;
-	Соединение = Новый HTTPСоединение(
-		ПараметрыOVM.АдресСайтаОСкрипт(),
-		,
-		,
-		,
-		,
-		Таймаут
-	);
-
-	Возврат ПолучитьВерсииПоAPI(Соединение);
+	// Запрашиваем сайт
+	ДоступныеВерсии = ПровайдерДистрибутивовВерсии.ПолучитьСписокДоступныхКУстановкеВерсий();
+
+	// Дополняем таблицу нашими алиасами
+	Итератор = ДопустимыеАлиасы().Ключи().Итератор();
+
+	Пока Итератор.ЕстьСледующий() Цикл
+		ОбеспечитьСтрокуВерсииПоАлиасу(ДоступныеВерсии, Итератор.Следующий(), "Путь");
+	КонецЦикла;
+
+	Возврат ДоступныеВерсии;
 
 КонецФункции
 
@@ -245,73 +248,7 @@
 //     https://oscript.io/api/archive/<токен версии> - данная таблица
 //
 Функция ПолучитьДоступныеВидыДистрибутивовВерсии(Знач НомерВерсии) Экспорт
-	Таймаут = 10;
-	Соединение = Новый HTTPСоединение(
-		ПараметрыOVM.АдресСайтаОСкрипт(),
-		,
-		,
-		,
-		,
-		Таймаут
-	);
-
-	Запрос = Новый HTTPЗапрос("api/archive?all=true");
-	Ответ = Соединение.Получить(Запрос);
-	HTTP_OK = 200;
-	Если Ответ.КодСостояния <> HTTP_OK Тогда
-		ВызватьИсключение СтрШаблон("Не удалось найти версию %1 на сайте: Статус: %2, Ответ: %3",
-			НомерВерсии,
-			Ответ.КодСостояния,
-			Ответ.ПолучитьТелоКакСтроку()
-		);
-	КонецЕсли;
-
-	ЧтениеJSON = Новый ЧтениеJSON();
-	ЧтениеJSON.УстановитьСтроку(Ответ.ПолучитьТелоКакСтроку());
-	
-	МассивВерсий = ПрочитатьJSON(ЧтениеJSON, Ложь);
-	ИскомыйТокенВерсии = Неопределено;
-	Для Каждого ОписаниеВерсии Из МассивВерсий Цикл
-		Если НомерВерсии = ОписаниеВерсии.presentation Тогда
-			ИскомыйТокенВерсии = ОписаниеВерсии.token;
-		КонецЕсли;
-	КонецЦикла;
-
-	Если ИскомыйТокенВерсии = Неопределено Тогда
-		ВызватьИсключение СтрШаблон("Не удалось найти версию %1 на сайте.", НомерВерсии);
-	КонецЕсли;
-
-	Запрос = Новый HTTPЗапрос("api/archive/" + ИскомыйТокенВерсии);
-	Ответ = Соединение.Получить(Запрос);
-	HTTP_OK = 200;
-	Если Ответ.КодСостояния <> HTTP_OK Тогда
-		ВызватьИсключение СтрШаблон("Не удалось найти файлы версии %1 на сайте: Статус: %2, Ответ: %3",
-			НомерВерсии,
-			Ответ.КодСостояния,
-			Ответ.ПолучитьТелоКакСтроку()
-		);
-	КонецЕсли;
-
-	ТаблицаРезультата = Новый ТаблицаЗначений();
-	ТаблицаРезультата.Колонки.Добавить("Вид");
-	ТаблицаРезультата.Колонки.Добавить("ИмяФайла");
-	ТаблицаРезультата.Колонки.Добавить("Архитектура");
-	ТаблицаРезультата.Колонки.Добавить("Ссылка");
-
-	ЧтениеJSON = Новый ЧтениеJSON();
-	ЧтениеJSON.УстановитьСтроку(Ответ.ПолучитьТелоКакСтроку());
-	
-	МассивФайлов = ПрочитатьJSON(ЧтениеJSON, Ложь);
-	Для Каждого ОписаниеФайла Из МассивФайлов Цикл
-		СтрокаТаблицы = ТаблицаРезультата.Добавить();
-		СтрокаТаблицы.Вид = ОписаниеФайла.id;
-		СтрокаТаблицы.ИмяФайла = ОписаниеФайла.filename;
-		СтрокаТаблицы.Архитектура = ОписаниеФайла.arch;
-		СтрокаТаблицы.Ссылка = ОписаниеФайла.link;
-	КонецЦикла;
-
-	Возврат ТаблицаРезультата;
-
+	Возврат ПровайдерДистрибутивовВерсии.ПолучитьДоступныеВидыДистрибутивовВерсии(НомерВерсии);
 КонецФункции
 
 // <Описание функции>
@@ -399,36 +336,19 @@
 
 КонецФункции
 
-Функция ПолучитьВерсииПоAPI(Знач Соединение)
-	Запрос = Новый HTTPЗапрос("api/archive");
-	Ответ = Соединение.Получить(Запрос);
-	HTTP_OK = 200;
-	Если Ответ.КодСостояния <> HTTP_OK Тогда
-		ВызватьИсключение СтрШаблон("Не удалось получить список версий с сайта. Код ошибки: %1", Ответ.КодСостояния);
-	КонецЕсли;
-
-	ЧтениеJSON = Новый ЧтениеJSON();
-	ЧтениеJSON.УстановитьСтроку(Ответ.ПолучитьТелоКакСтроку());
+// Регулярное выражение версии по semver
+//
+//  Возвращаемое значение:
+//   Строка - Регулярное выражение
+//
+Функция МаскаНомераВерсииSemver() Экспорт
+	// https://semver.org/#is-there-a-suggested-regular-expression-regex-to-check-a-semver-string
+	// https://regex101.com/r/vkijKf/1/
+	
+	// BSLLS:LineLength-off
+	Возврат "^(0|[1-9]\d*)\.(0|[1-9]\d*)\.(0|[1-9]\d*)(?:-((?:0|[1-9]\d*|\d*[a-zA-Z-][0-9a-zA-Z-]*)(?:\.(?:0|[1-9]\d*|\d*[a-zA-Z-][0-9a-zA-Z-]*))*))?(?:\+([0-9a-zA-Z-]+(?:\.[0-9a-zA-Z-]+)*))?$";
+	// BSLLS:LineLength-on
 
-	ДоступныеВерсии = Новый ТаблицаЗначений;
-	ДоступныеВерсии.Колонки.Добавить("Алиас");
-	ДоступныеВерсии.Колонки.Добавить("Путь");
-
-	АдресСайтаОСкрипт = ПараметрыOVM.АдресСайтаОСкрипт();
-	МассивВерсий = ПрочитатьJSON(ЧтениеJSON, Ложь);
-	Для Каждого ОписаниеВерсии Из МассивВерсий Цикл
-		ДоступнаяВерсия = ДоступныеВерсии.Добавить();
-		ДоступнаяВерсия.Алиас = ОписаниеВерсии.presentation;
-		ДоступнаяВерсия.Путь = АдресСайтаОСкрипт + ОписаниеВерсии.link;
-	КонецЦикла;
-
-	Итератор = ДопустимыеАлиасы().Ключи().Итератор();
-
-	Пока Итератор.ЕстьСледующий() Цикл
-		ОбеспечитьСтрокуВерсииПоАлиасу(ДоступныеВерсии, Итератор.Следующий(), "Путь");
-	КонецЦикла;
-
-	Возврат ДоступныеВерсии;
 КонецФункции
 
 Процедура ОбеспечитьСтрокуВерсииПоАлиасу(ТаблицаВерсий, Алиас, ИмяРеквизитаПуть = "ПутьСервер")

src/core/Классы/ДетекторОкружения.os

@@ -0,0 +1,27 @@
+#Использовать cpuinfo
+
+Перем СистемнаяИнформация;
+Перем ИнформацияОПроцессоре;
+
+&Желудь
+Процедура ПриСозданииОбъекта()
+	// получение cpuinfo тяжелая операция с запуском процессов
+	// поэтому инициализация ленивая и в конструкторе желудя не выполняется.
+КонецПроцедуры
+
+Функция ТипПлатформы() Экспорт
+	Инициализировать();
+	Возврат СистемнаяИнформация.ТипПлатформы;
+КонецФункции
+
+Функция АрхитектураПроцессора() Экспорт
+	Инициализировать();
+	Возврат ИнформацияОПроцессоре.Архитектура;
+КонецФункции
+
+Процедура Инициализировать()
+	Если СистемнаяИнформация = Неопределено Тогда
+		СистемнаяИнформация = Новый СистемнаяИнформация;
+		ИнформацияОПроцессоре = Новый ИнформацияОПроцессоре;
+	КонецЕсли;
+КонецПроцедуры

src/core/Классы/ОпределительДистрибутива.os

@@ -0,0 +1,112 @@
+Перем ДетекторОкружения;
+
+Перем ИспользоватьFDD;
+Перем ИспользоватьХ64;
+Перем ЭтоДистрибутивНеткор;
+
+Процедура ПриСозданииОбъекта(Знач Детектор)
+	ДетекторОкружения = Детектор;
+КонецПроцедуры
+
+Функция ИспользоватьFDD(Знач Использовать) Экспорт
+	ИспользоватьFDD = Использовать;
+	Возврат ЭтотОбъект;
+КонецФункции
+
+Функция ИспользоватьХ64(Знач Использовать) Экспорт
+	ИспользоватьХ64 = Использовать;
+	Возврат ЭтотОбъект;
+КонецФункции
+
+Функция ЭтоДистрибутивНеткор(Знач Да) Экспорт
+	ЭтоДистрибутивНеткор = Да;
+	Возврат ЭтотОбъект;
+КонецФункции
+
+Функция Выбрать(Знач ПереченьФайлов) Экспорт
+	
+	Если ЭтоДистрибутивНеткор = Истина Тогда
+		ВидДистрибутива = ?(ИспользоватьFDD, "fdd", ТипДистрибутиваТекущейПлатформы());
+	ИначеЕсли ЭтоДистрибутивНеткор = Ложь Тогда
+		ВидДистрибутива = "zip";
+	ИначеЕсли ИспользоватьFDD Тогда
+		ЭтоДистрибутивНеткор = Истина;
+		ВидДистрибутива = "fdd";
+	Иначе
+		// Это установка по алиасу и мы не знаем, версия 2 это или нет.
+		// Определим это с двух попыток ниже.
+		ВидДистрибутива = Неопределено;
+	КонецЕсли;
+
+	Возврат НайтиПодходящийДистрибутив(ПереченьФайлов, ВидДистрибутива, ИспользоватьХ64);
+
+КонецФункции
+
+Функция ПризнакАрхитектуры(Знач ИспользоватьХ64)
+	Возврат ?(ИспользоватьХ64, "x64", "x86");
+КонецФункции
+
+Функция НайтиПодходящийДистрибутив(Знач ПереченьФайлов, Знач ВидДистрибутива, Знач ИспользоватьХ64)
+	КритерийПоиска = Новый Структура;
+	КритерийПоиска.Вставить("Вид");
+	КритерийПоиска.Вставить("Архитектура");
+
+	РежимАлиаса = (ВидДистрибутива = Неопределено);
+
+	Если РежимАлиаса Тогда
+		КритерийПоиска.Вид = ТипДистрибутиваТекущейПлатформы();
+	Иначе
+		КритерийПоиска.Вид = ВидДистрибутива;
+	КонецЕсли;
+
+	КритерийПоиска.Архитектура = ПризнакАрхитектуры(ИспользоватьХ64);
+
+	НайденныеСтроки = ПереченьФайлов.НайтиСтроки(КритерийПоиска);
+	Если НайденныеСтроки.Количество() <> 1 Тогда
+		// Это может быть установка по алиасу и тогда есть шанс у дистрибутива zip для версии 1
+		Если РежимАлиаса Тогда
+			КритерийПоиска.Вид = "zip";
+		КонецЕсли;
+
+		НайденныеСтроки = ПереченьФайлов.НайтиСтроки(КритерийПоиска);
+		Если НайденныеСтроки.Количество() <> 1 Тогда
+			ТекстОшибки = СтрШаблон(
+				"Не найден дистрибутив для критериев: Вид=%1, Архитектура=%2. Найдено файлов: %3",
+				КритерийПоиска.Вид,
+				?(КритерийПоиска.Свойство("Архитектура"), КритерийПоиска.Архитектура, "<любая>"),
+				НайденныеСтроки.Количество()
+			);
+			ВызватьИсключение ТекстОшибки;
+		КонецЕсли;
+	КонецЕсли;
+
+	Возврат НайденныеСтроки[0].Ссылка;
+КонецФункции
+
+Функция ТипДистрибутиваТекущейПлатформы()
+
+	ТекущаяПлатформа = ДетекторОкружения.ТипПлатформы();
+
+	Если ТекущаяПлатформа = ТипПлатформы.Windows_x86_64
+		Или ТекущаяПлатформа = ТипПлатформы.Windows_x86 Тогда
+		Возврат "scd-win";
+	ИначеЕсли ТекущаяПлатформа = ТипПлатформы.Linux_x86_64
+		Или ТекущаяПлатформа = ТипПлатформы.Linux_x86 Тогда
+		Возврат "scd-lin";
+	ИначеЕсли ТекущаяПлатформа = ТипПлатформы.MacOS_x86_64
+		Или ТекущаяПлатформа = ТипПлатформы.MacOS_x86 Тогда
+
+		АрхитектураПроцессора = ДетекторОкружения.АрхитектураПроцессора();
+
+		Если АрхитектураПроцессора = АрхитектурыПроцессоров.ARM
+			Или АрхитектураПроцессора = АрхитектурыПроцессоров.ARM64 Тогда
+			Возврат "osx-arm64";
+		Иначе
+			Возврат "osx-x64";
+		КонецЕсли;
+
+	Иначе
+		ВызватьИсключение "Не удалось определить текущую операционную систему";
+	КонецЕсли;
+
+КонецФункции

src/core/Классы/ПараметрыOVM.os

@@ -5,7 +5,7 @@
 &Деталька(Значение = "oscript.server", ЗначениеПоУмолчанию = "https://oscript.io")
 Перем АдресСайтаОСкрипт;
 
-&Желудь
+&Дуб
 Процедура ПриСозданииОбъекта()
 КонецПроцедуры
 
@@ -14,6 +14,7 @@
 //  Возвращаемое значение:
 //   Строка - Путь к каталогу установки по умолчанию
 //
+&Завязь(Тип = "Строка")
 Функция КаталогУстановкиПоУмолчанию() Экспорт
 
 	КаталогУстановкиПоУмолчанию = ПолучитьПеременнуюСреды("OVM_INSTALL_PATH");
@@ -33,6 +34,7 @@
 //  Возвращаемое значение:
 //   Строка - Адрес сайта OneScript
 //
+&Завязь(Тип = "Строка")
 Функция АдресСайтаОСкрипт() Экспорт
 	Возврат АдресСайтаОСкрипт;
 КонецФункции
@@ -42,6 +44,7 @@
 //  Возвращаемое значение:
 //   Строка - Полный адрес к каталогу дистрибутивов OneScript
 //
+&Завязь(Тип = "Строка")
 Функция ПолныйАдресККаталогуДистрибутивов() Экспорт
 	Возврат АдресСайтаОСкрипт() + "/downloads";
 КонецФункции
@@ -50,23 +53,9 @@
 //
 //  Возвращаемое значение:
 //   Булево - это 64 битная операционна система
+&Завязь(Тип = "Булево")
 Функция Это64БитнаяОперационнаяСистема() Экспорт
 	Возврат СистемнаяИнформация.Это64БитнаяОперационнаяСистема;
 КонецФункции
 
-// Регулярное выражение версии по semver
-//
-//  Возвращаемое значение:
-//   Строка - Регулярное выражение
-//
-Функция МаскаНомераВерсииSemver() Экспорт
-	// https://semver.org/#is-there-a-suggested-regular-expression-regex-to-check-a-semver-string
-	// https://regex101.com/r/vkijKf/1/
-	
-	// BSLLS:LineLength-off
-	Возврат "^(0|[1-9]\d*)\.(0|[1-9]\d*)\.(0|[1-9]\d*)(?:-((?:0|[1-9]\d*|\d*[a-zA-Z-][0-9a-zA-Z-]*)(?:\.(?:0|[1-9]\d*|\d*[a-zA-Z-][0-9a-zA-Z-]*))*))?(?:\+([0-9a-zA-Z-]+(?:\.[0-9a-zA-Z-]+)*))?$";
-	// BSLLS:LineLength-on
-	
-КонецФункции
-
 СистемнаяИнформация = Новый СистемнаяИнформация;