test: create test package with executable dynamically instead of fixture

Co-authored-by: nixel2007 <1132840+nixel2007@users.noreply.github.com>

Author: Copilot

tests/uninstall-test.os

@@ -54,12 +54,27 @@
 
 Функция СобратьТестовыйПакетСПриложением()
 
+	КаталогИсходников = мВременныеФайлы.СоздатьКаталог();
+
+	// Создаём исходники тестового пакета с исполняемым файлом
+	КаталогПриложения = ОбъединитьПути(КаталогИсходников, "folder");
+	СоздатьКаталог(КаталогПриложения);
+
+	ЗаписьТекста = Новый ЗаписьТекста(ОбъединитьПути(КаталогПриложения, "main.os"));
+	ЗаписьТекста.ЗаписатьСтроку("Сообщить(""Привет"");");
+	ЗаписьТекста.Закрыть();
+
+	ЗаписьТекста = Новый ЗаписьТекста(ОбъединитьПути(КаталогИсходников, "packagedef"));
+	ЗаписьТекста.ЗаписатьСтроку("Описание.Имя(""testapp"")");
+	ЗаписьТекста.ЗаписатьСтроку("		.Версия(""1.0.0"")");
+	ЗаписьТекста.ЗаписатьСтроку("		.ВключитьФайл(""folder"")");
+	ЗаписьТекста.ЗаписатьСтроку("		.ИсполняемыйФайл(""folder/main.os"");");
+	ЗаписьТекста.Закрыть();
+
 	Сборщик = Новый СборщикПакета;
 	КаталогСборки = мВременныеФайлы.СоздатьКаталог();
 
-	Сборщик.СобратьПакет(
-		ОбъединитьПути(ТекущийСценарий().Каталог, "testpackage", "testpackage-with-app"),
-		Неопределено, КаталогСборки);
+	Сборщик.СобратьПакет(КаталогИсходников, Неопределено, КаталогСборки);
 
 	Возврат Новый Файл(ОбъединитьПути(КаталогСборки, "testapp-1.0.0.ospx"));