mocha-dotnet/mocha-dotnet/tests/Mocha.Core.Tests/MethodTests/MethodBindingTests.cs

using System;
using Mocha.Core.Oop;

namespace Mocha.Core.Tests.MethodTests;

public class MethodBindingTests : MethodTestsBase
{
	[Test]
	public void RSMBInheritsFromMethodBinding()
	{
		OmsMethodBuilder mb = new OmsMethodBuilder(Oms);
		InstanceHandle c_MethodBinding = Oms.GetInstance(KnownInstanceGuids.Classes.MethodBinding);
		
		WorkSet ws_1 = Oms.CreateWorkSet("Test Work Set 1");
		MethodReturningInstanceSet dummy = mb.CreateGetSpecifiedInstancesMethod(c_TestClass, "get", "Test Class", ws_1, new InstanceHandle[] { c_TestClass });

		InstanceHandle handle = mb.CreateReturnInstanceSetMethodBinding(dummy).Handle;
		Assert.That(Oms.IsInstanceOf(handle, c_MethodBinding));
	}
	[Test]
	public void RAMBInheritsFromMethodBinding()
	{
		OmsMethodBuilder mb = new OmsMethodBuilder(Oms);
		InstanceHandle c_MethodBinding = Oms.GetInstance(KnownInstanceGuids.Classes.MethodBinding);
		InstanceHandle a_Text = Oms.GetInstance(KnownAttributeGuids.Text.Value);

		MethodReturningAttribute dummy = mb.CreateGetAttributeMethod(c_TestClass, "get", "Test Attribute", a_Text);

		InstanceHandle handle = mb.CreateReturnAttributeMethodBinding(dummy).Handle;
		Assert.That(Oms.IsInstanceOf(handle, c_MethodBinding));
	}
	[Test]
	public void REMBInheritsFromMethodBinding()
	{
		/*
		OmsMethodBuilder mb = new OmsMethodBuilder(Oms);
		InstanceHandle c_MethodBinding = Oms.GetInstance(KnownInstanceGuids.Classes.MethodBinding);
		InstanceHandle a_Text = Oms.GetInstance(KnownAttributeGuids.Text.Value);

		MethodReturningAttribute dummy = mb.CreateGetAttributeMethod(c_TestClass, "get", "Test Attribute", a_Text);

		InstanceHandle handle = mb.CreateReturnAttributeMethodBinding(dummy).Handle;
		Assert.That(Oms.IsInstanceOf(handle, c_MethodBinding));
		*/
		Assert.Ignore();
	}
	[Test]
	public void BRMBInheritsFromMethodBinding()
	{
		OmsMethodBuilder mb = new OmsMethodBuilder(Oms);
		InstanceHandle c_MethodBinding = Oms.GetInstance(KnownInstanceGuids.Classes.MethodBinding);
		InstanceHandle a_Text = Oms.GetInstance(KnownAttributeGuids.Text.Value);

		MethodBuildingResponse dummy = mb.CreateBuildUIResponseMethod(c_TestClass, "get", "Test Attribute", AccessModifier.Public, false, InstanceHandle.Empty);

		InstanceHandle handle = mb.CreateBuildResponseMethodBinding(dummy).Handle;
		Assert.That(Oms.IsInstanceOf(handle, c_MethodBinding));
	}
	[Test]
	public void RWMBInheritsFromMethodBinding()
	{
		/*
		OmsMethodBuilder mb = new OmsMethodBuilder(Oms);
		InstanceHandle c_MethodBinding = Oms.GetInstance(KnownInstanceGuids.Classes.MethodBinding);
		InstanceHandle a_Text = Oms.GetInstance(KnownAttributeGuids.Text.Value);

		MethodReturningAttribute dummy = mb.CreateGetAttributeMethod(c_TestClass, "get", "Test Attribute", a_Text);

		InstanceHandle handle = mb.CreateReturnAttributeMethodBinding(dummy).Handle;
		Assert.That(Oms.IsInstanceOf(handle, c_MethodBinding));
		*/
		Assert.Ignore();
	}
	[Test]
	public void PUMBInheritsFromMethodBinding()
	{
		/*
		OmsMethodBuilder mb = new OmsMethodBuilder(Oms);
		InstanceHandle c_MethodBinding = Oms.GetInstance(KnownInstanceGuids.Classes.MethodBinding);
		InstanceHandle a_Text = Oms.GetInstance(KnownAttributeGuids.Text.Value);

		MethodReturningAttribute dummy = mb.CreateGetAttributeMethod(c_TestClass, "get", "Test Attribute", a_Text);

		InstanceHandle handle = mb.CreateReturnAttributeMethodBinding(dummy).Handle;
		Assert.That(Oms.IsInstanceOf(handle, c_MethodBinding));
		*/
		Assert.Ignore();
	}
	[Test]
	public void EUMBInheritsFromMethodBinding()
	{
		/*
		OmsMethodBuilder mb = new OmsMethodBuilder(Oms);
		InstanceHandle c_MethodBinding = Oms.GetInstance(KnownInstanceGuids.Classes.MethodBinding);
		InstanceHandle a_Text = Oms.GetInstance(KnownAttributeGuids.Text.Value);

		MethodReturningAttribute dummy = mb.CreateGetAttributeMethod(c_TestClass, "get", "Test Attribute", a_Text);

		InstanceHandle handle = mb.CreateReturnAttributeMethodBinding(dummy).Handle;
		Assert.That(Oms.IsInstanceOf(handle, c_MethodBinding));
		*/
		Assert.Ignore();
	}

