к PR EvilBeaver#1584: сортировка строк разных алфавитов

Author: Mr-Rm

src/OneScript.Core/Values/BslStringValue.cs

@@ -53,7 +53,7 @@ public override int CompareTo(BslValue other)
                 return 0;
 
             if (other is BslStringValue s)
-                return String.Compare(_value, s._value, StringComparison.CurrentCulture);
+                return String.Compare(_value, s._value, StringComparison.InvariantCulture);
 
             return base.CompareTo(other);
         }

tests/valuetable.os

@@ -47,6 +47,7 @@
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьСортировку_Булевых");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьСортировку_Дат");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьСортировку_Строк");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьСортировку_СтрокРазныхАлфавитов");
 
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьСортировкуНеупорядочиваемыхТипов");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьСортировкуРазныхТипов");
@@ -932,3 +933,21 @@
 
 КонецПроцедуры
 
+Процедура ТестДолжен_ПроверитьСортировку_СтрокРазныхАлфавитов() Экспорт
+	ТЗ = Новый ТаблицаЗначений();
+	ТЗ.Колонки.Добавить("Тест");
+
+	ТЗ.Добавить().Тест = "Е"; // cyrillic
+	ТЗ.Добавить().Тест = "E"; // latin
+	ТЗ.Добавить().Тест = "Ε"; // greek
+	ТЗ.Добавить().Тест = "∃"; // math
+	ТЗ.Добавить().Тест = "Ｅ"; // full-width
+
+	ТЗ.Сортировать("Тест");
+
+	юТест.ПроверитьРавенство(КодСимвола(ТЗ[0].Тест,1), 8707, "math");
+	юТест.ПроверитьРавенство(КодСимвола(ТЗ[1].Тест,1), 69, "latin");
+	юТест.ПроверитьРавенство(КодСимвола(ТЗ[2].Тест,1), 65317, "full-width");
+	юТест.ПроверитьРавенство(КодСимвола(ТЗ[3].Тест,1), 917, "greek");
+	юТест.ПроверитьРавенство(КодСимвола(ТЗ[4].Тест,1), 1045, "cyrillic");
+КонецПроцедуры