Merge pull request EvilBeaver#1668 from johnnyshut/bugfix/1179

fix: Привести поведение ЧтениеТекста по умолчанию к совместимости с 1С 8.3.11+

Author: EvilBeaver

src/OneScript.StandardLibrary/Text/TextReadImpl.cs

@@ -171,8 +171,7 @@ private void RequireOpen()
         public static TextReadImpl Constructor (IValue input)
         {
             var reader = new TextReadImpl ();
-            reader.AnalyzeDefaultLineFeed = false;
-            reader.Open (input, null, "\n", "\r\n");
+            reader.Open(input);
             return reader;
         }
 
@@ -183,9 +182,7 @@ public static TextReadImpl Constructor (IValue input)
         [ScriptConstructor(Name = "Формирование неинициализированного объекта")]
         public static TextReadImpl Constructor()
         {
-            var reader = new TextReadImpl();
-            reader.AnalyzeDefaultLineFeed = false;
-            return reader;
+            return new TextReadImpl();
         }
 
         /// <summary>

tests/text-read.os

@@ -144,8 +144,10 @@
 
 	// В конструкторе не указываем конвертируемый перевод строк
 	Ч = Новый ЧтениеТекста(ИмяВременногоФайла);
-	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "123123123\r", "\r в конце строки (через конструктор без параметров по-умолчанию)");
-	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "45/645/645/6\r", "\r в конце строки (через конструктор без параметров по-умолчанию)");
+	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "123123123", "Нет \r в конце строки (через конструктор без параметров по-умолчанию)");
+	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "", "Пустая строка вместо \r (через конструктор без параметров по-умолчанию)");
+	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "45/645/645/6", "Нет \r в конце строки (через конструктор без параметров по-умолчанию)");
+	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "", "Пустая строка вместо \r (через конструктор без параметров по-умолчанию)");
 	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "789789789");
 
 	Ч.Закрыть();
@@ -163,17 +165,21 @@
 	// Используем конструктор по-умолчанию и открытие без указания конвертируемого перевода строк
 	Ч = Новый ЧтениеТекста;
 	Ч.Открыть(ИмяВременногоФайла);
-	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "123123123\r", "\r в конце строки (через открытие без параметров по-умолчанию)");
-	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "45/645/645/6\r", "\r в конце строки (через открытие без параметров по-умолчанию)");
+	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "123123123", "Нет \r в конце строки (через открытие без параметров по-умолчанию)");
+	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "", "Пустая строка вместо \r (через открытие без параметров по-умолчанию)");
+	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "45/645/645/6", "Нет \r в конце строки (через открытие без параметров по-умолчанию)");
+	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "", "Пустая строка вместо \r (через открытие без параметров по-умолчанию)");
 	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "789789789");
 
 	Ч.Закрыть();
 
 	// Используем конструктор по-умолчанию и открытие с указанием конвертируемого перевода строк "по-умолчанию"
 	Ч = Новый ЧтениеТекста;
 	Ч.Открыть(ИмяВременногоФайла,,,);
-	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "123123123\r", "\r в конце строки (через открытие с параметрами по-умолчанию)");
-	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "45/645/645/6\r", "\r в конце строки (через открытие с параметрами по-умолчанию)");
+	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "123123123", "Нет \r в конце строки (через открытие с параметрами по-умолчанию)");
+	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "", "Пустая строка вместо \r (через открытие с параметрами по-умолчанию)");
+	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "45/645/645/6", "Нет \r в конце строки (через открытие с параметрами по-умолчанию)");
+	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "", "Пустая строка вместо \r (через открытие с параметрами по-умолчанию)");
 	юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "789789789");
 
 	Ч.Закрыть();

tests/text-write.os

@@ -274,7 +274,7 @@
 	Текст.Открыть(ПутьФайла,"UTF-8");
 	Стр = Текст.Прочитать();
 
-	юТест.ПроверитьРавенство(6, КоличествоСтрок);
+	юТест.ПроверитьРавенство(10, КоличествоСтрок);
 	юТест.ПроверитьРавенство(125, СтрДлина(Стр));
 
 КонецПроцедуры