	[Test]
	public void Method_Binding__uses_super__Return_Instance_Set_Method_Binding()
	{
		InstanceHandle c_OMS = Oms.GetInstance(KnownInstanceGuids.Classes.OMS);
		InstanceHandle i_OMS = Oms.CreateInstanceOf(c_OMS);
		InstanceHandle i_OMS2 = Oms.CreateInstanceOf(c_OMS);

		WorkSet ws = Oms.CreateWorkSet("Singleton OMS");
		
		Oop.Methods.GetSpecifiedInstancesMethod m1 = Oms.MethodBuilder.CreateGetSpecifiedInstancesMethod(c_OMS, "get", "Singleton", ws, new InstanceHandle[] { i_OMS });
		ReturnInstanceSetMethodBinding rsmb1 = m1.CreateMethodBinding(Oms);

		Oop.Methods.GetSpecifiedInstancesMethod m2 = Oms.MethodBuilder.CreateGetSpecifiedInstancesMethod(c_OMS, "get", "Singleton 2", ws, new InstanceHandle[] { i_OMS2 });
		ReturnInstanceSetMethodBinding rsmb2 = m2.CreateMethodBinding(Oms);

		ReturnInstanceSetMethodBinding rsmb3 = m2.CreateMethodBinding(Oms);
		Oms.AssignRelationship(rsmb3.Handle, Oms.GetInstance(KnownRelationshipGuids.Method_Binding__uses_super__Return_Instance_Set_Method_Binding), rsmb1.Handle);

		OmsContext context = Oms.CreateContext();
		InstanceHandle valWS = Oms.Execute(context, rsmb3);
		
		Assert.That(valWS, Is.Not.EqualTo(InstanceHandle.Empty));
		
		object? val = context.GetWorkData(valWS);
		
		Assert.That(val, Is.InstanceOf<IEnumerable<InstanceHandle>>());
		if (val is IEnumerable<InstanceHandle> ie)
		{
			InstanceHandle[] ihs = ie.ToArray();
			Assert.That(ihs.Length, Is.EqualTo(2));
			Assert.That(ihs[0], Is.EqualTo(i_OMS));
			Assert.That(ihs[1], Is.EqualTo(i_OMS2));
		}
	}
}