native-api.os

Перем юТест;
Перем ЭтоWindows;
Перем DLLПодключенаУспешно;

Перем ЗаписьXML, ЗаписьZIP, КаталогСкрипта, КаталогПакета, СуффиксВерсии;

Функция ПолучитьСписокТестов(ЮнитТестирование) Экспорт
	
	ПроверитьСуществованиеПрокси();

	юТест = ЮнитТестирование;
	
	ВсеТесты = Новый Массив;
	
	// TODO: сделать прогон этого теста еще и на 32-битной архитектуре, см. ошибку #1531
	ВсеТесты.Добавить("ТестДолжен_ПроверитьПодключениеВнешнейКомпонентыZIP");
	ВсеТесты.Добавить("ТестДолжен_ПроверитьПодключениеВнешнейКомпонентыDLL");
	ВсеТесты.Добавить("ТестДолжен_ПроверитьСвойстваВнешнейКомпоненты");
	ВсеТесты.Добавить("ТестДолжен_ПроверитьМетодыВнешнейКомпоненты");
	ВсеТесты.Добавить("ТестДолжен_ПроверитьОбменПараметров");
	ВсеТесты.Добавить("ТестДолжен_ПроверитьОбменДатойVTYPE_TM");
	ВсеТесты.Добавить("ТестДолжен_ВыдержатьСборкуМусораПриКолбэкеОшибки");
	ВсеТесты.Добавить("ТестДолжен_ОтклонитьПрямойАлиас");
	ВсеТесты.Добавить("ТестДолжен_ОтклонитьНесуществующийКласс");
	ВсеТесты.Добавить("ТестДолжен_СоздатьКомпонентуНезависимоОтРегистра");
	ВсеТесты.Добавить("ТестДолжен_ОтклонитьНеподключённуюМетку");
	ВсеТесты.Добавить("ТестДолжен_СоздатьКомпонентуПоRegisterExtensionAs");
	ВсеТесты.Добавить("ТестДолжен_ИспользоватьКэшRegisterExtensionAs");
	ВсеТесты.Добавить("ТестДолжен_СоздатьSecondAddInНезависимоОтРегистра");
	ВсеТесты.Добавить("ТестДолжен_ОтклонитьКлючФабрикиGetClassNames");
	ВсеТесты.Добавить("ТестДолжен_БалансироватьСчётчикиЖизненногоЦикла");

	#Если Windows Тогда
		ЭтоWindows = Истина;
	#ИначеЕсли Linux Тогда
		ЭтоWindows = Ложь;
	#Иначе
		Возврат Новый Массив; // под макос не тестируем
	#КонецЕсли

	Возврат ВсеТесты;
	
КонецФункции

Процедура ПроверитьСуществованиеПрокси()
	
	Каталог = КаталогПрограммы();

	СистемнаяИнформация = Новый СистемнаяИнформация();
	Если СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Windows_x86 Тогда
		ПутьБиблиотеки = ОбъединитьПути(Каталог, "ScriptEngine.NativeApi32.dll");
	ИначеЕсли СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Windows_x86_64 Тогда
		ПутьБиблиотеки = ОбъединитьПути(Каталог, "ScriptEngine.NativeApi64.dll");
	ИначеЕсли СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Linux_x86 Тогда
		ПутьБиблиотеки = ОбъединитьПути(Каталог, "ScriptEngine.NativeApi32.so");
	ИначеЕсли СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Linux_x86_64 Тогда
		ПутьБиблиотеки = ОбъединитьПути(Каталог, "ScriptEngine.NativeApi64.so");
	Иначе
		ПутьБиблиотеки = "";
	КонецЕсли;

	Сборка = Новый Файл(ПутьБиблиотеки);

	Если Не Сборка.Существует() Тогда
		ВызватьИсключение СтрШаблон("Не собрана прокси-библиотека для NativeApi: %1", ПутьБиблиотеки);
	КонецЕсли;

КонецПроцедуры

