tests/encodings.os - develop - smwwiki/OneScript_fork

tests/encodings.os
53 строки2 KB
EvilBeaver
Убрал из тестов упоминания NETFRAMEWORK
22 авг 2021, 15:05
22 авг 2021, 15:05a4b7c50
Перем юТест;

Функция ПолучитьСписокТестов(ЮнитТестирование) Экспорт
	
	юТест = ЮнитТестирование;
	
	Си = Новый СистемнаяИнформация;
	
	ВсеТесты = Новый Массив;
	
	ВсеТесты.Добавить("ТестДолженПроверитьЧтоФайлБезБОМСчитываетсяКакUTF");
	
	Возврат ВсеТесты;
	
КонецФункции

Процедура ПослеЗапускаТеста() Экспорт
	юТест.УдалитьВременныеФайлы();
КонецПроцедуры

Функция ЗаписатьФайлБезБОМ(Кодировка)
	Файл = юТест.ИмяВременногоФайла();
	
	Запись = Новый ЗаписьТекста(Файл, Кодировка);
	Запись.Записать("Привет");
	Запись.Закрыть();
	
	Возврат Файл;
КонецФункции

Процедура ТестДолженПроверитьЧтоФайлБезБОМСчитываетсяКакANSI() Экспорт
	
	Файл = ЗаписатьФайлБезБОМ(КодировкаТекста.ANSI);
	
	Чтение = Новый ЧтениеТекста(Файл);
	Текст = Чтение.Прочитать();
	Чтение.Закрыть();
	
	юТест.ПроверитьРавенство("Привет", Текст);
	
КонецПроцедуры

Процедура ТестДолженПроверитьЧтоФайлБезБОМСчитываетсяКакUTF() Экспорт

	Файл = ЗаписатьФайлБезБОМ(КодировкаТекста.UTF8NoBOM);
	
	Чтение = Новый ЧтениеТекста(Файл);
	Текст = Чтение.Прочитать();
	Чтение.Закрыть();
	
	юТест.ПроверитьРавенство("Привет", Текст);

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