Процедура тестЛисты () Экспорт
	Конвертер = СоздатьОбъект ("КонвертерExcel");
	Книга = Конвертер.Создать ();
	Листы = Книга.Листы;
	
	ПроверитьРавенство (ТипЗначенияСтр (Листы), "КоллекцияЛистовКонвертераExcel");
	ПроверитьРавенство (Листы.Количество (), 0);
	
	ВсеВПорядке = 0;
	
	Попытка
		Книга.Листы = Листы;
	Исключение
		ВсеВПорядке = 1;
	КонецПопытки;
	
	Проверить (ВсеВПорядке);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЗаписать () Экспорт
	Конвертер = СоздатьОбъект ("КонвертерExcel");
	Книга = Конвертер.Создать ();
	Листы = Книга.Листы;
	
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 1).Текст = "11";
	Листы.Добавить ("Лист1", Таб);
	
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 1).Текст = "22";
	Листы.Добавить ("Лист2", Таб);
	
	ИмяФайла = КаталогВременныхФайлов () + "Temp.xls";
	Если ФС.СуществуетФайл (ИмяФайла) = 1 Тогда
		ФС.УдалитьФайл (ИмяФайла);
	КонецЕсли;
	
	Книга.Записать (ИмяФайла);
	
	Проверить (ФС.СуществуетФайл (ИмяФайла));
	
	Книга = Конвертер.Открыть (ИмяФайла);
	Листы = Книга.Листы;
	ПроверитьРавенство (Листы.Количество (), 2);
	
	Лист = Листы.Получить (1);
	ПроверитьРавенство (Лист.Имя, "Лист1");
	ПроверитьРавенство (Лист.Тип, 0);
	
	Лист = Листы.Получить (2);
	ПроверитьРавенство (Лист.Имя, "Лист2");
	ПроверитьРавенство (Лист.Тип, 0);
	
	Таб = Книга.ЗагрузитьЛист ("Лист1");
	ПроверитьРавенство (Таб.Область (1, 1).Текст, "11");
	
	Таб = Книга.ЗагрузитьЛист ("Лист2");
	ПроверитьРавенство (Таб.Область (1, 1).Текст, "22");
	
	ФС.УдалитьФайл (ИмяФайла);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПараметры () Экспорт
	Конвертер = СоздатьОбъект ("КонвертерExcel");
	Книга = Конвертер.Создать ();
	Параметры = Книга.Параметры;
	
	ПроверитьРавенство (ТипЗначенияСтр (Параметры), "ПараметрыКнигиExcel");
	
	ВсеВПорядке = 0;
	Попытка
		Книга.Параметры = 0;
	Исключение
		ВсеВПорядке = 1;
	КонецПопытки;
	
	Проверить (ВсеВПорядке);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПараметры_АктивныйЛист () Экспорт
	Конвертер = СоздатьОбъект ("КонвертерExcel");
	Книга = Конвертер.Создать ();
	
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 1).Текст = "1";
	Книга.Листы.Добавить ("Лист1", Таб);
	
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 1).Текст = "2";
	Книга.Листы.Добавить ("Лист2", Таб);
	
	Книга.Параметры.АктивныйЛист = 2;
	
	ИмяФайла = КаталогВременныхФайлов () + "Temp.xls";
	Книга.Записать (ИмяФайла);
	
	Книга = Конвертер.Открыть (ИмяФайла);
	ПроверитьРавенство (Книга.Параметры.АктивныйЛист, 2);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПараметрыКонвертера () Экспорт
	Конвертер = СоздатьОбъект ("КонвертерExcel");
	Книга = Конвертер.Создать ();
	Параметры = Книга.ПараметрыКонвертера;
	ПроверитьРавенство (ТипЗначенияСтр (Параметры), "ПараметрыКонвертераExcel");
	
	ВсеВПорядке = 0;
	Попытка
		Книга.ПараметрыКонвертера = 0;
	Исключение
		ВсеВПорядке = 1;
	КонецПопытки;
	
	Проверить (ВсеВПорядке);
	
	ПроверитьРавенство (Параметры.РаспознаватьЧисловыеЗначения, 0);
	Параметры.РаспознаватьЧисловыеЗначения = 1;
	ПроверитьРавенство (Параметры.РаспознаватьЧисловыеЗначения, 1);
	Параметры.РаспознаватьЧисловыеЗначения = 0;
	ПроверитьРавенство (Параметры.РаспознаватьЧисловыеЗначения, 0);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПараметрыКонвертера_Разделители () Экспорт
	Конвертер = СоздатьОбъект ("КонвертерExcel");
	Книга = Конвертер.Создать ();
	Параметры = Книга.ПараметрыКонвертера;
	
	Параметры.ЧисловыеРазделители = ",./";
	ПроверитьРавенство (Параметры.ЧисловыеРазделители, ",./");
	
	Параметры.РазделителиДробнойЧасти = ",./";
	ПроверитьРавенство (Параметры.РазделителиДробнойЧасти, ",./");
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПараметрыКонвертера_ЧислаВыравненыПоПравомуКраю () Экспорт
	Конвертер = СоздатьОбъект ("КонвертерExcel");
	Книга = Конвертер.Создать ();
	Параметры = Книга.ПараметрыКонвертера;
	
	Параметры.ЧислаВыравненыПоПравомуКраю = 1;
	ПроверитьРавенство (Параметры.ЧислаВыравненыПоПравомуКраю, 1);
	
	Параметры.ЧислаВыравненыПоПравомуКраю = 0;
	ПроверитьРавенство (Параметры.ЧислаВыравненыПоПравомуКраю, 0);
КонецПроцедуры