Функция ПодключитьКомпонентуDLL()
	
	Если DLLПодключенаУспешно <> Неопределено Тогда
		Возврат DLLПодключенаУспешно;
	КонецЕсли;

	СистемнаяИнформация = Новый СистемнаяИнформация();

	КаталогСборок = ОбъединитьПути(ТекущийСценарий().Каталог, "native-api");
	
	Если СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Windows_x86 Тогда
		ПутьБиблиотеки = ОбъединитьПути(КаталогСборок, "bin", "AddInNativeWin32.dll");
	ИначеЕсли СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Windows_x86_64 Тогда
		ПутьБиблиотеки = ОбъединитьПути(КаталогСборок, "bin64", "AddInNativeWin64.dll");
	ИначеЕсли СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Linux_x86 Тогда
		ПутьБиблиотеки = ОбъединитьПути(КаталогСборок, "build32", "AddInNativeLin32.so");
	ИначеЕсли СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Linux_x86_64 Тогда
		ПутьБиблиотеки = ОбъединитьПути(КаталогСборок, "build64", "AddInNativeLin64.so");		
	Иначе
		ВызватьИсключение "Неподдерживаемый тип платформы: " + СистемнаяИнформация.ТипПлатформы;
	КонецЕсли;
	
	Идентификатор = "AddinNativeDLL";

	ФайлКомпоненты = Новый Файл(ПутьБиблиотеки);
	юТест.ПроверитьИстину(ФайлКомпоненты.Существует(),
		 "Файл компоненты '" + ФайлКомпоненты.ПолноеИмя + "' должен существовать");

	DLLПодключенаУспешно = ПодключитьВнешнююКомпоненту(ФайлКомпоненты.ПолноеИмя, Идентификатор, ТипВнешнейКомпоненты.Native);
	Возврат DLLПодключенаУспешно;

КонецФункции

Процедура ТестДолжен_ПроверитьПодключениеВнешнейКомпонентыZIP() Экспорт

	ИмяФайлаПакета = юТест.ИмяВременногоФайла();
	ЗаписьZIP = Новый ЗаписьZipФайла(ИмяФайлаПакета); 

	МасивФайлов = Новый Массив;
	
	Если ЭтоWindows Тогда
		Каталог = ТекущийСценарий().Каталог + "\native-api\";
		МасивФайлов.Добавить("bin\AddInNativeWin32.dll");
		МасивФайлов.Добавить("bin64\AddInNativeWin64.dll");
	Иначе
		Каталог = ТекущийСценарий().Каталог + "/native-api/";
		МасивФайлов.Добавить("build32/AddInNativeLin32.so");
		МасивФайлов.Добавить("build64/AddInNativeLin64.so");
	КонецЕсли;

	ЗаписьZIP.Добавить(Каталог + "MANIFEST.XML", РежимСохраненияПутейZIP.НеСохранятьПути);
	
	Для каждого ИмяФайла из МасивФайлов Цикл
		ПутьФайла = Каталог + ИмяФайла;
		Файл = Новый Файл(ПутьФайла);
		Если Файл.Существует() Тогда
			ЗаписьZIP.Добавить(ПутьФайла, РежимСохраненияПутейZIP.НеСохранятьПути);
		КонецЕсли;
	КонецЦикла;

	ЗаписьZIP.Записать();

	Идентификатор = "AddinNativeZip";
	Успешно = ПодключитьВнешнююКомпоненту(ИмяФайлаПакета, Идентификатор, ТипВнешнейКомпоненты.Native);
	юТест.ПроверитьРавенство(Успешно, Истина);

	ИмяВнешнейКомпоненты = "AddIn." + Идентификатор + ".CAddInNative";
	ВнешняяКомпонента = Новый(ИмяВнешнейКомпоненты);

	юТест.ПроверитьРавенство(Строка(ТипЗнч(ВнешняяКомпонента)), Строка(Тип(ИмяВнешнейКомпоненты)));

КонецПроцедуры

