fix #1500: строгое сравнение значений при поиске в коллекциях

src/OneScript.Core/Values/BslBooleanValue.cs

@@ -9,6 +9,7 @@ This Source Code Form is subject to the terms of the
 using OneScript.Exceptions;
 using OneScript.Localization;
 using OneScript.Types;
+using ScriptEngine.Machine;
 
 namespace OneScript.Values
 {
@@ -57,12 +58,15 @@ public override string ToString()
 
         public override bool Equals(BslValue other)
         {
-            if (ReferenceEquals(null, other))
-                return false;
-            if (ReferenceEquals(this, other))
-                return true;
+            if (other is null) return false;
+            if (ReferenceEquals(this, other)) return true;
 
-            return false;
+           return other switch
+            {
+                BslNumericValue num => num == ((decimal)this),
+                BslBooleanValue boolean => _flag == boolean._flag,
+                _ => false
+            };
         }
 
         public override int CompareTo(BslValue other)

src/OneScript.Core/Values/IValue.cs

@@ -18,4 +18,9 @@ public interface IValue : IComparable<IValue>, IEquatable<IValue>
         IValue GetRawValue();
     }
 
+    public static class IValueExtension
+    {
+        public static bool StrictEquals(this IValue value, IValue other)
+            => value.Equals(other) && value.SystemType == other.SystemType;
+    }
 }

src/OneScript.StandardLibrary/Collections/ArrayImpl.cs

@@ -113,7 +113,7 @@ public void Insert(int index, IValue value = null)
         [ContextMethod("Найти", "Find")]
         public IValue Find(IValue what)
         {
-            var idx = _values.FindIndex(x => x.Equals(what));
+            var idx = _values.FindIndex(x => x.StrictEquals(what));
             if(idx < 0)
             {
                 return ValueFactory.Create();

src/OneScript.StandardLibrary/Collections/ValueList/ValueListImpl.cs

@@ -182,7 +182,7 @@ public int IndexOf(ValueListItem item)
         [ContextMethod("НайтиПоЗначению", "FindByValue")]
         public IValue FindByValue(IValue val)
         {
-            var item = _items.FirstOrDefault(x => x.Value.Equals(val));
+            var item = _items.FirstOrDefault(x => x.Value.StrictEquals(val));
             if(item == null)
                 return ValueFactory.Create();
 

src/OneScript.StandardLibrary/Collections/ValueTable/ValueTable.cs

@@ -258,7 +258,7 @@ public IValue Find(IValue value, string columnNames = null)
                 foreach (var col in processing_list)
                 {
                     var current = row.Get(col);
-                    if (value.Equals(current))
+                    if (value.StrictEquals(current))
                         return row;
                 }
             }
@@ -274,7 +274,7 @@ private bool CheckFilterCriteria(ValueTableRow Row, StructureImpl Filter)
                     throw WrongColumnNameException(kv.Key.AsString());
 
                 IValue current = Row.Get(Column);
-                if (!current.Equals(kv.Value))
+                if (!current.StrictEquals(kv.Value))
                     return false;
             }
             return true;

src/OneScript.StandardLibrary/Collections/ValueTree/ValueTreeRowCollection.cs

@@ -224,7 +224,7 @@ public IValue Find(IValue value, string columnNames = null, bool includeChildren
                 foreach (ValueTreeColumn col in processingList)
                 {
                     IValue current = row.Get(col);
-                    if (value.Equals(current))
+                    if (value.StrictEquals(current))
                         return row;
                 }
                 if (includeChildren)
@@ -248,7 +248,7 @@ private bool CheckFilterCriteria(ValueTreeRow row, StructureImpl filter)
                     throw PropertyAccessException.PropNotFoundException(kv.Key.AsString());
 
                 IValue current = row.Get(column);
-                if (!current.Equals(kv.Value))
+                if (!current.StrictEquals(kv.Value))
                     return false;
             }
             return true;

src/Tests/OneScript.Core.Tests/ValuesTest.cs

@@ -201,6 +201,37 @@ public void String_To_String_Comparison()
             str1.CompareTo(ValueFactory.Create("абв")).Should().BeGreaterThan(0);
         }
 
