PetroProtsyk-SSharp/UnitTests/QualifiedName.cs

using System;
using System.Text;
using System.Collections.Generic;
using System.Linq;
using Microsoft.VisualStudio.TestTools.UnitTesting;
using Scripting.SSharp.Runtime;
using Scripting.SSharp.Runtime.Promotion;
using Scripting.SSharp;

namespace UnitTests
{
  /// <summary>
  /// Summary description for QualifiedName
  /// </summary>
  [TestClass]
  public class QualifiedName
  {
    public QualifiedName()
    {
    }

    [TestInitialize]
    public void Setup()
    {
      RuntimeHost.Initialize();
      EventBroker.ClearAllSubscriptions();
    }

    [TestCleanup]
    public void TearDown()
    {
      RuntimeHost.CleanUp();
      EventBroker.ClearAllSubscriptions();
    }

    [TestMethod]
    public void GenericTypes()
    {
      RuntimeHost.AddType("Generic", typeof(Generic<>));
      ScriptContext context = new ScriptContext();
      Script script = Script.Compile(@"
          return Generic<|int|>.TypeName;
      ");

      object result = script.Ast.Execute(context);

      Assert.AreEqual(Generic<int>.TypeName, result);
    }

    [TestMethod]
    public void BaseAssignment()
    {
      RuntimeHost.AddType("TestT", typeof(TestT));
      ScriptContext context = new ScriptContext();

      TestT rez = (TestT)Script.RunCode(@"
         a = new TestT();
         a.value = 'test';
         a.intVal = 20;

         return a;
      ", context);
      
      Assert.AreEqual(20, rez.intVal);
      Assert.AreEqual("test", rez.value);
    }

    [TestMethod]
    public void AssignmentToEvaluatedObject()
    {
      ScriptContext context = new ScriptContext();
      //context.AddType("TestT", typeof(TestT));

      TestT rez = (TestT)Script.RunCode(@"
         a = new TestT();
         a.GetThis().value = 'test';
         a.GetThis().intVal = 20;

         return a;
      ", context);

      Assert.AreEqual(20, rez.intVal);
      Assert.AreEqual("test", rez.value);
    }

    [TestMethod]
    public void AssignmentToArrayObject()
    {
      TestT obj = new TestT();
      List<int> list = new List<int>();
      list.AddRange(new int[]{1,2,3,4,5,6,7,8,9});
      obj.testObject = list;

      ScriptContext context = new ScriptContext();
      //context.AddType("TestT", typeof(TestT));
      context.SetItem("a", obj);

      TestT rez = (TestT)Script.RunCode(@"
         a.testObject[2] = 15;
         a.GetThis().testObject[3] = 16;
         return a;
      ", context);

      Assert.AreEqual(15, list[2]);
      Assert.AreEqual(16, list[3]);
    }

    [TestMethod]
    public void AssignmentToArrayObjectReturnedByFunctionCall()
    {
      TestT obj = new TestT();
      List<int> list = new List<int>();
      list.AddRange(new int[] { 1, 2, 3, 4, 5, 6, 7, 8, 9 });
      obj.testObject = list;

      ScriptContext context = new ScriptContext();
      //context.AddType("TestT", typeof(TestT));
      context.SetItem("a", obj);

      TestT rez = (TestT)Script.RunCode(@"
         a.GetTestObject()[3] = 16;
         return a;
      ", context);

      Assert.AreEqual(16, list[3]);
    }

    [TestMethod]
    public void LongTypeExpression()
    {     
      object rez = Script.RunCode(@"
         a = System.Data.Common.CatalogLocation.End;
         return a;
      ");

      Assert.AreEqual(System.Data.Common.CatalogLocation.End, rez);
    }

    [TestMethod]
    public void UsingObjectThroughGenericInterface()
    {
      object rez = Script.RunCode(@"
          list = new List<|int|>();
     
          a = (ICollection<|int|>)list;
          a.Add(3);
          return a[0];
      ");

      Assert.AreEqual(3, rez);
    }
  }

  public class TestT
  {
    public string value;

    public int intVal
    {
      get;
      set;
    }

    public object testObject;

    public object GetTestObject()
    {
      return testObject;
    }

    public TestT GetThis()
    {
      return this;
    }
  }

  public class Generic<T>
  {
    public Generic()
    {
    }

    public static string TypeName = typeof(T).Name;
  }
}