Процедура ТестДолжен_ПроверитьПодключениеВнешнейКомпонентыDLL() Экспорт

	Идентификатор = "AddinNativeDLL";
	
	КомпонентаПодключена = ПодключитьКомпонентуDLL();
	юТест.ПроверитьИстину(КомпонентаПодключена, "Компонента должна подключиться");

	ИмяВнешнейКомпоненты = "AddIn." + Идентификатор + ".CAddInNative";
	ВнешняяКомпонента = Новый(ИмяВнешнейКомпоненты);

	ВнешняяКомпонента.Включить();
	юТест.ПроверитьРавенство(ВнешняяКомпонента.Включен, Истина);

	ВнешняяКомпонента.Выключить();
	юТест.ПроверитьРавенство(ВнешняяКомпонента.Включен, Ложь);

КонецПроцедуры

Процедура ТестДолжен_ПроверитьСвойстваВнешнейКомпоненты() Экспорт

	Идентификатор = "AddinNativeDLL";
	КомпонентаПодключена = ПодключитьКомпонентуDLL();
	юТест.ПроверитьИстину(КомпонентаПодключена, "Компонента должна подключиться");

	ИмяВнешнейКомпоненты = "AddIn." + Идентификатор + ".CAddInNative";
	ВнешняяКомпонента = Новый(ИмяВнешнейКомпоненты);

	ВнешняяКомпонента.Включен = Истина;
	юТест.ПроверитьРавенство(ВнешняяКомпонента.Включен, Истина);
	юТест.ПроверитьРавенство(ВнешняяКомпонента.IsEnabled, Истина);

	ВнешняяКомпонента.Включен = Ложь;
	юТест.ПроверитьРавенство(ВнешняяКомпонента.Включен, Ложь);
	юТест.ПроверитьРавенство(ВнешняяКомпонента.IsEnabled, Ложь);

	ВнешняяКомпонента["Включен"] = Истина;
	юТест.ПроверитьРавенство(ВнешняяКомпонента["Включен"], Истина);
	юТест.ПроверитьРавенство(ВнешняяКомпонента["IsEnabled"], Истина);

	СодержимоеСтроки = "Тест строки только на запись";
	ВнешняяКомпонента.СтрокаТолькоЗапись = СодержимоеСтроки;
	юТест.ПроверитьРавенство(ВнешняяКомпонента.СтрокаЧтениеЗапись, СодержимоеСтроки);
	юТест.ПроверитьРавенство(ВнешняяКомпонента.СтрокаТолькоЧтение, СодержимоеСтроки);

	СодержимоеСтроки = "Тест строки на чтение и запись";
	ВнешняяКомпонента.СтрокаЧтениеЗапись = СодержимоеСтроки;
	юТест.ПроверитьРавенство(ВнешняяКомпонента.СтрокаЧтениеЗапись, СодержимоеСтроки);
	юТест.ПроверитьРавенство(ВнешняяКомпонента.СтрокаТолькоЧтение, СодержимоеСтроки);

	Попытка
		ВнешняяКомпонента.СтрокаТолькоЧтение = СодержимоеСтроки;
		юТест.ТестПровален("Удалось изменить недоступное для записи свойство");
	Исключение
		юТест.ТестПройден();
	КонецПопытки;

	Попытка
		СодержимоеСтроки = ВнешняяКомпонента.СтрокаТолькоЗапись;
		юТест.ТестПровален("Удалось прочитать недоступное для чтения свойство");
	Исключение
		юТест.ТестПройден();
	КонецПопытки;

	Попытка
		ВнешняяКомпонента.СвойствоОтсутствует = СодержимоеСтроки;
		юТест.ТестПровален("Удалось обратиться к отсутствующему свойству");
	Исключение
		юТест.ТестПройден();
	КонецПопытки;

КонецПроцедуры	