+        [Fact]
+        public void Boolean_Equality()
+        {
+            var bool1 = ValueFactory.Create(true);
+            var bool0 = ValueFactory.Create(false);
+            var num1 = ValueFactory.Create(1);
+            var num0 = ValueFactory.Create(0);
+            var num2 = ValueFactory.Create(2);
+
+            Assert.True(bool0.Equals(bool0));
+            Assert.True(bool1.Equals(bool1));
+            Assert.False(bool0.Equals(bool1));
+            Assert.False(bool1.Equals(bool0));
+
+            Assert.True(bool0.Equals(num0));
+            Assert.True(bool1.Equals(num1));
+            Assert.False(bool0.Equals(num1));
+            Assert.False(bool1.Equals(num0));
+
+            Assert.False(bool0.Equals(num2));
+            Assert.False(bool1.Equals(num2));
+
+            Assert.True(num0.Equals(bool0));
+            Assert.True(num1.Equals(bool1));
+            Assert.False(num0.Equals(bool1));
+            Assert.False(num1.Equals(bool0));
+
+            Assert.False(num2.Equals(bool1));
+            Assert.False(num2.Equals(bool0));
+        }
+
         [Fact]
         public void Boolean_Comparison()
         {

tests/find-in-collections.os

@@ -0,0 +1,221 @@
+Перем юТест;
+
+Функция ПолучитьСписокТестов(ЮнитТестирование) Экспорт
+	юТест = ЮнитТестирование;
+
+	ВсеТесты = Новый Массив;
+
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьПоиск_БулеваСредиЧисел_ВМассиве");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьПоиск_ЧислаСредиБулевых_ВМассиве");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьПоиск_БулеваСредиЧисел_ВФиксированномМассиве");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьПоиск_ЧислаСредиБулевых_ВФиксированномМассиве");
+
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьПоиск_БулеваСредиЧисел_ВСпискеЗначений");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьПоиск_ЧислаСредиБулевых_ВСпискеЗначений");
+
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьПоиск_БулеваСредиЧисел_ВТаблицеЗначений");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьПоиск_ЧислаСредиБулевых_ВТаблицеЗначений");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьПоиск_БулеваСредиЧисел_ВСтрокахТаблицыЗначений");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьПоиск_ЧислаСредиБулевых_ВСтрокахТаблицыЗначений");
+
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьПоиск_БулеваСредиЧисел_ВДеревеЗначений");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьПоиск_ЧислаСредиБулевых_ВДеревеЗначений");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьПоиск_БулеваСредиЧисел_ВСтрокахДереваЗначений");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьПоиск_ЧислаСредиБулевых_ВСтрокахДереваЗначений");
+
+	Возврат ВсеТесты;
+КонецФункции
+
+Процедура ТестДолжен_ПроверитьПоиск_БулеваСредиЧисел_ВМассиве() Экспорт
+	Массив = Новый Массив;
+	Массив.Добавить(0);
+	Массив.Добавить(1);
+	ЕстьИстина = Массив.Найти(Истина) <> Неопределено;
+	ЕстьЛожь = Массив.Найти(Ложь) <> Неопределено;
+	юТест.ПроверитьЛожь( ЕстьИстина );
+	юТест.ПроверитьЛожь( ЕстьЛожь );
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьПоиск_ЧислаСредиБулевых_ВМассиве() Экспорт
+	Массив = Новый Массив;
+	Массив.Добавить(Ложь);
+	Массив.Добавить(Истина);
+	Есть1 = Массив.Найти(1) <> Неопределено;
+	Есть0 = Массив.Найти(0) <> Неопределено;
+	юТест.ПроверитьЛожь( Есть1 );
+	юТест.ПроверитьЛожь( Есть0 );
+КонецПроцедуры
+
+
+Процедура ТестДолжен_ПроверитьПоиск_БулеваСредиЧисел_ВФиксированномМассиве() Экспорт
+	Массив = Новый Массив;
+	Массив.Добавить(0);
+	Массив.Добавить(1);
+	ФиксированныйМассив = Новый ФиксированныйМассив(Массив);
+	ЕстьИстина = ФиксированныйМассив.Найти(Истина) <> Неопределено;
+	ЕстьЛожь = ФиксированныйМассив.Найти(Ложь) <> Неопределено;
+	юТест.ПроверитьЛожь( ЕстьИстина );
+	юТест.ПроверитьЛожь( ЕстьЛожь );
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьПоиск_ЧислаСредиБулевых_ВФиксированномМассиве() Экспорт
+	Массив = Новый Массив;
+	Массив.Добавить(Ложь);
+	Массив.Добавить(Истина);
+	ФиксированныйМассив = Новый ФиксированныйМассив(Массив);
+	Есть1 = ФиксированныйМассив.Найти(1) <> Неопределено;
+	Есть0 = ФиксированныйМассив.Найти(0) <> Неопределено;
+	юТест.ПроверитьЛожь( Есть1 );
+	юТест.ПроверитьЛожь( Есть0 );
+КонецПроцедуры
+
+
+Процедура ТестДолжен_ПроверитьПоиск_БулеваСредиЧисел_ВСпискеЗначений() Экспорт
+	СписокЗначений = Новый СписокЗначений();
+	СписокЗначений.Добавить(1);
+	СписокЗначений.Добавить(0);
+	ЕстьИстина = СписокЗначений.НайтиПоЗначению(Истина) <> Неопределено;
+	ЕстьЛожь = СписокЗначений.НайтиПоЗначению(Ложь) <> Неопределено;
+	юТест.ПроверитьЛожь( ЕстьИстина );
+	юТест.ПроверитьЛожь( ЕстьЛожь );
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьПоиск_ЧислаСредиБулевых_ВСпискеЗначений() Экспорт
+	СписокЗначений = Новый СписокЗначений();
+	СписокЗначений.Добавить(Истина);
+	СписокЗначений.Добавить(Ложь);
+	Есть1 = СписокЗначений.НайтиПоЗначению(1) <> Неопределено;
+	Есть0 = СписокЗначений.НайтиПоЗначению(0) <> Неопределено;
+	юТест.ПроверитьЛожь( Есть1 );
+	юТест.ПроверитьЛожь( Есть0 );
+КонецПроцедуры
+
+
+Процедура ТестДолжен_ПроверитьПоиск_БулеваСредиЧисел_ВТаблицеЗначений() Экспорт
+	ТаблицаЗначений = Новый ТаблицаЗначений(); 
+	ТаблицаЗначений.Колонки.Добавить("Кол1"); 
+	ТаблицаЗначений.Колонки.Добавить("Кол2"); 
+	Строка1 = ТаблицаЗначений.Добавить();
+	Строка2 = ТаблицаЗначений.Добавить();
+	Строка1.Кол1 = 1;
+	Строка1.Кол2 = 0;
+	Строка2.Кол1 = 0;
+	Строка2.Кол2 = 1;
+	ЕстьИстина = ТаблицаЗначений.Найти(Истина) <> Неопределено;
+	ЕстьЛожь = ТаблицаЗначений.Найти(Ложь) <> Неопределено;
+	юТест.ПроверитьЛожь( ЕстьИстина );
+	юТест.ПроверитьЛожь( ЕстьЛожь );
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьПоиск_ЧислаСредиБулевых_ВТаблицеЗначений() Экспорт
+	ТаблицаЗначений = Новый ТаблицаЗначений(); 
+	ТаблицаЗначений.Колонки.Добавить("Кол1"); 
+	ТаблицаЗначений.Колонки.Добавить("Кол2"); 
+	Строка1 = ТаблицаЗначений.Добавить();
+	Строка2 = ТаблицаЗначений.Добавить();
+	Строка1.Кол1 = Истина;
+	Строка1.Кол2 = Ложь;
+	Строка2.Кол1 = Ложь;
+	Строка2.Кол2 = Истина;
+	Есть1 = ТаблицаЗначений.Найти(1) <> Неопределено;
+	Есть0 = ТаблицаЗначений.Найти(0) <> Неопределено;
+	юТест.ПроверитьЛожь( Есть1 );
+	юТест.ПроверитьЛожь( Есть0 );
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьПоиск_БулеваСредиЧисел_ВСтрокахТаблицыЗначений() Экспорт
+	ТаблицаЗначений = Новый ТаблицаЗначений(); 
+	ТаблицаЗначений.Колонки.Добавить("Кол1"); 
+	ТаблицаЗначений.Колонки.Добавить("Кол2"); 
+	Строка1 = ТаблицаЗначений.Добавить();
+	Строка2 = ТаблицаЗначений.Добавить();
+	Строка1.Кол1 = 1;
+	Строка1.Кол2 = 0;
+	Строка2.Кол1 = 0;
+	Строка2.Кол2 = 1;
+	ЕстьИстина = ТаблицаЗначений.НайтиСтроки( Новый Структура("Кол1", Истина) ).Количество() > 0;
+	ЕстьЛожь = ТаблицаЗначений.НайтиСтроки( Новый Структура("Кол1", Ложь) ).Количество() > 0;
+	юТест.ПроверитьЛожь( ЕстьИстина );
+	юТест.ПроверитьЛожь( ЕстьЛожь );
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьПоиск_ЧислаСредиБулевых_ВСтрокахТаблицыЗначений() Экспорт
+	ТаблицаЗначений = Новый ТаблицаЗначений(); 
+	ТаблицаЗначений.Колонки.Добавить("Кол1"); 
+	ТаблицаЗначений.Колонки.Добавить("Кол2"); 
+	Строка1 = ТаблицаЗначений.Добавить();
+	Строка2 = ТаблицаЗначений.Добавить();
+	Строка1.Кол1 = Истина;
+	Строка1.Кол2 = Ложь;
+	Строка2.Кол1 = Ложь;
+	Строка2.Кол2 = Истина;
+	Есть1 = ТаблицаЗначений.НайтиСтроки( Новый Структура("Кол1", 1) ).Количество() > 0;
+	Есть0 = ТаблицаЗначений.НайтиСтроки( Новый Структура("Кол1", 0) ).Количество() > 0;
+	юТест.ПроверитьЛожь( Есть1 );
+	юТест.ПроверитьЛожь( Есть0 );
+КонецПроцедуры
+
+
+Процедура ТестДолжен_ПроверитьПоиск_БулеваСредиЧисел_ВДеревеЗначений() Экспорт
+	ДеревоЗначений = Новый ДеревоЗначений(); 
+	ДеревоЗначений.Колонки.Добавить("Кол1"); 
+	ДеревоЗначений.Колонки.Добавить("Кол2"); 
+	Строка1 = ДеревоЗначений.Строки.Добавить();
+	Строка2 = ДеревоЗначений.Строки.Добавить();
+	Строка1.Кол1 = 1;
+	Строка1.Кол2 = 0;
+	Строка2.Кол1 = 0;
+	Строка2.Кол2 = 1;
+	ЕстьИстина = ДеревоЗначений.Строки.Найти(Истина) <> Неопределено;
+	ЕстьЛожь = ДеревоЗначений.Строки.Найти(Ложь) <> Неопределено;
+	юТест.ПроверитьЛожь( ЕстьИстина );
+	юТест.ПроверитьЛожь( ЕстьЛожь );
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьПоиск_ЧислаСредиБулевых_ВДеревеЗначений() Экспорт
+	ДеревоЗначений = Новый ДеревоЗначений(); 
+	ДеревоЗначений.Колонки.Добавить("Кол1"); 
+	ДеревоЗначений.Колонки.Добавить("Кол2"); 
+	Строка1 = ДеревоЗначений.Строки.Добавить();
+	Строка2 = ДеревоЗначений.Строки.Добавить();
+	Строка1.Кол1 = Истина;
+	Строка1.Кол2 = Ложь;
+	Строка2.Кол1 = Ложь;
+	Строка2.Кол2 = Истина;
+	Есть1 = ДеревоЗначений.Строки.Найти(1) <> Неопределено;
+	Есть0 = ДеревоЗначений.Строки.Найти(0) <> Неопределено;
+	юТест.ПроверитьЛожь( Есть1 );
+	юТест.ПроверитьЛожь( Есть0 );
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьПоиск_БулеваСредиЧисел_ВСтрокахДереваЗначений() Экспорт
+	ДеревоЗначений = Новый ДеревоЗначений(); 
+	ДеревоЗначений.Колонки.Добавить("Кол1"); 
+	ДеревоЗначений.Колонки.Добавить("Кол2"); 
+	Строка1 = ДеревоЗначений.Строки.Добавить();
+	Строка2 = ДеревоЗначений.Строки.Добавить();
+	Строка1.Кол1 = 1;
+	Строка1.Кол2 = 0;
+	Строка2.Кол1 = 0;
+	Строка2.Кол2 = 1;
+	ЕстьИстина = ДеревоЗначений.Строки.НайтиСтроки( Новый Структура("Кол1", Истина) ).Количество() > 0;
+	ЕстьЛожь = ДеревоЗначений.Строки.НайтиСтроки( Новый Структура("Кол1", Ложь) ).Количество() > 0;
+	юТест.ПроверитьЛожь( ЕстьИстина );
+	юТест.ПроверитьЛожь( ЕстьЛожь );
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьПоиск_ЧислаСредиБулевых_ВСтрокахДереваЗначений() Экспорт
+	ДеревоЗначений = Новый ДеревоЗначений(); 
+	ДеревоЗначений.Колонки.Добавить("Кол1"); 
+	ДеревоЗначений.Колонки.Добавить("Кол2"); 
+	Строка1 = ДеревоЗначений.Строки.Добавить();
+	Строка2 = ДеревоЗначений.Строки.Добавить();
+	Строка1.Кол1 = Истина;
+	Строка1.Кол2 = Ложь;
+	Строка2.Кол1 = Ложь;
+	Строка2.Кол2 = Истина;
+	Есть1 = ДеревоЗначений.Строки.НайтиСтроки( Новый Структура("Кол1", 1) ).Количество() > 0;
+	Есть0 = ДеревоЗначений.Строки.НайтиСтроки( Новый Структура("Кол1", 0) ).Количество() > 0;
+	юТест.ПроверитьЛожь( Есть1 );
+	юТест.ПроверитьЛожь( Есть0 );
+КонецПроцедуры