Add files via upload

Author: DmitryMak

src/NHibernate.Test/NHSpecificTest/GH3539/CardInfo.cs

@@ -0,0 +1,47 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+
+namespace NHibernate.Test.NHSpecificTest.GH3539;
+
+public class CardInfo
+{
+	private readonly ISet<string> _oldCards;
+
+	protected CardInfo() { }
+
+	public CardInfo(params string[] cards)
+	{
+		_oldCards = cards.ToHashSet();
+	}
+
+	public virtual ISet<string> GetCardsCopy()
+	{
+		return _oldCards.ToHashSet();
+	}
+
+	public override bool Equals(object obj)
+	{
+		if (obj is null)
+		{
+			return false;
+		}
+		if (ReferenceEquals(this, obj))
+		{
+			return true;
+		}
+		if (obj.GetType() != GetType())
+		{
+			return false;
+		}
+		var other = (CardInfo) obj;
+		return _oldCards.SetEquals(other._oldCards);
+	}
+
+	public override int GetHashCode()
+	{
+		var hashCode = new HashCode();
+		hashCode.Add(_oldCards);
+		return hashCode.ToHashCode();
+	}
+}

src/NHibernate.Test/NHSpecificTest/GH3539/ImmutableComponentTest.cs

@@ -0,0 +1,93 @@
+using System;
+using System.IO;
+using System.Reflection;
+using NHibernate.Cfg;
+using NUnit.Framework;
+
+namespace NHibernate.Test.NHSpecificTest.GH3539
+{
+	[TestFixture]
+	public class ImmutableComponentTest : TestCase
+	{
+		protected override string MappingsAssembly
+		{
+			get { return "NHibernate.Test"; }
+		}
+
+		protected override string[] Mappings
+		{
+			get { return Array.Empty<string>(); }
+		}
+
+		protected override void Configure(Configuration configuration)
+		{
+			using (Stream stream = Assembly.GetExecutingAssembly().GetManifestResourceStream(
+					   "NHibernate.Test.NHSpecificTest.GH3539.Person.hbm.xml"))
+			{
+				using (StreamReader reader = new StreamReader(stream))
+				{
+					string mapping = reader.ReadToEnd();
+
+					configuration.AddXml(mapping);
+					configuration.SetProperty(Cfg.Environment.GenerateStatistics, "true");
+				}
+			}
+		}
+
+		protected override void OnTearDown()
+		{
+			using (ISession s = Sfi.OpenSession())
+			using (ITransaction t = s.BeginTransaction())
+			{
+				s.Delete("from Person");
+				t.Commit();
+			}
+
+			base.OnTearDown();
+		}
+
+		[Test]
+		public void TestComponent()
+		{
+			int personId;
+			using (ISession s = Sfi.OpenSession())
+			using (ITransaction t = s.BeginTransaction())
+			{
+				var person = new Person(age: 20)
+				{
+					CardInfo = new("card1", "card2")
+				};
+				s.Save(person);
+				t.Commit();
+				s.Flush();
+				personId = person.Id;
+			}
+
+			using (ISession s = Sfi.OpenSession())
+			using (ITransaction t = s.BeginTransaction())
+			{
+				var restored = s.Get<Person>(personId);
+
+				var oldCardInfo = restored.CardInfo;
+
+				Assert.That(oldCardInfo.GetCardsCopy().Contains("card1"));
+				Assert.That(oldCardInfo.GetCardsCopy().Contains("card2"));
+
+				var newCardInfo = new CardInfo("card1", "card2");
+
+				Assert.That(oldCardInfo.Equals(newCardInfo), Is.True);
+
+				restored.CardInfo = newCardInfo;
+
+				// Expected behaviour:
+				//
+				// At this point there should be no DML statements because newCardInfo
+				// is the same as the old one. But NHibernate will generate DELETE
+				// followed by 2 INSERT into OldCards table. I'm not sure how to fail
+				// an assertion when an unexpected DML is issued.
+
+				t.Commit();
+			}
+		}
+	}
+}

src/NHibernate.Test/NHSpecificTest/GH3539/Person.cs

@@ -0,0 +1,35 @@
+namespace NHibernate.Test.NHSpecificTest.GH3539
+{
+	public class Person
+	{
+		private int _id;
+		private int _age;
+		private CardInfo _cardInfo;
+
+		protected Person() { }
+
+		public Person(int age)
+		{
+			_cardInfo = new();
+			_age = age;
+		}
+
+		public virtual int Id
+		{
+			get { return _id; }
+			set { _id = value; }
+		}
+
+		public virtual int Age
+		{
+			get { return _age; }
+			set { _age = value; }
+		}
+
+		public virtual CardInfo CardInfo
+		{
+			get { return _cardInfo; }
+			set { _cardInfo = value; }
+		}
+	}
+}

src/NHibernate.Test/NHSpecificTest/GH3539/Person.hbm.xml

@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<hibernate-mapping 
+	xmlns="urn:nhibernate-mapping-2.2" 
+	assembly="NHibernate.Test" 
+	namespace="NHibernate.Test.NHSpecificTest.GH3539">
+
+	<class name="Person" table="People">
+		<id name="_id" type="int" column="ID" access="field">
+			<generator class="increment"/>
+		</id>
+    <property name="_age" type="int" access="field"/>
+    
+    <component name="_cardInfo" access="field">
+      <set name="_oldCards" table="OldCards" cascade="all" access="field" >
+        <key column="PersonId" />
+        <element column="Card" type="String" />
+      </set>
+    </component>
+	</class>
+
+</hibernate-mapping>