Процедура ТестДолжен_ПроверитьМетодыВнешнейКомпоненты() Экспорт

	Идентификатор = "AddinNativeDLL";
	КомпонентаПодключена = ПодключитьКомпонентуDLL();
	юТест.ПроверитьИстину(КомпонентаПодключена, "Компонента должна подключиться");

	ИмяВнешнейКомпоненты = "AddIn." + Идентификатор + ".CAddInNative";
	ВнешняяКомпонента = Новый(ИмяВнешнейКомпоненты);

	ВнешняяКомпонента.Включить();
	юТест.ПроверитьРавенство(ВнешняяКомпонента.Включен, Истина);

	ВнешняяКомпонента.Выключить();
	юТест.ПроверитьРавенство(ВнешняяКомпонента.Включен, Ложь);

	Попытка
		ВнешняяКомпонента.Выключить(Истина);
		юТест.ТестПровален("Удалось передать параметр в метод без параметров");
	Исключение
		юТест.ТестПройден();
	КонецПопытки;

	юТест.ПроверитьРавенство(ВнешняяКомпонента.ПараметрПоУмолчанию(), Истина);
	юТест.ПроверитьРавенство(ВнешняяКомпонента.ПараметрПоУмолчанию(Ложь), Ложь);

	Попытка
		Значение = ВнешняяКомпонента.ПараметрПоУмолчанию(Истина, Ложь);
		юТест.ТестПровален("Удалось передать лишний параметр в метод с одним параметром");
	Исключение
		юТест.ТестПройден();
	КонецПопытки;


	ПерваяСтрока = "Первая строка";
	ВтораяСтрока = "Вторая тестовая строка";
	КонкатенацияСтрок = ВнешняяКомпонента.КонкатенацияСтрок(ПерваяСтрока, ВтораяСтрока);
	юТест.ПроверитьРавенство(КонкатенацияСтрок, ПерваяСтрока + ВтораяСтрока);

	СодержимоеФайла = "Тест двоичных данных";
	ВременныйФайл = юТест.ИмяВременногоФайла();
	ЗаписьТекста = Новый ЗаписьТекста(ВременныйФайл, КодировкаТекста.UTF8);
	ЗаписьТекста.Записать(СодержимоеФайла);
	ЗаписьТекста.Закрыть();

	ДвоичныеДанные = Новый ДвоичныеДанные(ВременныйФайл);
	ДвоичныеДанные = ВнешняяКомпонента.Петля(ДвоичныеДанные);
	Поток = ДвоичныеДанные.ОткрытьПотокДляЧтения();

	ЧтениеТекста = Новый ЧтениеТекста(Поток, КодировкаТекста.UTF8);
	юТест.ПроверитьРавенство(ЧтениеТекста.Прочитать(), СодержимоеФайла);

КонецПроцедуры

