сортировка значений типа Тип +поправки в тестах

Author: Mr-Rm

src/ScriptEngine/Machine/GenericIValueComparer.cs

@@ -21,7 +21,9 @@ public class GenericIValueComparer : IEqualityComparer<IValue>, IComparer<IValue
 
         static private readonly List<TypeDescriptor>orderedTypes = new List<TypeDescriptor>
                 { BasicTypes.Undefined, BasicTypes.Null, BasicTypes.Boolean,
-                BasicTypes.Number, BasicTypes.String, BasicTypes.Date, BasicTypes.Type };
+                BasicTypes.Number, BasicTypes.String, BasicTypes.Date, BasicTypes.Type };
+
+        private const int INDEX_OF_TYPE = 6;
 
         public GenericIValueComparer()
         {
@@ -73,9 +75,12 @@ private int CompareByTypes(IValue x, IValue y)
             var iy = orderedTypes.IndexOf(y.SystemType);
 
             if (ix >= 0)
-                return (iy >= 0) ? ix-iy : -1;
+                if (iy >= 0)
+                    return ix - iy;
+                else
+                    return ix == INDEX_OF_TYPE ? 1 : -1;
             else if (iy >= 0)
-                return 1;
+                return iy == INDEX_OF_TYPE ? -1 : 1;
 
             return _comparer(x,y);
         }

tests/valuetable.os

@@ -877,17 +877,21 @@
 	ТЗ.Добавить().Тест = "Стр2";
 	ТЗ.Добавить().Тест = "СтрЪ";
 	ТЗ.Добавить().Тест = Новый Структура;
+	ТЗ.Добавить().Тест = Новый Массив;
 	ТЗ.Добавить().Тест = null;
 	ТЗ.Добавить().Тест = Тип("Булево");
+	ТЗ.Добавить().Тест = Тип("Массив");
 
 	ТЗ.Сортировать("Тест"); // не должно упасть
 
 	юТест.ПроверитьРавенство(ТЗ[0].Тест, Null);
-	юТест.ПроверитьРавенство(ТЗ[1].Тест, Тип("Булево"));
-	юТест.ПроверитьРавенство(ТЗ[2].Тест, "Стр2");
-	юТест.ПроверитьРавенство(ТЗ[3].Тест, Тип("Строка"));
+	юТест.ПроверитьРавенство(ТЗ[1].Тест, "Стр2");
+	юТест.ПроверитьРавенство(ТЗ[2].Тест, "СтрЪ");
+	юТест.ПроверитьРавенство(ТипЗнч(ТЗ[3].Тест), Тип("Массив"));
 	юТест.ПроверитьРавенство(ТипЗнч(ТЗ[4].Тест), Тип("Структура"));
-	юТест.ПроверитьРавенство(ТЗ[5].Тест, "СтрЪ");
+	юТест.ПроверитьРавенство(ТЗ[5].Тест, Тип("Булево"));
+	юТест.ПроверитьРавенство(ТЗ[6].Тест, Тип("Массив"));
+	юТест.ПроверитьРавенство(ТЗ[7].Тест, Тип("Строка"));
 КонецПроцедуры
 
 Процедура ТестДолжен_ПроверитьСортировкуПоПредставлению() Экспорт
@@ -921,10 +925,10 @@
 	ТЗ.Добавить().Тест = КлассИзСтроки1;
 
 	ТЗ.Сортировать("Тест");
-	юТест.ПроверитьРавенство(Строка(ТЗ[0].Тест), "Представление0");
-	юТест.ПроверитьРавенство(Строка(ТЗ[1].Тест), "Представление1");
-	юТест.ПроверитьРавенство(ТЗ[2].Тест, "Представление2");
-	юТест.ПроверитьРавенство(Строка(ТЗ[3].Тест), "Представление3");
+	юТест.ПроверитьРавенство(ТЗ[0].Тест, "Представление2", "строка");
+	юТест.ПроверитьРавенство(Строка(ТЗ[1].Тест), "Представление0", "сценарий 0");
+	юТест.ПроверитьРавенство(Строка(ТЗ[2].Тест), "Представление1", "сценарий 1");
+	юТест.ПроверитьРавенство(Строка(ТЗ[3].Тест), "Представление3", "сценарий 3");
 
 КонецПроцедуры