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

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

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

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

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