Исправлена вставка ключа Null в соответствие fixes EvilBeaver#1647

Author: EvilBeaver

src/ScriptEngine/Machine/GenericIValueComparer.cs

@@ -21,8 +21,8 @@ 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()
@@ -47,6 +47,9 @@ public int GetHashCode(IValue obj)
             if (obj is BslUndefinedValue)
                 return obj.GetHashCode();
 
+            if (obj is BslNullValue)
+                return obj.GetHashCode();
+
             try
             {
                 CLR_obj = ContextValuesMarshaller.ConvertToClrObject(obj);
@@ -56,6 +59,9 @@ public int GetHashCode(IValue obj)
                 CLR_obj = obj;
             }
 
+            if (CLR_obj == null)
+                return 0;
+
             return CLR_obj.GetHashCode();
         }
 
@@ -67,8 +73,8 @@ private int CompareAsStrings(IValue x, IValue y)
         private int CompareByPresentations(IValue x, IValue y)
         {
             return ((BslValue)x).ToString(_process).CompareTo(((BslValue)y).ToString(_process));
-        }
-
+        }
+
         /// <summary>
         /// Сравнение переменных разных типов. Правила сравнения соответствуют 1С v8.3.27:
         /// Переменные типа "Тип" следуют за всеми прочими;
@@ -82,7 +88,7 @@ private int CompareByTypes(IValue x, IValue y)
             var iy = orderedTypes.IndexOf(y.SystemType);
 
             if (ix >= 0)
-                if (iy >= 0)
+                if (iy >= 0)
                     return ix - iy;
                 else
                     return ix == INDEX_OF_TYPE ? 1 : -1;

tests/collections.os

@@ -7,6 +7,14 @@
 	ВсеТесты = Новый Массив;
 
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьКлючНеопределеноВСоответствии");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьКлючNullВСоответствии");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьКлючБулевоВСоответствии");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьКлючЧислоВСоответствии");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьКлючСтрокаВСоответствии");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьКлючДатаВСоответствии");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьКлючУникальныйИдентификаторВСоответствии");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьКлючТипВСоответствии");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьРазличныеКлючиВСоответствии");
 
 	Возврат ВсеТесты;
 КонецФункции