Процедура ТестДолжен_ПроверитьОбменПараметров() Экспорт

	Идентификатор = "AddinNativeDLL";
	КомпонентаПодключена = ПодключитьКомпонентуDLL();
	юТест.ПроверитьИстину(КомпонентаПодключена, "Компонента должна подключиться");

	ИмяВнешнейКомпоненты = "AddIn." + Идентификатор + ".CAddInNative";
	ВнешняяКомпонента = Новый(ИмяВнешнейКомпоненты);

	// 1. Обмен строковых out-параметров
	А = "Первый";
	Б = "Второй";
	ВнешняяКомпонента.ОбменПараметров(А, Б);
	юТест.ПроверитьРавенство(А, "Второй");
	юТест.ПроверитьРавенство(Б, "Первый");

	// 2. Обмен числовых out-параметров
	Число1 = 1;
	Число2 = 2;
	ВнешняяКомпонента.ОбменПараметров(Число1, Число2);
	юТест.ПроверитьРавенство(Число1, 2);
	юТест.ПроверитьРавенство(Число2, 1);

	// 3. Компонента не меняет параметр — переменная сохраняется
	Значение = "без изменений";
	ВнешняяКомпонента.ПропуститьПараметры(Значение);
	юТест.ПроверитьРавенство(Значение, "без изменений");

	// Подготовка read-only свойства компоненты
	ВнешняяКомпонента.СтрокаТолькоЗапись = "исходное значение RO";

	// 4. Read-only свойство без изменения параметра — без исключения
	ВнешняяКомпонента.ПропуститьПараметры(ВнешняяКомпонента.СтрокаТолькоЧтение);
	юТест.ПроверитьРавенство(ВнешняяКомпонента.СтрокаТолькоЧтение, "исходное значение RO");

	// 5. Компонента меняет read-only свойство — штатное исключение о записи
	Запись = "запись";
	Попытка
		ВнешняяКомпонента.ОбменПараметров(ВнешняяКомпонента.СтрокаТолькоЧтение, Запись);
		юТест.ТестПровален("Ожидалось исключение при записи в read-only свойство");
	Исключение
		юТест.ПроверитьИстину(
			СтрНайти(ОписаниеОшибки(), "недоступно для записи") > 0,
			"Ожидалось исключение о недоступности свойства для записи");
	КонецПопытки;

	// 6. Литерал, константа и результат выражения — без исключения
	ВнешняяКомпонента.ПропуститьПараметры("литерал");
	ВнешняяКомпонента.ПропуститьПараметры(Истина);
	ВнешняяКомпонента.ПропуститьПараметры("часть" + "выражения");

	// 7. Пропущенный параметр по умолчанию — обратная запись не выполняется
	Параметр = Ложь;
	Результат = ВнешняяКомпонента.ПараметрПоУмолчанию(Параметр);
	юТест.ПроверитьРавенство(Результат, Ложь);
	юТест.ПроверитьРавенство(Параметр, Ложь);
	юТест.ПроверитьРавенство(ВнешняяКомпонента.ПараметрПоУмолчанию(), Истина);

	// 8. Обмен параметров разных типов
	Булево1 = Истина;
	Булево2 = Ложь;
	ВнешняяКомпонента.ОбменПараметров(Булево1, Булево2);
	юТест.ПроверитьРавенство(Булево1, Ложь);
	юТест.ПроверитьРавенство(Булево2, Истина);

	Дата1 = Дата(2024, 1, 15, 10, 20, 30);
	Дата2 = Дата(2024, 6, 1, 0, 0, 0);
	ВнешняяКомпонента.ОбменПараметров(Дата1, Дата2);
	юТест.ПроверитьРавенство(Дата1, Дата(2024, 6, 1, 0, 0, 0));
	юТест.ПроверитьРавенство(Дата2, Дата(2024, 1, 15, 10, 20, 30));

	Содержимое1 = "данные А";
	Содержимое2 = "данные Б";
	Файл1 = юТест.ИмяВременногоФайла();
	Файл2 = юТест.ИмяВременногоФайла();
	ЗаписьТекста = Новый ЗаписьТекста(Файл1, КодировкаТекста.UTF8);
	ЗаписьТекста.Записать(Содержимое1);
	ЗаписьТекста.Закрыть();
	ЗаписьТекста = Новый ЗаписьТекста(Файл2, КодировкаТекста.UTF8);
	ЗаписьТекста.Записать(Содержимое2);
	ЗаписьТекста.Закрыть();
	Двоичные1 = Новый ДвоичныеДанные(Файл1);
	Двоичные2 = Новый ДвоичныеДанные(Файл2);
	ВнешняяКомпонента.ОбменПараметров(Двоичные1, Двоичные2);
	Поток1 = Двоичные1.ОткрытьПотокДляЧтения();
	Чтение1 = Новый ЧтениеТекста(Поток1, КодировкаТекста.UTF8);
	юТест.ПроверитьРавенство(Чтение1.Прочитать(), Содержимое2);
	Поток2 = Двоичные2.ОткрытьПотокДляЧтения();
	Чтение2 = Новый ЧтениеТекста(Поток2, КодировкаТекста.UTF8);
	юТест.ПроверитьРавенство(Чтение2.Прочитать(), Содержимое1);

	// 9. Неуспешный вызов (CallAsProc = false) не переносит out-параметры в скрипт.
	// Метод ОшибкаПослеИзменения внутри компоненты меняет числовой параметр (10 -> 11)
	// в массиве tVariant, но возвращает false — вызов считается неуспешным.
	// Обёртка OneScript не должна вызывать RemapOutputParameters и оставлять
	// исходное значение переменной без изменений.
	Число = 10;
	ВнешняяКомпонента.ОшибкаПослеИзменения(Число);
	юТест.ПроверитьРавенство(Число, 10);

КонецПроцедуры

Процедура ТестДолжен_ПроверитьОбменДатойVTYPE_TM() Экспорт

	Идентификатор = "AddinNativeDLL";
	КомпонентаПодключена = ПодключитьКомпонентуDLL();
	юТест.ПроверитьИстину(КомпонентаПодключена, "Компонента должна подключиться");

	ИмяВнешнейКомпоненты = "AddIn." + Идентификатор + ".CAddInNative";
	ВнешняяКомпонента = Новый(ИмяВнешнейКомпоненты);

	ИсходнаяДата = Дата(2024, 2, 29, 23, 59, 58);

	ВнешняяКомпонента.ФиксированнаяДата = ИсходнаяДата;
	ДатаИзСвойства = ВнешняяКомпонента.FixedDate;

	юТест.ПроверитьРавенство(
		ТипЗнч(ДатаИзСвойства), Тип("Дата"),
		"Свойство FixedDate должно иметь тип Дата");
	юТест.ПроверитьРавенство(ДатаИзСвойства, ИсходнаяДата);

	РезультатЭхо = ВнешняяКомпонента.ЭхоДатаTM(ДатаИзСвойства);
	юТест.ПроверитьРавенство(
		ТипЗнч(РезультатЭхо), Тип("Дата"),
		"Результат EchoDateTm должен иметь тип Дата");
	юТест.ПроверитьРавенство(РезультатЭхо, ДатаИзСвойства);

	РезультатDATE = ВнешняяКомпонента.ПолучитьДатуКакVTYPE_DATE();
	юТест.ПроверитьРавенство(РезультатDATE, ИсходнаяДата);
	юТест.ПроверитьРавенство(ДатаИзСвойства, РезультатDATE);

	// Минимальная дата языка
	МинимальнаяДата = Дата(1, 1, 1);
	ВнешняяКомпонента.ФиксированнаяДата = МинимальнаяДата;
	юТест.ПроверитьРавенство(ВнешняяКомпонента.FixedDate, МинимальнаяДата);

	// Секунды около перехода через полночь
	ДатаПередПолуночью = Дата(2024, 3, 1, 0, 0, 1);
	ВнешняяКомпонента.ФиксированнаяДата = ДатаПередПолуночью;
	юТест.ПроверитьРавенство(ВнешняяКомпонента.FixedDate, ДатаПередПолуночью);

	ДатаПослеПолуночи = Дата(2024, 2, 29, 23, 59, 59);
	ВнешняяКомпонента.ФиксированнаяДата = ДатаПослеПолуночи;
	юТест.ПроверитьРавенство(ВнешняяКомпонента.FixedDate, ДатаПослеПолуночи);

	// Дополнительная дата из характеристического набора
	ДополнительнаяДата = Дата(2024, 6, 15, 12, 30, 45);
	ВнешняяКомпонента.ФиксированнаяДата = ДополнительнаяДата;
	юТест.ПроверитьРавенство(ВнешняяКомпонента.FixedDate, ДополнительнаяДата);

	// Некорректные значения от компоненты
	Попытка
		ВнешняяКомпонента.ПолучитьНекорректнуюДатуКакVTYPE_DATE();
		юТест.ТестПровален("Ожидалось исключение для некорректного VTYPE_DATE");
	Исключение
		юТест.ПроверитьИстину(
			СтрНайти(ОписаниеОшибки(), "VTYPE_DATE") > 0,
			"Сообщение об ошибке должно указывать VTYPE_DATE");
	КонецПопытки;

	Попытка
		ВнешняяКомпонента.ПолучитьНекорректнуюДатуКакVTYPE_TM();
		юТест.ТестПровален("Ожидалось исключение для некорректного VTYPE_TM");
	Исключение
		юТест.ПроверитьИстину(
			СтрНайти(ОписаниеОшибки(), "VTYPE_TM") > 0,
			"Сообщение об ошибке должно указывать VTYPE_TM");
	КонецПопытки;

КонецПроцедуры