@@ -18,4 +26,124 @@
     юТест.ПроверитьРавенство(1, Соотв.Количество());
     юТест.ПроверитьРавенство(Истина, Соотв[Неопределено]);
 
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьКлючNullВСоответствии() Экспорт
+    
+    Соотв = Новый Соответствие;
+    Соотв.Вставить(Null, "Значение для Null");
+    юТест.ПроверитьРавенство(1, Соотв.Количество());
+    юТест.ПроверитьРавенство("Значение для Null", Соотв[Null]);
+    
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьКлючБулевоВСоответствии() Экспорт
+    
+    Соотв = Новый Соответствие;
+    Соотв.Вставить(Истина, "Значение для Истина");
+    Соотв.Вставить(Ложь, "Значение для Ложь");
+    
+    юТест.ПроверитьРавенство(2, Соотв.Количество());
+    юТест.ПроверитьРавенство("Значение для Истина", Соотв[Истина]);
+    юТест.ПроверитьРавенство("Значение для Ложь", Соотв[Ложь]);
+    
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьКлючЧислоВСоответствии() Экспорт
+    
+    Соотв = Новый Соответствие;
+    Соотв.Вставить(42, "Значение для 42");
+    Соотв.Вставить(0, "Значение для 0");
+    Соотв.Вставить(-100, "Значение для -100");
+    Соотв.Вставить(3.14, "Значение для 3.14");
+    
+    юТест.ПроверитьРавенство(4, Соотв.Количество());
+    юТест.ПроверитьРавенство("Значение для 42", Соотв[42]);
+    юТест.ПроверитьРавенство("Значение для 0", Соотв[0]);
+    юТест.ПроверитьРавенство("Значение для -100", Соотв[-100]);
+    юТест.ПроверитьРавенство("Значение для 3.14", Соотв[3.14]);
+    
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьКлючСтрокаВСоответствии() Экспорт
+    
+    Соотв = Новый Соответствие;
+    Соотв.Вставить("Ключ1", "Значение1");
+    Соотв.Вставить("Ключ2", "Значение2");
+    Соотв.Вставить("", "Значение для пустой строки");
+    
+    юТест.ПроверитьРавенство(3, Соотв.Количество());
+    юТест.ПроверитьРавенство("Значение1", Соотв["Ключ1"]);
+    юТест.ПроверитьРавенство("Значение2", Соотв["Ключ2"]);
+    юТест.ПроверитьРавенство("Значение для пустой строки", Соотв[""]);
+    
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьКлючДатаВСоответствии() Экспорт
+    
+    Соотв = Новый Соответствие;
+    Дата1 = '20151231';
+    Дата2 = '20200101';
+    
+    Соотв.Вставить(Дата1, "Значение для Дата1");
+    Соотв.Вставить(Дата2, "Значение для Дата2");
+    
+    юТест.ПроверитьРавенство(2, Соотв.Количество());
+    юТест.ПроверитьРавенство("Значение для Дата1", Соотв[Дата1]);
+    юТест.ПроверитьРавенство("Значение для Дата2", Соотв[Дата2]);
+    
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьКлючУникальныйИдентификаторВСоответствии() Экспорт
+    
+    Соотв = Новый Соответствие;
+    УИД1 = Новый УникальныйИдентификатор;
+    УИД2 = Новый УникальныйИдентификатор;
+    
+    Соотв.Вставить(УИД1, "Значение для УИД1");
+    Соотв.Вставить(УИД2, "Значение для УИД2");
+    
+    юТест.ПроверитьРавенство(2, Соотв.Количество());
+    юТест.ПроверитьРавенство("Значение для УИД1", Соотв[УИД1]);
+    юТест.ПроверитьРавенство("Значение для УИД2", Соотв[УИД2]);
+    
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьКлючТипВСоответствии() Экспорт
+    
+    Соотв = Новый Соответствие;
+    Тип1 = Тип("Строка");
+    Тип2 = Тип("Число");
+    
+    Соотв.Вставить(Тип1, "Значение для Тип Строка");
+    Соотв.Вставить(Тип2, "Значение для Тип Число");
+    
+    юТест.ПроверитьРавенство(2, Соотв.Количество());
+    юТест.ПроверитьРавенство("Значение для Тип Строка", Соотв[Тип1]);
+    юТест.ПроверитьРавенство("Значение для Тип Число", Соотв[Тип2]);
+    
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьРазличныеКлючиВСоответствии() Экспорт
+    
+    // Проверка, что различные типы значений могут быть одновременно ключами
+    Соотв = Новый Соответствие;
+    
+    Соотв[Неопределено] = "Неопределено";
+    Соотв[Null] = "Null";
+    Соотв[Истина] = "Истина";
+    Соотв[42] = "Число";
+    Соотв["Текст"] = "Строка";
+    Соотв['20240101'] = "Дата";
+    Соотв[Тип("Строка")] = "Тип";
+    
+    юТест.ПроверитьРавенство(7, Соотв.Количество());
+    юТест.ПроверитьРавенство("Неопределено", Соотв[Неопределено]);
+    юТест.ПроверитьРавенство("Null", Соотв[Null]);
+    юТест.ПроверитьРавенство("Истина", Соотв[Истина]);
+    юТест.ПроверитьРавенство("Число", Соотв[42]);
+    юТест.ПроверитьРавенство("Строка", Соотв["Текст"]);
+    юТест.ПроверитьРавенство("Дата", Соотв['20240101']);
+    юТест.ПроверитьРавенство("Тип", Соотв[Тип("Строка")]);
+    
 КонецПроцедуры