Процедура ТестДолжен_ВыдержатьСборкуМусораПриКолбэкеОшибки() Экспорт

	// Регрессия issue #1359: нативный код хранит указатели на managed-делегаты колбэков.
	// После GC без закрепления делегатов следующий AddError из компоненты роняет процесс.
	Идентификатор = "AddinNativeDLL";
	КомпонентаПодключена = ПодключитьКомпонентуDLL();
	юТест.ПроверитьИстину(КомпонентаПодключена, "Компонента должна подключиться");

	ИмяВнешнейКомпоненты = "AddIn." + Идентификатор + ".CAddInNative";
	ВнешняяКомпонента = Новый(ИмяВнешнейКомпоненты);

	КоличествоИтераций = 100;
	Счетчик = 0;
	Для Номер = 1 По КоличествоИтераций Цикл
		ВыполнитьСборкуМусора();
		Попытка
			// Неверный тип параметра → addError → колбэк OnError из нативного кода
			ВнешняяКомпонента.Петля("строка вместо двоичных данных");
		Исключение
		КонецПопытки;
		Счетчик = Счетчик + 1;
	КонецЦикла;

	юТест.ПроверитьРавенство(Счетчик, КоличествоИтераций);

КонецПроцедуры

Процедура ТестДолжен_ОтклонитьПрямойАлиас() Экспорт

	Идентификатор = "AddinNativeDLL";
	КомпонентаПодключена = ПодключитьКомпонентуDLL();
	юТест.ПроверитьИстину(КомпонентаПодключена, "Компонента должна подключиться");

	ИмяВнешнейКомпоненты = "AddIn." + Идентификатор + ".DirectAlias";
	Попытка
		ВнешняяКомпонента = Новый(ИмяВнешнейКомпоненты);
		юТест.ТестПровален("Ожидалось исключение при создании по прямому алиасу GetClassObject");
	Исключение
		юТест.ПроверитьИстину(
			СтрНайти(ОписаниеОшибки(), "DirectAlias") > 0,
			"Сообщение об ошибке должно содержать имя класса");
	КонецПопытки;

КонецПроцедуры

Процедура ТестДолжен_ОтклонитьНесуществующийКласс() Экспорт

	КомпонентаПодключена = ПодключитьКомпонентуDLL();
	юТест.ПроверитьИстину(КомпонентаПодключена, "Компонента должна подключиться");

	ИмяКласса = "ЗаведомоНетТакого";
	ИмяТипа = "AddIn.AddinNativeDLL." + ИмяКласса;
	Попытка
		Компонента = Новый(ИмяТипа);
		юТест.ТестПровален("Ожидалось исключение при создании несуществующего класса");
	Исключение
		ТекстОшибки = ОписаниеОшибки();
		юТест.ПроверитьИстину(
			СтрНайти(ТекстОшибки, ИмяКласса) > 0,
			"Сообщение об ошибке должно содержать имя класса");
		юТест.ПроверитьИстину(
			СтрНайти(ТекстОшибки, "CAddInNative") > 0,
			"Сообщение об ошибке должно перечислять доступные имена расширений");
		юТест.ПроверитьИстину(
			СтрНайти(ТекстОшибки, "SecondAddIn") > 0,
			"Сообщение об ошибке должно перечислять доступные имена расширений");
	КонецПопытки;

КонецПроцедуры

Процедура ТестДолжен_СоздатьКомпонентуНезависимоОтРегистра() Экспорт

	КомпонентаПодключена = ПодключитьКомпонентуDLL();
	юТест.ПроверитьИстину(КомпонентаПодключена, "Компонента должна подключиться");

	ВнешняяКомпонента = Новый("addin.addinnativedll.caddinnative");

	ВнешняяКомпонента.Включить();
	юТест.ПроверитьРавенство(ВнешняяКомпонента.Включен, Истина);

КонецПроцедуры

Процедура ТестДолжен_СоздатьКомпонентуПоRegisterExtensionAs() Экспорт

	Идентификатор = "AddinNativeDLL";
	КомпонентаПодключена = ПодключитьКомпонентуDLL();
	юТест.ПроверитьИстину(КомпонентаПодключена, "Компонента должна подключиться");

	ИмяВнешнейКомпоненты = "AddIn." + Идентификатор + ".SecondAddIn";
	ВнешняяКомпонента = Новый(ИмяВнешнейКомпоненты);

	ВнешняяКомпонента.Включить();
	юТест.ПроверитьРавенство(ВнешняяКомпонента.Включен, Истина);

КонецПроцедуры

Процедура ТестДолжен_ИспользоватьКэшRegisterExtensionAs() Экспорт

	Идентификатор = "AddinNativeDLL";
	КомпонентаПодключена = ПодключитьКомпонентуDLL();
	юТест.ПроверитьИстину(КомпонентаПодключена, "Компонента должна подключиться");

	ИмяВнешнейКомпоненты = "AddIn." + Идентификатор + ".SecondAddIn";
	ПерваяКомпонента = Новый(ИмяВнешнейКомпоненты);
	ВтораяКомпонента = Новый(ИмяВнешнейКомпоненты);

	ВтораяКомпонента.Включить();
	юТест.ПроверитьРавенство(ВтораяКомпонента.Включен, Истина);
	юТест.ПроверитьРавенство(ТипЗнч(ПерваяКомпонента), Тип(ИмяВнешнейКомпоненты));

КонецПроцедуры

Процедура ТестДолжен_СоздатьSecondAddInНезависимоОтРегистра() Экспорт

	КомпонентаПодключена = ПодключитьКомпонентуDLL();
	юТест.ПроверитьИстину(КомпонентаПодключена, "Компонента должна подключиться");

	ВнешняяКомпонента = Новый("addin.addinnativedll.secondaddin");

	ВнешняяКомпонента.Включить();
	юТест.ПроверитьРавенство(ВнешняяКомпонента.Включен, Истина);

КонецПроцедуры

Процедура ТестДолжен_ОтклонитьКлючФабрикиGetClassNames() Экспорт

	КомпонентаПодключена = ПодключитьКомпонентуDLL();
	юТест.ПроверитьИстину(КомпонентаПодключена, "Компонента должна подключиться");

	ИмяТипа = "AddIn.AddinNativeDLL.2";
	Попытка
		Компонента = Новый(ИмяТипа);
		юТест.ТестПровален("Ожидалось исключение при создании по ключу фабрики GetClassNames");
	Исключение
		юТест.ПроверитьИстину(
			СтрНайти(ОписаниеОшибки(), "2") > 0,
			"Сообщение об ошибке должно содержать имя класса");
	КонецПопытки;

КонецПроцедуры

Процедура ТестДолжен_БалансироватьСчётчикиЖизненногоЦикла() Экспорт

	КомпонентаПодключена = ПодключитьКомпонентуDLL();
	юТест.ПроверитьИстину(КомпонентаПодключена, "Компонента должна подключиться");

	ИмяВнешнейКомпоненты = "AddIn.AddinNativeDLL.CAddInNative";
	Зонд = Новый(ИмяВнешнейКомпоненты);

	КонструкторовДо = Зонд.ПолучитьСчётчикКонструкторов();
	ДеструкторовДо = Зонд.ПолучитьСчётчикДеструкторов();

	КоличествоОбъектов = 20;
	Для Номер = 1 По КоличествоОбъектов Цикл
		Объект = Новый(ИмяВнешнейКомпоненты);
		Объект = Неопределено;
		ВыполнитьСборкуМусора();
	КонецЦикла;

	КонструкторовПосле = Зонд.ПолучитьСчётчикКонструкторов();
	ДеструкторовПосле = Зонд.ПолучитьСчётчикДеструкторов();

	юТест.ПроверитьРавенство(
		КонструкторовПосле - КонструкторовДо,
		КоличествоОбъектов,
		"Каждый созданный объект должен увеличивать счётчик конструкторов");
	юТест.ПроверитьРавенство(
		ДеструкторовПосле,
		ДеструкторовДо,
		"Сборка мусора не должна вызывать деструкторы компоненты");

КонецПроцедуры

Процедура ТестДолжен_ОтклонитьНеподключённуюМетку() Экспорт

	ИмяТипа = "AddIn.НетТакойМетки.Класс";
	Попытка
		Компонента = Новый(ИмяТипа);
		юТест.ТестПровален("Ожидалось исключение при создании по неподключённой метке");
	Исключение
		юТест.ПроверитьИстину(
			СтрНайти(ОписаниеОшибки(), "Тип не определен") > 0,
			"Ожидалось исключение «Тип не определен»");
	КонецПопытки;

КонецПроцедуры