// Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT license. using System; using System.Collections; using System.Collections.Generic; using System.Collections.Specialized; using System.Diagnostics.CodeAnalysis; using System.Dynamic; using System.Globalization; using System.IO; using System.Linq; using System.Reflection; using System.Threading; using System.Windows.Threading; using Microsoft.CSharp.RuntimeBinder; using Microsoft.ClearScript.Util; using Microsoft.ClearScript.Windows; using Microsoft.VisualStudio.TestTools.UnitTesting; namespace Microsoft.ClearScript.Test { [TestClass] [SuppressMessage("Microsoft.Design", "CA1001:TypesThatOwnDisposableFieldsShouldBeDisposable", Justification = "Test classes use TestCleanupAttribute for deterministic teardown.")] public class VBScriptEngineTest : ClearScriptTest { #region setup / teardown private VBScriptEngine engine; [TestInitialize] public void TestInitialize() { engine = new VBScriptEngine(WindowsScriptEngineFlags.EnableDebugging); engine.Execute("function pi : pi = 4 * atn(1) : end function"); engine.Execute("function e : e = exp(1) : end function"); } [TestCleanup] public void TestCleanup() { engine.Dispose(); BaseTestCleanup(); } #endregion #region test methods // ReSharper disable InconsistentNaming [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddHostObject() { var host = new HostFunctions(); engine.AddHostObject("host", host); Assert.AreSame(host, engine.Evaluate("host")); } [TestMethod, TestCategory("VBScriptEngine")] [ExpectedException(typeof(InvalidOperationException))] public void VBScriptEngine_AddHostObject_Scalar() { engine.AddHostObject("value", 123); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddHostObject_Enum() { const DayOfWeek value = DayOfWeek.Wednesday; engine.AddHostObject("value", value); Assert.AreEqual(value, engine.Evaluate("value")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddHostObject_Struct() { var date = new DateTime(2007, 5, 22, 6, 15, 43); engine.AddHostObject("date", date); Assert.AreEqual(date, engine.Evaluate("date")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddHostObject_GlobalMembers() { var host = new HostFunctions(); engine.AddHostObject("host", HostItemFlags.GlobalMembers, host); Assert.IsInstanceOfType(engine.Evaluate("newObj()"), typeof(PropertyBag)); engine.AddHostObject("test", HostItemFlags.GlobalMembers, this); engine.Execute("TestProperty = newObj()"); Assert.IsInstanceOfType(TestProperty, typeof(PropertyBag)); } [TestMethod, TestCategory("VBScriptEngine")] [ExpectedException(typeof(ScriptEngineException))] public void VBScriptEngine_AddHostObject_DefaultAccess() { engine.AddHostObject("test", this); engine.Execute("test.PrivateMethod()"); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddHostObject_PrivateAccess() { engine.AddHostObject("test", HostItemFlags.PrivateAccess, this); engine.Execute("test.PrivateMethod()"); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddRestrictedHostObject_BaseClass() { var host = new ExtendedHostFunctions() as HostFunctions; engine.AddRestrictedHostObject("host", host); Assert.IsInstanceOfType(engine.Evaluate("host.newObj()"), typeof(PropertyBag)); TestUtil.AssertException(() => engine.Evaluate("host.type(\"System.Int32\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddRestrictedHostObject_Interface() { const double value = 123.45; engine.AddRestrictedHostObject("convertible", value as IConvertible); engine.AddHostObject("culture", CultureInfo.InvariantCulture); Assert.AreEqual(value, engine.Evaluate("convertible.ToDouble(culture)")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddHostType() { engine.AddHostObject("host", new HostFunctions()); engine.AddHostType("Random", typeof(Random)); Assert.IsInstanceOfType(engine.Evaluate("host.newObj(Random)"), typeof(Random)); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddHostType_GlobalMembers() { engine.AddHostType("Guid", HostItemFlags.GlobalMembers, typeof(Guid)); Assert.IsInstanceOfType(engine.Evaluate("NewGuid()"), typeof(Guid)); engine.AddHostType("Test", HostItemFlags.GlobalMembers, GetType()); engine.Execute("StaticTestProperty = NewGuid()"); Assert.IsInstanceOfType(StaticTestProperty, typeof(Guid)); } [TestMethod, TestCategory("VBScriptEngine")] [ExpectedException(typeof(ScriptEngineException))] public void VBScriptEngine_AddHostType_DefaultAccess() { engine.AddHostType("Test", GetType()); engine.Execute("Test.PrivateStaticMethod()"); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddHostType_PrivateAccess() { engine.AddHostType("Test", HostItemFlags.PrivateAccess, GetType()); engine.Execute("Test.PrivateStaticMethod()"); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddHostType_Static() { engine.AddHostType("Enumerable", typeof(Enumerable)); Assert.IsInstanceOfType(engine.Evaluate("Enumerable.Range(0, 5).ToArray()"), typeof(int[])); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddHostType_OpenGeneric() { engine.AddHostObject("host", new HostFunctions()); engine.AddHostType("List", typeof(List<>)); engine.AddHostType("Guid", typeof(Guid)); Assert.IsInstanceOfType(engine.Evaluate("host.newObj(List(Guid))"), typeof(List)); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddHostType_ByName() { engine.AddHostObject("host", new HostFunctions()); engine.AddHostType("Random", "System.Random"); Assert.IsInstanceOfType(engine.Evaluate("host.newObj(Random)"), typeof(Random)); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddHostType_ByNameWithAssembly() { engine.AddHostType("Enumerable", "System.Linq.Enumerable", "System.Core"); Assert.IsInstanceOfType(engine.Evaluate("Enumerable.Range(0, 5).ToArray()"), typeof(int[])); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddHostType_ByNameWithTypeArgs() { engine.AddHostObject("host", new HostFunctions()); engine.AddHostType("Dictionary", "System.Collections.Generic.Dictionary", typeof(string), typeof(int)); Assert.IsInstanceOfType(engine.Evaluate("host.newObj(Dictionary)"), typeof(Dictionary)); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddHostType_DefaultName() { engine.AddHostObject("host", new HostFunctions()); engine.AddHostType(typeof(Random)); Assert.IsInstanceOfType(engine.Evaluate("host.newObj(Random)"), typeof(Random)); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddHostType_DefaultNameGeneric() { engine.AddHostObject("host", new HostFunctions()); engine.AddHostType(typeof(List)); Assert.IsInstanceOfType(engine.Evaluate("host.newObj(List)"), typeof(List)); engine.AddHostType(typeof(Dictionary<,>)); engine.AddHostType(typeof(int)); engine.AddHostType(typeof(decimal)); Assert.IsInstanceOfType(engine.Evaluate("host.newObj(Dictionary(Int32, Decimal), 100)"), typeof(Dictionary)); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Evaluate() { Assert.AreEqual(Math.E * Math.PI, engine.Evaluate("e * pi")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Evaluate_Array() { // ReSharper disable ImplicitlyCapturedClosure var lengths = new[] { 3, 5, 7 }; var formatParams = string.Join(", ", Enumerable.Range(0, lengths.Length).Select(position => "{" + position + "}")); var hosts = Array.CreateInstance(typeof(object), lengths); hosts.Iterate(indices => hosts.SetValue(new HostFunctions(), indices)); engine.AddHostObject("hostArray", hosts); engine.Execute(MiscHelpers.FormatInvariant("dim hosts(" + formatParams + ")", lengths.Select(length => (object)(length - 1)).ToArray())); hosts.Iterate(indices => engine.Execute(MiscHelpers.FormatInvariant("set hosts(" + formatParams + ") = hostArray.GetValue(" + formatParams + ")", indices.Select(index => (object)index).ToArray()))); hosts.Iterate(indices => Assert.AreSame(hosts.GetValue(indices), engine.Evaluate(MiscHelpers.FormatInvariant("hosts(" + formatParams + ")", indices.Select(index => (object)index).ToArray())))); var result = engine.Evaluate("hosts"); Assert.IsInstanceOfType(result, typeof(object[,,])); var hostArray = (object[,,])result; hosts.Iterate(indices => Assert.AreSame(hosts.GetValue(indices), hostArray.GetValue(indices))); // ReSharper restore ImplicitlyCapturedClosure } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Evaluate_WithDocumentName() { const string documentName = "DoTheMath"; Assert.AreEqual(Math.E * Math.PI, engine.Evaluate(documentName, "e * pi")); Assert.IsFalse(engine.GetDebugDocumentNames().Any(name => name.StartsWith(documentName, StringComparison.Ordinal))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Evaluate_DiscardDocument() { const string documentName = "DoTheMath"; Assert.AreEqual(Math.E * Math.PI, engine.Evaluate(documentName, true, "e * pi")); Assert.IsFalse(engine.GetDebugDocumentNames().Any(name => name.StartsWith(documentName, StringComparison.Ordinal))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Evaluate_RetainDocument() { const string documentName = "DoTheMath"; Assert.AreEqual(Math.E * Math.PI, engine.Evaluate(documentName, false, "e * pi")); Assert.IsTrue(engine.GetDebugDocumentNames().Any(name => name.StartsWith(documentName, StringComparison.Ordinal))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Evaluate_DocumentInfo_WithDocumentName() { const string documentName = "DoTheMath"; Assert.AreEqual(Math.E * Math.PI, engine.Evaluate(new DocumentInfo(documentName), "e * pi")); Assert.IsFalse(engine.GetDebugDocumentNames().Any(name => name.StartsWith(documentName, StringComparison.Ordinal))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Evaluate_DocumentInfo_WithDocumentUri() { const string documentName = "DoTheMath"; var documentUri = new Uri(@"c:\foo\bar\baz\" + documentName); Assert.AreEqual(Math.E * Math.PI, engine.Evaluate(new DocumentInfo(documentUri) { Flags = DocumentFlags.None }, "e * pi")); Assert.IsTrue(engine.GetDebugDocumentNames().Any(name => name.StartsWith(documentName, StringComparison.Ordinal))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Evaluate_DocumentInfo_WithDocumentUri_Relative() { const string documentName = "DoTheMath"; var documentUri = new Uri(documentName, UriKind.Relative); Assert.AreEqual(Math.E * Math.PI, engine.Evaluate(new DocumentInfo(documentUri) { Flags = DocumentFlags.None }, "e * pi")); Assert.IsTrue(engine.GetDebugDocumentNames().Any(name => name.StartsWith(documentName, StringComparison.Ordinal))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Evaluate_DocumentInfo_DiscardDocument() { const string documentName = "DoTheMath"; Assert.AreEqual(Math.E * Math.PI, engine.Evaluate(new DocumentInfo(documentName) { Flags = DocumentFlags.IsTransient }, "e * pi")); Assert.IsFalse(engine.GetDebugDocumentNames().Any(name => name.StartsWith(documentName, StringComparison.Ordinal))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Evaluate_DocumentInfo_RetainDocument() { const string documentName = "DoTheMath"; Assert.AreEqual(Math.E * Math.PI, engine.Evaluate(new DocumentInfo(documentName) { Flags = DocumentFlags.None }, "e * pi")); Assert.IsTrue(engine.GetDebugDocumentNames().Any(name => name.StartsWith(documentName, StringComparison.Ordinal))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Execute() { engine.Execute("epi = e * pi"); Assert.AreEqual(Math.E * Math.PI, engine.Script.epi); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Execute_WithDocumentName() { const string documentName = "DoTheMath"; engine.Execute(documentName, "epi = e * pi"); Assert.AreEqual(Math.E * Math.PI, engine.Script.epi); Assert.IsTrue(engine.GetDebugDocumentNames().Any(name => name.StartsWith(documentName, StringComparison.Ordinal))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Execute_DiscardDocument() { const string documentName = "DoTheMath"; engine.Execute(documentName, true, "epi = e * pi"); Assert.AreEqual(Math.E * Math.PI, engine.Script.epi); Assert.IsFalse(engine.GetDebugDocumentNames().Any(name => name.StartsWith(documentName, StringComparison.Ordinal))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Execute_RetainDocument() { const string documentName = "DoTheMath"; engine.Execute(documentName, false, "epi = e * pi"); Assert.AreEqual(Math.E * Math.PI, engine.Script.epi); Assert.IsTrue(engine.GetDebugDocumentNames().Any(name => name.StartsWith(documentName, StringComparison.Ordinal))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Execute_DocumentInfo_WithDocumentName() { const string documentName = "DoTheMath"; engine.Execute(new DocumentInfo(documentName), "epi = e * pi"); Assert.AreEqual(Math.E * Math.PI, engine.Script.epi); Assert.IsTrue(engine.GetDebugDocumentNames().Any(name => name.StartsWith(documentName, StringComparison.Ordinal))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Execute_DocumentInfo_WithDocumentUri() { const string documentName = "DoTheMath"; var documentUri = new Uri(@"c:\foo\bar\baz\" + documentName); engine.Execute(new DocumentInfo(documentUri), "epi = e * pi"); Assert.AreEqual(Math.E * Math.PI, engine.Script.epi); Assert.IsTrue(engine.GetDebugDocumentNames().Any(name => name.StartsWith(documentName, StringComparison.Ordinal))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Execute_DocumentInfo_WithDocumentUri_Relative() { const string documentName = "DoTheMath"; var documentUri = new Uri(documentName, UriKind.Relative); engine.Execute(new DocumentInfo(documentUri), "epi = e * pi"); Assert.AreEqual(Math.E * Math.PI, engine.Script.epi); Assert.IsTrue(engine.GetDebugDocumentNames().Any(name => name.StartsWith(documentName, StringComparison.Ordinal))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Execute_DocumentInfo_DiscardDocument() { const string documentName = "DoTheMath"; engine.Execute(new DocumentInfo(documentName) { Flags = DocumentFlags.IsTransient }, "epi = e * pi"); Assert.AreEqual(Math.E * Math.PI, engine.Script.epi); Assert.IsFalse(engine.GetDebugDocumentNames().Any(name => name.StartsWith(documentName, StringComparison.Ordinal))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Execute_DocumentInfo_RetainDocument() { const string documentName = "DoTheMath"; engine.Execute(new DocumentInfo(documentName) { Flags = DocumentFlags.None }, "epi = e * pi"); Assert.AreEqual(Math.E * Math.PI, engine.Script.epi); Assert.IsTrue(engine.GetDebugDocumentNames().Any(name => name.StartsWith(documentName, StringComparison.Ordinal))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ExecuteCommand_EngineConvert() { Assert.AreEqual("[ScriptObject:EngineInternalImpl]", engine.ExecuteCommand("eval EngineInternal")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ExecuteCommand_HostConvert() { var dateHostItem = HostItem.Wrap(engine, new DateTime(2007, 5, 22, 6, 15, 43)); engine.AddHostObject("date", dateHostItem); Assert.AreEqual(dateHostItem.ToString(), engine.ExecuteCommand("eval date")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ExecuteCommand_HostVariable() { engine.Script.host = new HostFunctions(); Assert.AreEqual("[HostVariable:String]", engine.ExecuteCommand("eval host.newVar(\"foo\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Invoke_ScriptFunction() { engine.Execute("function foo(x) : foo = x * pi : end function"); Assert.AreEqual(Math.E * Math.PI, engine.Invoke("foo", Math.E)); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Invoke_HostDelegate() { engine.Script.foo = new Func(x => x * Math.PI); Assert.AreEqual(Math.E * Math.PI, engine.Invoke("foo", Math.E)); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Interrupt() { var checkpoint = new ManualResetEvent(false); ThreadPool.QueueUserWorkItem(state => { checkpoint.WaitOne(); engine.Interrupt(); }); engine.AddHostObject("checkpoint", checkpoint); TestUtil.AssertException(() => engine.Execute("call checkpoint.Set() : while true : foo = \"hello\" : wend")); Assert.AreEqual(Math.E * Math.PI, engine.Evaluate("e * pi")); } [TestMethod, TestCategory("VBScriptEngine")] [ExpectedException(typeof(ScriptEngineException))] public void VBScriptEngine_AccessContext_Default() { engine.AddHostObject("test", this); engine.Execute("test.PrivateMethod()"); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AccessContext_Private() { engine.AddHostObject("test", this); engine.AccessContext = GetType(); engine.Execute("test.PrivateMethod()"); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ContinuationCallback() { engine.ContinuationCallback = () => false; TestUtil.AssertException(() => engine.Execute("while true : foo = \"hello\" : wend")); engine.ContinuationCallback = null; Assert.AreEqual(Math.E * Math.PI, engine.Evaluate("e * pi")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_FileNameExtension() { Assert.AreEqual("vbs", engine.FileNameExtension); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Script_Variable() { var host = new HostFunctions(); engine.Script.host = host; Assert.AreSame(host, engine.Script.host); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Script_Variable_Scalar() { const int value = 123; engine.Script.value = value; Assert.AreEqual(value, engine.Script.value); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Script_Variable_Enum() { const DayOfWeek value = DayOfWeek.Wednesday; engine.Script.value = value; Assert.AreEqual(value, engine.Script.value); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Script_Array() { // ReSharper disable ImplicitlyCapturedClosure var lengths = new[] { 3, 5, 7 }; var formatParams = string.Join(", ", Enumerable.Range(0, lengths.Length).Select(position => "{" + position + "}")); var hosts = Array.CreateInstance(typeof(object), lengths); hosts.Iterate(indices => hosts.SetValue(new HostFunctions(), indices)); engine.Script.hostArray = hosts; engine.Execute(MiscHelpers.FormatInvariant("dim hosts(" + formatParams + ")", lengths.Select(length => (object)(length - 1)).ToArray())); hosts.Iterate(indices => engine.Execute(MiscHelpers.FormatInvariant("set hosts(" + formatParams + ") = hostArray.GetValue(" + formatParams + ")", indices.Select(index => (object)index).ToArray()))); hosts.Iterate(indices => Assert.AreSame(hosts.GetValue(indices), engine.Script.hosts.GetValue(indices))); var result = engine.Script.hosts; Assert.IsInstanceOfType(result, typeof(object[,,])); var hostArray = (object[,,])result; hosts.Iterate(indices => Assert.AreSame(hosts.GetValue(indices), hostArray.GetValue(indices))); // ReSharper restore ImplicitlyCapturedClosure } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Script_Variable_Struct() { var stamp = new DateTime(2007, 5, 22, 6, 15, 43); engine.Script.stamp = stamp; Assert.AreEqual(stamp, engine.Script.stamp); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Script_Function() { engine.Execute("function test(x, y) : test = x * y : end function"); Assert.AreEqual(Math.E * Math.PI, engine.Script.test(Math.E, Math.PI)); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Script_Sub() { var callbackInvoked = false; Action callback = () => callbackInvoked = true; engine.Execute("sub test(x) : call x() : end sub"); engine.Script.test(callback); Assert.IsTrue(callbackInvoked); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Script_Variable_VB() { TestUtil.InvokeVBTestSub(@" Using engine As New VBScriptEngine Dim host As New HostFunctions engine.Script.host = host Assert.AreSame(host, engine.Script.host) End Using "); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Script_Variable_Scalar_VB() { TestUtil.InvokeVBTestSub(@" Using engine As New VBScriptEngine Dim value = 123 engine.Script.value = value Assert.AreEqual(value, engine.Script.value) End Using "); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Script_Variable_Enum_VB() { TestUtil.InvokeVBTestSub(@" Using engine As New VBScriptEngine Dim value = DayOfWeek.Wednesday engine.Script.value = value Assert.AreEqual(value, engine.Script.value) End Using "); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Script_Array_VB() { TestUtil.InvokeVBTestSub(@" Using engine As New VBScriptEngine Dim lengths As Integer() = { 3, 5, 7 } Dim formatParams = String.Join("", "", Enumerable.Range(0, lengths.Length).Select(Function(position) ""{"" & position & ""}"")) Dim hosts = Array.CreateInstance(GetType(Object), lengths) TestUtil.Iterate(hosts, Sub(indices) hosts.SetValue(New HostFunctions, indices)) engine.Script.hostArray = hosts engine.Execute(TestUtil.FormatInvariant(""dim hosts("" & formatParams & "")"", lengths.Select(Function(length) CType(length - 1, Object)).ToArray())) TestUtil.Iterate(hosts, Sub(indices) engine.Execute(TestUtil.FormatInvariant(""set hosts("" & formatParams & "") = hostArray.GetValue("" & formatParams & "")"", indices.Select(Function(index) CType(index, Object)).ToArray()))) TestUtil.Iterate(hosts, Sub(indices) Assert.AreSame(hosts.GetValue(indices), engine.Script.hosts.GetValue(indices))) Dim result = engine.Script.hosts Assert.IsInstanceOfType(result, GetType(Object(,,))) Dim hostArray As Object(,,) = result TestUtil.Iterate(hosts, Sub(indices) Assert.AreSame(hosts.GetValue(indices), hostArray.GetValue(indices))) End Using "); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Script_Variable_Struct_VB() { TestUtil.InvokeVBTestSub(@" Using engine As New VBScriptEngine Dim stamp = New DateTime(2007, 5, 22, 6, 15, 43) engine.Script.stamp = stamp Assert.AreEqual(stamp, engine.Script.stamp) End Using "); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Script_Function_VB() { TestUtil.InvokeVBTestSub(@" Using engine As New VBScriptEngine engine.Execute(""function test(x, y) : test = x * y : end function"") Assert.AreEqual(Math.E * Math.PI, engine.Script.test(Math.E, Math.PI)) End Using "); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Script_Sub_VB() { TestUtil.InvokeVBTestSub(@" Using engine As New VBScriptEngine Dim callbackInvoked = False Dim callback = Sub() callbackInvoked = True engine.Execute(""sub test(x) : call x() : end sub"") engine.Script.test(callback) Assert.IsTrue(callbackInvoked) End Using "); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_CollectGarbage() { // VBScript doesn't support GC engine.CollectGarbage(true); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_General() { using (var console = new StringWriter()) { var clr = new HostTypeCollection(type => type != typeof(Console), "mscorlib", "System", "System.Core"); clr.GetNamespaceNode("System").SetPropertyNoCheck("Console", console); engine.AddHostObject("host", new ExtendedHostFunctions()); engine.AddHostObject("clr", clr); engine.Execute(generalScript); Assert.AreEqual(MiscHelpers.FormatCode(generalScriptOutput), console.ToString().Replace("\r\n", "\n")); } } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ErrorHandling_ScriptError() { TestUtil.AssertException(() => { try { engine.Execute("foo = {}; foo();"); } catch (ScriptEngineException exception) { TestUtil.AssertValidException(engine, exception); Assert.IsNull(exception.InnerException); throw; } }); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ErrorHandling_HostException() { engine.AddHostObject("host", new HostFunctions()); TestUtil.AssertException(() => { try { engine.Evaluate("host.proc(0)"); } catch (ScriptEngineException exception) { TestUtil.AssertValidException(engine, exception); Assert.IsNotNull(exception.InnerException); var hostException = exception.InnerException; Assert.IsInstanceOfType(hostException, typeof(RuntimeBinderException)); TestUtil.AssertValidException(hostException); Assert.IsNull(hostException.InnerException); Assert.AreEqual(hostException.Message, exception.Message); throw; } }); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ErrorHandling_IgnoredHostException() { engine.AddHostObject("host", new HostFunctions()); TestUtil.AssertException(() => { try { engine.Execute("on error resume next : host.newObj(null) : on error goto 0 : foo = \"foo\" : foo()"); } catch (ScriptEngineException exception) { TestUtil.AssertValidException(engine, exception); Assert.IsNull(exception.InnerException); throw; } }); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ErrorHandling_NestedScriptError() { using (var innerEngine = new JScriptEngine("inner", WindowsScriptEngineFlags.EnableDebugging)) { engine.AddHostObject("engine", innerEngine); TestUtil.AssertException(() => { try { engine.Execute("engine.Execute(\"foo = {}; foo();\")"); } catch (ScriptEngineException exception) { TestUtil.AssertValidException(engine, exception); Assert.IsNotNull(exception.InnerException); var hostException = exception.InnerException; Assert.IsInstanceOfType(hostException, typeof(TargetInvocationException)); TestUtil.AssertValidException(hostException); Assert.IsNotNull(hostException.InnerException); var nestedException = hostException.InnerException as ScriptEngineException; Assert.IsNotNull(nestedException); // ReSharper disable once AccessToDisposedClosure TestUtil.AssertValidException(innerEngine, nestedException); // ReSharper disable once PossibleNullReferenceException Assert.IsNull(nestedException.InnerException); Assert.AreEqual(hostException.Message, exception.Message); throw; } }); } } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ErrorHandling_NestedHostException() { using (var innerEngine = new JScriptEngine("inner", WindowsScriptEngineFlags.EnableDebugging)) { innerEngine.AddHostObject("host", new HostFunctions()); engine.AddHostObject("engine", innerEngine); TestUtil.AssertException(() => { try { engine.Execute("engine.Evaluate(\"host.proc(0)\")"); } catch (ScriptEngineException exception) { TestUtil.AssertValidException(engine, exception); Assert.IsNotNull(exception.InnerException); var hostException = exception.InnerException; Assert.IsInstanceOfType(hostException, typeof(TargetInvocationException)); TestUtil.AssertValidException(hostException); Assert.IsNotNull(hostException.InnerException); var nestedException = hostException.InnerException as ScriptEngineException; Assert.IsNotNull(nestedException); // ReSharper disable once AccessToDisposedClosure TestUtil.AssertValidException(innerEngine, nestedException); // ReSharper disable once PossibleNullReferenceException Assert.IsNotNull(nestedException.InnerException); var nestedHostException = nestedException.InnerException; Assert.IsInstanceOfType(nestedHostException, typeof(RuntimeBinderException)); TestUtil.AssertValidException(nestedHostException); Assert.IsNull(nestedHostException.InnerException); Assert.AreEqual(nestedHostException.Message, nestedException.Message); Assert.AreEqual(hostException.Message, exception.Message); throw; } }); } } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_CreateInstance() { engine.Script.testObject = new DynamicTestObject(); engine.Script.host = new HostFunctions(); Assert.AreEqual("foo bar baz qux", engine.Evaluate("host.newObj(testObject, \"foo\", \"bar\", \"baz\", \"qux\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_CreateInstance_Fail() { engine.Script.testObject = new DynamicTestObject(); engine.Script.host = new HostFunctions(); TestUtil.AssertException(() => engine.Evaluate("host.newObj(testObject)")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_Invoke() { engine.Script.testObject = new DynamicTestObject(); Assert.AreEqual("foo,bar,baz,qux", engine.Evaluate("testObject(\"foo\", \"bar\", \"baz\", \"qux\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_Invoke_Fail() { engine.Script.testObject = new DynamicTestObject(); TestUtil.AssertException(() => engine.Evaluate("testObject()")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_InvokeMethod() { engine.Script.testObject = new DynamicTestObject(); Assert.AreEqual("foo-bar-baz-qux", engine.Evaluate("testObject.DynamicMethod(\"foo\", \"bar\", \"baz\", \"qux\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_InvokeMethod_Fail() { engine.Script.testObject = new DynamicTestObject(); TestUtil.AssertException(() => engine.Evaluate("testObject.DynamicMethod()")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_InvokeMethod_FieldOverride() { engine.Script.testObject = new DynamicTestObject(); Assert.AreEqual("foo.bar.baz.qux", engine.Evaluate("testObject.SomeField(\"foo\", \"bar\", \"baz\", \"qux\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_InvokeMethod_FieldOverride_Fail() { engine.Script.testObject = new DynamicTestObject(); TestUtil.AssertException(() => engine.Evaluate("testObject.SomeField()")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_InvokeMethod_PropertyOverride() { engine.Script.testObject = new DynamicTestObject(); Assert.AreEqual("foo:bar:baz:qux", engine.Evaluate("testObject.SomeProperty(\"foo\", \"bar\", \"baz\", \"qux\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_InvokeMethod_PropertyOverride_Fail() { engine.Script.testObject = new DynamicTestObject(); TestUtil.AssertException(() => engine.Evaluate("testObject.SomeProperty()")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_InvokeMethod_DynamicOverload() { engine.Script.testObject = new DynamicTestObject(); Assert.AreEqual("foo;bar;baz;qux", engine.Evaluate("testObject.SomeMethod(\"foo\", \"bar\", \"baz\", \"qux\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_InvokeMethod_NonDynamicOverload() { engine.Script.testObject = new DynamicTestObject(); Assert.AreEqual(Math.PI, engine.Evaluate("testObject.SomeMethod()")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_InvokeMethod_NonDynamic() { engine.Script.testObject = new DynamicTestObject(); Assert.AreEqual("Super Bass-O-Matic '76", engine.Evaluate("testObject.ToString()")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_StaticType_Field() { engine.Script.testObject = new DynamicTestObject(); engine.Script.host = new HostFunctions(); Assert.IsInstanceOfType(engine.Evaluate("testObject.SomeField"), typeof(HostMethod)); Assert.AreEqual(12345, engine.Evaluate("host.toStaticType(testObject).SomeField")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_StaticType_Property() { engine.Script.testObject = new DynamicTestObject(); engine.Script.host = new HostFunctions(); Assert.IsInstanceOfType(engine.Evaluate("testObject.SomeProperty"), typeof(HostMethod)); Assert.AreEqual("Bogus", engine.Evaluate("host.toStaticType(testObject).SomeProperty")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_StaticType_Method() { engine.Script.testObject = new DynamicTestObject(); engine.Script.host = new HostFunctions(); Assert.AreEqual("bar+baz+qux", engine.Evaluate("host.toStaticType(testObject).SomeMethod(\"foo\", \"bar\", \"baz\", \"qux\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_StaticType_Invoke() { engine.Script.testObject = new DynamicTestObject(); engine.Script.host = new HostFunctions(); TestUtil.AssertException(() => engine.Evaluate("host.toStaticType(testObject)(\"foo\", \"bar\", \"baz\", \"qux\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_Property() { engine.Script.testObject = new DynamicTestObject(); engine.Script.host = new HostFunctions(); Assert.IsInstanceOfType(engine.Evaluate("host.getProperty(testObject, \"foo\")"), typeof(Undefined)); Assert.AreEqual(123, engine.Evaluate("host.setProperty(testObject, \"foo\", clng(123))")); Assert.AreEqual(123, engine.Evaluate("testObject.foo")); Assert.IsTrue((bool)engine.Evaluate("host.removeProperty(testObject, \"foo\")")); Assert.IsInstanceOfType(engine.Evaluate("host.getProperty(testObject, \"foo\")"), typeof(Undefined)); Assert.IsFalse((bool)engine.Evaluate("host.removeProperty(testObject, \"foo\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_Property_Fail() { engine.Script.testObject = new DynamicTestObject(); engine.Script.host = new HostFunctions(); Assert.IsInstanceOfType(engine.Evaluate("host.getProperty(testObject, \"Zfoo\")"), typeof(Undefined)); TestUtil.AssertException(() => engine.Evaluate("host.setProperty(testObject, \"Zfoo\", clng(123))")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_Property_Invoke() { engine.Script.testObject = new DynamicTestObject(); engine.Script.host = new HostFunctions(); engine.Execute("function secret(x) : secret = len(x) : end function"); Assert.IsInstanceOfType(engine.Evaluate("host.getProperty(testObject, \"foo\")"), typeof(Undefined)); Assert.IsInstanceOfType(engine.Evaluate("host.setProperty(testObject, \"foo\", GetRef(\"secret\"))"), typeof(DynamicObject)); Assert.AreEqual("floccinaucinihilipilification".Length, engine.Evaluate("testObject.foo(\"floccinaucinihilipilification\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_Property_Invoke_Nested() { engine.Script.testObject = new DynamicTestObject(); engine.Script.host = new HostFunctions(); Assert.IsInstanceOfType(engine.Evaluate("host.getProperty(testObject, \"foo\")"), typeof(Undefined)); Assert.IsInstanceOfType(engine.Evaluate("host.setProperty(testObject, \"foo\", testObject)"), typeof(DynamicObject)); Assert.AreEqual("foo,bar,baz,qux", engine.Evaluate("testObject.foo(\"foo\", \"bar\", \"baz\", \"qux\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_Element() { engine.Script.testObject = new DynamicTestObject(); engine.Script.host = new HostFunctions(); Assert.IsInstanceOfType(engine.Evaluate("host.getElement(testObject, clng(1), clng(2), clng(3), \"foo\")"), typeof(Undefined)); Assert.AreEqual("bar", engine.Evaluate("host.setElement(testObject, \"bar\", clng(1), clng(2), clng(3), \"foo\")")); Assert.AreEqual("bar", engine.Evaluate("host.getElement(testObject, clng(1), clng(2), clng(3), \"foo\")")); Assert.IsTrue((bool)engine.Evaluate("host.removeElement(testObject, clng(1), clng(2), clng(3), \"foo\")")); Assert.IsInstanceOfType(engine.Evaluate("host.getElement(testObject, clng(1), clng(2), clng(3), \"foo\")"), typeof(Undefined)); Assert.IsFalse((bool)engine.Evaluate("host.removeElement(testObject, clng(1), clng(2), clng(3), \"foo\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_Element_Fail() { engine.Script.testObject = new DynamicTestObject(); engine.Script.host = new HostFunctions(); Assert.IsInstanceOfType(engine.Evaluate("host.getElement(testObject, clng(1), clng(2), clng(3), pi)"), typeof(Undefined)); TestUtil.AssertException(() => engine.Evaluate("host.setElement(testObject, \"bar\", clng(1), clng(2), clng(3), pi)")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_Element_Index() { engine.Script.testObject = new DynamicTestObject { DisableInvocation = true, DisableDynamicMembers = true }; engine.Script.host = new HostFunctions(); Assert.IsInstanceOfType(engine.Evaluate("testObject(clng(123))"), typeof(Undefined)); Assert.IsInstanceOfType(engine.Evaluate("host.getElement(testObject, clng(123))"), typeof(Undefined)); engine.Execute("testObject(clng(123)) = 456"); Assert.AreEqual((short)456, engine.Evaluate("testObject(clng(123))")); Assert.AreEqual((short)456, engine.Evaluate("host.getElement(testObject, clng(123))")); engine.Execute("testObject(clng(123)) = nothing"); Assert.IsInstanceOfType(engine.Evaluate("testObject(clng(123))"), typeof(Undefined)); Assert.IsInstanceOfType(engine.Evaluate("host.getElement(testObject, clng(123))"), typeof(Undefined)); Assert.IsInstanceOfType(engine.Evaluate("testObject(\"foo\")"), typeof(Undefined)); Assert.IsInstanceOfType(engine.Evaluate("host.getElement(testObject, \"foo\")"), typeof(Undefined)); engine.Execute("testObject(\"foo\") = \"bar\""); Assert.AreEqual("bar", engine.Evaluate("testObject(\"foo\")")); Assert.AreEqual("bar", engine.Evaluate("host.getElement(testObject, \"foo\")")); engine.Execute("testObject(\"foo\") = nothing"); Assert.IsInstanceOfType(engine.Evaluate("testObject(\"foo\")"), typeof(Undefined)); Assert.IsInstanceOfType(engine.Evaluate("host.getElement(testObject, \"foo\")"), typeof(Undefined)); Assert.IsInstanceOfType(engine.Evaluate("testObject(\"foo\", \"bar\", \"baz\")"), typeof(Undefined)); Assert.IsInstanceOfType(engine.Evaluate("host.getElement(testObject, \"foo\", \"bar\", \"baz\")"), typeof(Undefined)); engine.Execute("testObject(\"foo\", \"bar\", \"baz\") = \"qux\""); Assert.AreEqual("qux", engine.Evaluate("testObject(\"foo\", \"bar\", \"baz\")")); Assert.AreEqual("qux", engine.Evaluate("host.getElement(testObject, \"foo\", \"bar\", \"baz\")")); engine.Execute("testObject(\"foo\", \"bar\", \"baz\") = nothing"); Assert.IsInstanceOfType(engine.Evaluate("testObject(\"foo\", \"bar\", \"baz\")"), typeof(Undefined)); Assert.IsInstanceOfType(engine.Evaluate("host.getElement(testObject, \"foo\", \"bar\", \"baz\")"), typeof(Undefined)); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DynamicHostObject_Convert() { engine.Script.testObject = new DynamicTestObject(); engine.Script.host = new HostFunctions(); engine.AddHostType("int_t", typeof(int)); engine.AddHostType("string_t", typeof(string)); Assert.AreEqual(98765, engine.Evaluate("host.cast(int_t, testObject)")); Assert.AreEqual("Booyakasha!", engine.Evaluate("host.cast(string_t, testObject)")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_HostIndexers() { engine.Script.testObject = new TestObject(); TestUtil.AssertException(() => engine.Evaluate("testObject.Item(clng(123))")); TestUtil.AssertException(() => engine.Evaluate("testObject.Item.get(clng(123))")); engine.Execute("testObject.Item(clng(123)) = pi"); Assert.AreEqual(Math.PI, engine.Evaluate("testObject.Item(clng(123))")); Assert.AreEqual(Math.E, engine.Evaluate("testObject.Item.set(clng(123), e)")); Assert.AreEqual(Math.E, engine.Evaluate("testObject.Item.get(clng(123))")); TestUtil.AssertException(() => engine.Evaluate("testObject.Item(\"456\")")); TestUtil.AssertException(() => engine.Evaluate("testObject.Item.get(\"456\")")); engine.Execute("testObject.Item(\"456\") = sqr(2)"); Assert.AreEqual(Math.Sqrt(2), engine.Evaluate("testObject.Item(\"456\")")); Assert.AreEqual(Math.Sqrt(3), engine.Evaluate("testObject.Item.set(\"456\", sqr(3))")); Assert.AreEqual(Math.Sqrt(3), engine.Evaluate("testObject.Item.get(\"456\")")); TestUtil.AssertException(() => engine.Evaluate("testObject.Item(clng(123), \"456\", 789.987, -0.12345)")); TestUtil.AssertException(() => engine.Evaluate("testObject.Item.get(clng(123), \"456\", 789.987, -0.12345)")); engine.Execute("testObject.Item(clng(123), \"456\", 789.987, -0.12345) = sqr(5)"); Assert.AreEqual(Math.Sqrt(5), engine.Evaluate("testObject.Item(clng(123), \"456\", 789.987, -0.12345)")); Assert.AreEqual(Math.Sqrt(7), engine.Evaluate("testObject.Item.set(clng(123), \"456\", 789.987, -0.12345, sqr(7))")); Assert.AreEqual(Math.Sqrt(7), engine.Evaluate("testObject.Item.get(clng(123), \"456\", 789.987, -0.12345)")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_FormatCode() { try { engine.Execute("a", "\n\n\n x = 3.a"); } catch (ScriptEngineException exception) { Assert.IsTrue(exception.ErrorDetails.Contains("(a:3:11)")); } engine.FormatCode = true; try { engine.Execute("b", "\n\n\n x = 3.a"); } catch (ScriptEngineException exception) { Assert.IsTrue(exception.ErrorDetails.Contains("(b:0:6)")); } } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_GetStackTrace() { engine.AddHostObject("qux", new Func(() => engine.GetStackTrace())); engine.Execute(@" function baz():baz = qux():end function function bar():bar = baz():end function function foo():foo = bar():end function "); Assert.AreEqual(" at baz (Script Document [3]:1:31) -> baz = qux()\n at bar (Script Document [3]:2:31) -> bar = baz()\n at foo (Script Document [3]:3:31) -> foo = bar()\n at VBScript global code (Script Document [4] [temp]:0:0) -> foo()", engine.Evaluate("foo()")); Assert.AreEqual(" at baz (Script Document [3]:1:31) -> baz = qux()\n at bar (Script Document [3]:2:31) -> bar = baz()\n at foo (Script Document [3]:3:31) -> foo = bar()", engine.Script.foo()); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_StandardsMode() { engine.Dispose(); engine = new VBScriptEngine(WindowsScriptEngineFlags.EnableDebugging | WindowsScriptEngineFlags.EnableStandardsMode); // Standards Mode shouldn't affect VBScriptEngine at all engine.Execute("function pi : pi = 4 * atn(1) : end function"); engine.Execute("function e : e = exp(1) : end function"); VBScriptEngine_Execute(); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_MarshalNullAsDispatch() { engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("IsNull(func())")); engine.Dispose(); engine = new VBScriptEngine(WindowsScriptEngineFlags.EnableDebugging | WindowsScriptEngineFlags.MarshalNullAsDispatch); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("IsNull(func())")); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("IsNull(func())")); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("IsNull(func())")); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("IsNull(func())")); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("IsNull(func())")); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("IsNull(func())")); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("IsNull(func())")); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("IsNull(func())")); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("IsNull(func())")); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("IsNull(func())")); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("IsNull(func())")); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("IsNull(func())")); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("IsNull(func())")); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("IsNull(func())")); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("IsNull(func())")); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("func() is nothing")); engine.Script.func = new Func(() => null); Assert.IsTrue((bool)engine.Evaluate("func() is nothing")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_MarshalDecimalAsCurrency() { // ReSharper disable AccessToDisposedClosure engine.Script.func = new Func(() => 123.456M); TestUtil.AssertException(() => engine.Evaluate("TypeName(func())")); engine.Dispose(); engine = new VBScriptEngine(WindowsScriptEngineFlags.EnableDebugging | WindowsScriptEngineFlags.MarshalDecimalAsCurrency); engine.Script.func = new Func(() => 123.456M); Assert.AreEqual("Currency", engine.Evaluate("TypeName(func())")); Assert.AreEqual(123.456M + 5, engine.Evaluate("func() + 5")); // ReSharper restore AccessToDisposedClosure } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ForEach() { var collection = new object[] { new HostFunctions(), new Random() }; engine.Script.collection = collection; engine.Execute(forEachTestScript); var result = (object[])engine.Evaluate("enumerate(collection)"); Assert.IsNotNull(result); Assert.IsTrue(collection.SequenceEqual(result)); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ForEach_Scalar() { var collection = new[] { 123.456, 789.012 }; engine.Script.collection = collection; engine.Execute(forEachTestScript); var result = (object[])engine.Evaluate("enumerate(collection)"); Assert.IsNotNull(result); Assert.IsTrue(collection.SequenceEqual(result.Cast())); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ForEach_Enum() { var collection = new[] { DayOfWeek.Wednesday, DayOfWeek.Saturday }; engine.Script.collection = collection; engine.Execute(forEachTestScript); var result = (object[])engine.Evaluate("enumerate(collection)"); Assert.IsNotNull(result); Assert.IsTrue(collection.SequenceEqual(result.Cast())); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ForEach_Struct() { var collection = new[] { DateTime.Now, new DateTime(1941, 8, 26, 11, 35, 20) }; engine.Script.collection = collection; engine.Execute(forEachTestScript); var result = (object[])engine.Evaluate("enumerate(collection)"); Assert.IsNotNull(result); Assert.IsTrue(collection.SequenceEqual(result.Cast())); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ReflectionBindFallback() { engine.UseReflectionBindFallback = true; engine.Script.test = new ReflectionBindFallbackTest(); engine.AddHostType("Assert", typeof(Assert)); engine.Execute(@" a = ""foo"" b = 123.456 test.Method a, b call Assert.AreEqual(""foobar"", a) call Assert.AreEqual(123.456 * pi, b) "); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ReflectionBindFallback_Generic() { engine.UseReflectionBindFallback = true; engine.Script.test = new ReflectionBindFallbackTest(); engine.AddHostType("String", typeof(string)); engine.AddHostType("Assert", typeof(Assert)); engine.Execute(@" a = ""foo"" b = ""bar"" test.GenericMethod String, a, b call Assert.AreEqual(""bar"", a) call Assert.AreEqual(""foo"", b) "); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ReflectionBindFallback_Static() { engine.UseReflectionBindFallback = true; engine.AddHostType("Test", typeof(ReflectionBindFallbackTest)); engine.AddHostType("Assert", typeof(Assert)); engine.Execute(@" a = ""foo"" b = 123.456 Test.StaticMethod a, b call Assert.AreEqual(""foobaz"", a) call Assert.AreEqual(123.456 * e, b) "); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ReflectionBindFallback_Extension() { engine.UseReflectionBindFallback = true; engine.Script.test = new ReflectionBindFallbackTest(); engine.AddHostType("ReflectionBindFallbackTestExtensions", typeof(ReflectionBindFallbackTestExtensions)); engine.AddHostType("Assert", typeof(Assert)); engine.Execute(@" a = ""foo"" b = 123.456 test.ExtensionMethod a, b call Assert.AreEqual(""foobar"", a) call Assert.AreEqual(123.456 * pi, b) "); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ReflectionBindFallback_GenericExtension() { engine.UseReflectionBindFallback = true; engine.Script.test = new ReflectionBindFallbackTest(); engine.AddHostType("ReflectionBindFallbackTestExtensions", typeof(ReflectionBindFallbackTestExtensions)); engine.AddHostType("String", typeof(string)); engine.AddHostType("Assert", typeof(Assert)); engine.Execute(@" a = ""foo"" b = ""bar"" test.GenericExtensionMethod String, a, b call Assert.AreEqual(""bar"", a) call Assert.AreEqual(""foo"", b) "); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ReflectionBindFallback_HostMarshal() { engine.UseReflectionBindFallback = true; engine.Script.test = new ReflectionBindFallbackTest(); engine.AddHostType("Assert", typeof(Assert)); engine.Execute(@" dim self test.GetSelf self call Assert.AreEqual(""qux"", self.Property) "); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ReflectionBindFallback_MarshalArrayByValue() { engine.UseReflectionBindFallback = true; engine.Script.test = new ReflectionBindFallbackTest(); engine.Script.ArrayT = typeof(Array); engine.AddHostType("Assert", typeof(Assert)); engine.Execute(@" dim foo test.GetArray foo call Assert.IsFalse(IsArray(foo)) call Assert.AreEqual(""abc"", foo.GetValue(0)) call Assert.AreEqual(123.456, foo.GetValue(1)) "); engine.Dispose(); engine = new VBScriptEngine(WindowsScriptEngineFlags.EnableDebugging | WindowsScriptEngineFlags.MarshalArraysByValue); engine.UseReflectionBindFallback = true; engine.Script.test = new ReflectionBindFallbackTest(); engine.AddHostType("Assert", typeof(Assert)); engine.Execute(@" dim foo test.GetArray foo call Assert.IsTrue(IsArray(foo)) call Assert.AreEqual(""abc"", foo(0)) call Assert.AreEqual(123.456, foo(1)) "); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_MarshalArraysByValue() { var foo = new[] { DayOfWeek.Saturday, DayOfWeek.Friday, DayOfWeek.Thursday }; engine.Script.foo = foo; Assert.IsFalse((bool)engine.Evaluate("IsArray(foo)")); engine.Dispose(); engine = new VBScriptEngine(WindowsScriptEngineFlags.EnableDebugging | WindowsScriptEngineFlags.MarshalArraysByValue); engine.Script.foo = foo; Assert.IsTrue((bool)engine.Evaluate("IsArray(foo)")); Assert.AreEqual(foo.GetUpperBound(0), engine.Evaluate("UBound(foo, 1)")); for (var index = 0; index < foo.Length; index++) { Assert.AreEqual(foo[index], engine.Evaluate("foo(" + index + ")")); } } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_MarshalArraysByValue_CircularReference() { engine.Dispose(); engine = new VBScriptEngine(WindowsScriptEngineFlags.EnableDebugging | WindowsScriptEngineFlags.MarshalArraysByValue); var host = new HostFunctions(); var foo = new object[] { DayOfWeek.Saturday, DayOfWeek.Friday, new object[] { "abc", 123.456, new object[] { host, null } } }; ((object[])((object[])foo[2])[2])[1] = foo; engine.Script.foo = foo; Assert.IsTrue((bool)engine.Evaluate("IsArray(foo)")); Assert.AreEqual(foo[0], engine.Evaluate("foo(0)")); Assert.AreEqual(foo[1], engine.Evaluate("foo(1)")); Assert.IsTrue((bool)engine.Evaluate("IsArray(foo(2))")); Assert.AreEqual(((object[])foo[2])[0], engine.Evaluate("foo(2)(0)")); Assert.AreEqual(((object[])foo[2])[1], engine.Evaluate("foo(2)(1)")); Assert.IsTrue((bool)engine.Evaluate("IsArray(foo(2)(2))")); Assert.AreSame(((object[])((object[])foo[2])[2])[0], engine.Evaluate("foo(2)(2)(0)")); // circular array reference should have been broken Assert.AreSame(((object[])((object[])foo[2])[2])[1], foo); Assert.IsNull(engine.Evaluate("foo(2)(2)(1)")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_MarshalArraysByValue_Multidimensional() { engine.Dispose(); engine = new VBScriptEngine(WindowsScriptEngineFlags.EnableDebugging | WindowsScriptEngineFlags.MarshalArraysByValue); var foo = new string[4, 3, 2]; foo.Iterate(indices => foo.SetValue((string.Join(",", indices) + " " + (indices[0] * 256 + indices[1] * 16 + indices[2])), indices)); engine.Script.foo = foo; Assert.IsTrue((bool)engine.Evaluate("IsArray(foo)")); for (var dimension = 0; dimension < foo.Rank; dimension++) { Assert.AreEqual(foo.GetUpperBound(dimension), engine.Evaluate("UBound(foo, " + (dimension + 1) + ")")); } foo.Iterate(indices => Assert.AreEqual(foo.GetValue(indices), engine.Evaluate("foo(" + string.Join(",", indices) + ")"))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_MarshalArraysByValue_invokeMethod() { var args = new[] { Math.PI, Math.E }; engine.Script.args = args; engine.Execute("function foo(a, b) : foo = a * b : end function"); Assert.AreEqual(Math.PI * Math.E, engine.Evaluate("EngineInternal.invokeMethod(null, GetRef(\"foo\"), args)")); engine.Dispose(); engine = new VBScriptEngine(WindowsScriptEngineFlags.EnableDebugging | WindowsScriptEngineFlags.MarshalArraysByValue); engine.Script.args = args; engine.Execute("function foo(a, b) : foo = a * b : end function"); Assert.AreEqual(Math.PI * Math.E, engine.Evaluate("EngineInternal.invokeMethod(null, GetRef(\"foo\"), args)")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_COMObject_FileSystemObject() { var list = new ArrayList(); engine.Script.host = new ExtendedHostFunctions(); engine.Script.list = list; engine.Execute(@" fso = host.newComObj(""Scripting.FileSystemObject"") drives = fso.Drives en = drives.GetEnumerator() while en.MoveNext() list.Add(en.Current.Path) wend "); var drives = DriveInfo.GetDrives(); Assert.AreEqual(drives.Length, list.Count); Assert.IsTrue(drives.Select(drive => drive.Name.Substring(0, 2)).SequenceEqual(list.ToArray())); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_COMObject_FileSystemObject_ForEach() { var list = new ArrayList(); engine.Script.host = new ExtendedHostFunctions(); engine.Script.list = list; engine.Execute(@" fso = host.newComObj(""Scripting.FileSystemObject"") drives = fso.Drives for each drive in drives list.Add(drive.Path) next "); var drives = DriveInfo.GetDrives(); Assert.AreEqual(drives.Length, list.Count); Assert.IsTrue(drives.Select(drive => drive.Name.Substring(0, 2)).SequenceEqual(list.ToArray())); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_COMObject_Dictionary() { engine.Script.host = new ExtendedHostFunctions(); engine.Execute(@" dict = host.newComObj(""Scripting.Dictionary"") call dict.Add(""foo"", pi) call dict.Add(""bar"", e) call dict.Add(""baz"", ""abc"") "); Assert.AreEqual(Math.PI, engine.Evaluate("dict.Item(\"foo\")")); Assert.AreEqual(Math.PI, engine.Evaluate("dict.Item.get(\"foo\")")); Assert.AreEqual(Math.E, engine.Evaluate("dict.Item(\"bar\")")); Assert.AreEqual(Math.E, engine.Evaluate("dict.Item.get(\"bar\")")); Assert.AreEqual("abc", engine.Evaluate("dict.Item(\"baz\")")); Assert.AreEqual("abc", engine.Evaluate("dict.Item.get(\"baz\")")); engine.Execute(@" call dict.Item.set(""foo"", ""pushkin"") call dict.Item.set(""bar"", ""gogol"") call dict.Item.set(""baz"", pi * e) "); Assert.AreEqual("pushkin", engine.Evaluate("dict.Item(\"foo\")")); Assert.AreEqual("pushkin", engine.Evaluate("dict.Item.get(\"foo\")")); Assert.AreEqual("gogol", engine.Evaluate("dict.Item(\"bar\")")); Assert.AreEqual("gogol", engine.Evaluate("dict.Item.get(\"bar\")")); Assert.AreEqual(Math.PI * Math.E, engine.Evaluate("dict.Item(\"baz\")")); Assert.AreEqual(Math.PI * Math.E, engine.Evaluate("dict.Item.get(\"baz\")")); engine.Execute(@" dict.Item(""foo"") = 987.654 dict.Item(""bar"") = 321 dict.Item(""baz"") = ""halloween"" "); Assert.AreEqual(987.654, engine.Evaluate("dict.Item(\"foo\")")); Assert.AreEqual(987.654, engine.Evaluate("dict.Item.get(\"foo\")")); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item(\"bar\")"))); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item.get(\"bar\")"))); Assert.AreEqual("halloween", engine.Evaluate("dict.Item(\"baz\")")); Assert.AreEqual("halloween", engine.Evaluate("dict.Item.get(\"baz\")")); engine.Execute(@" call dict.Key.set(""foo"", ""qux"") call dict.Key.set(""bar"", pi) call dict.Key.set(""baz"", e) "); Assert.AreEqual(987.654, engine.Evaluate("dict.Item(\"qux\")")); Assert.AreEqual(987.654, engine.Evaluate("dict.Item.get(\"qux\")")); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item(pi)"))); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item.get(pi)"))); Assert.AreEqual("halloween", engine.Evaluate("dict.Item(e)")); Assert.AreEqual("halloween", engine.Evaluate("dict.Item.get(e)")); engine.Execute(@" dict.Key(""qux"") = ""foo"" dict.Key(pi) = ""bar"" dict.Key(e) = ""baz"" "); Assert.AreEqual(987.654, engine.Evaluate("dict.Item(\"foo\")")); Assert.AreEqual(987.654, engine.Evaluate("dict.Item.get(\"foo\")")); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item(\"bar\")"))); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item.get(\"bar\")"))); Assert.AreEqual("halloween", engine.Evaluate("dict.Item(\"baz\")")); Assert.AreEqual("halloween", engine.Evaluate("dict.Item.get(\"baz\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_COMType_FileSystemObject() { var list = new ArrayList(); engine.Script.host = new ExtendedHostFunctions(); engine.Script.list = list; engine.Execute(@" FSOT = host.comType(""Scripting.FileSystemObject"") fso = host.newObj(FSOT) drives = fso.Drives en = drives.GetEnumerator() while en.MoveNext() list.Add(en.Current.Path) wend "); var drives = DriveInfo.GetDrives(); Assert.AreEqual(drives.Length, list.Count); Assert.IsTrue(drives.Select(drive => drive.Name.Substring(0, 2)).SequenceEqual(list.ToArray())); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_COMType_FileSystemObject_ForEach() { var list = new ArrayList(); engine.Script.host = new ExtendedHostFunctions(); engine.Script.list = list; engine.Execute(@" FSOT = host.comType(""Scripting.FileSystemObject"") fso = host.newObj(FSOT) drives = fso.Drives for each drive in drives list.Add(drive.Path) next "); var drives = DriveInfo.GetDrives(); Assert.AreEqual(drives.Length, list.Count); Assert.IsTrue(drives.Select(drive => drive.Name.Substring(0, 2)).SequenceEqual(list.ToArray())); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_COMType_Dictionary() { engine.Script.host = new ExtendedHostFunctions(); engine.Execute(@" DictT = host.comType(""Scripting.Dictionary"") dict = host.newObj(DictT) call dict.Add(""foo"", pi) call dict.Add(""bar"", e) call dict.Add(""baz"", ""abc"") "); Assert.AreEqual(Math.PI, engine.Evaluate("dict.Item(\"foo\")")); Assert.AreEqual(Math.PI, engine.Evaluate("dict.Item.get(\"foo\")")); Assert.AreEqual(Math.E, engine.Evaluate("dict.Item(\"bar\")")); Assert.AreEqual(Math.E, engine.Evaluate("dict.Item.get(\"bar\")")); Assert.AreEqual("abc", engine.Evaluate("dict.Item(\"baz\")")); Assert.AreEqual("abc", engine.Evaluate("dict.Item.get(\"baz\")")); engine.Execute(@" call dict.Item.set(""foo"", ""pushkin"") call dict.Item.set(""bar"", ""gogol"") call dict.Item.set(""baz"", pi * e) "); Assert.AreEqual("pushkin", engine.Evaluate("dict.Item(\"foo\")")); Assert.AreEqual("pushkin", engine.Evaluate("dict.Item.get(\"foo\")")); Assert.AreEqual("gogol", engine.Evaluate("dict.Item(\"bar\")")); Assert.AreEqual("gogol", engine.Evaluate("dict.Item.get(\"bar\")")); Assert.AreEqual(Math.PI * Math.E, engine.Evaluate("dict.Item(\"baz\")")); Assert.AreEqual(Math.PI * Math.E, engine.Evaluate("dict.Item.get(\"baz\")")); engine.Execute(@" dict.Item(""foo"") = 987.654 dict.Item(""bar"") = 321 dict.Item(""baz"") = ""halloween"" "); Assert.AreEqual(987.654, engine.Evaluate("dict.Item(\"foo\")")); Assert.AreEqual(987.654, engine.Evaluate("dict.Item.get(\"foo\")")); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item(\"bar\")"))); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item.get(\"bar\")"))); Assert.AreEqual("halloween", engine.Evaluate("dict.Item(\"baz\")")); Assert.AreEqual("halloween", engine.Evaluate("dict.Item.get(\"baz\")")); engine.Execute(@" call dict.Key.set(""foo"", ""qux"") call dict.Key.set(""bar"", pi) call dict.Key.set(""baz"", e) "); Assert.AreEqual(987.654, engine.Evaluate("dict.Item(\"qux\")")); Assert.AreEqual(987.654, engine.Evaluate("dict.Item.get(\"qux\")")); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item(pi)"))); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item.get(pi)"))); Assert.AreEqual("halloween", engine.Evaluate("dict.Item(e)")); Assert.AreEqual("halloween", engine.Evaluate("dict.Item.get(e)")); engine.Execute(@" dict.Key(""qux"") = ""foo"" dict.Key(pi) = ""bar"" dict.Key(e) = ""baz"" "); Assert.AreEqual(987.654, engine.Evaluate("dict.Item(\"foo\")")); Assert.AreEqual(987.654, engine.Evaluate("dict.Item.get(\"foo\")")); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item(\"bar\")"))); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item.get(\"bar\")"))); Assert.AreEqual("halloween", engine.Evaluate("dict.Item(\"baz\")")); Assert.AreEqual("halloween", engine.Evaluate("dict.Item.get(\"baz\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddCOMObject_FileSystemObject() { var list = new ArrayList(); engine.Script.list = list; engine.AddCOMObject("fso", "Scripting.FileSystemObject"); engine.Execute(@" drives = fso.Drives en = drives.GetEnumerator() while en.MoveNext() list.Add(en.Current.Path) wend "); var drives = DriveInfo.GetDrives(); Assert.AreEqual(drives.Length, list.Count); Assert.IsTrue(drives.Select(drive => drive.Name.Substring(0, 2)).SequenceEqual(list.ToArray())); Assert.AreEqual("Object", engine.Evaluate("TypeName(fso)")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddCOMObject_FileSystemObject_DirectAccess() { var list = new ArrayList(); engine.Script.list = list; engine.AddCOMObject("fso", HostItemFlags.DirectAccess, "Scripting.FileSystemObject"); engine.Execute(@" set drives = fso.Drives for each drive in drives list.Add(drive.Path) next "); var drives = DriveInfo.GetDrives(); Assert.AreEqual(drives.Length, list.Count); Assert.IsTrue(drives.Select(drive => drive.Name.Substring(0, 2)).SequenceEqual(list.ToArray())); Assert.AreEqual("FileSystemObject", engine.Evaluate("TypeName(fso)")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddCOMObject_Dictionary() { engine.AddCOMObject("dict", new Guid("{ee09b103-97e0-11cf-978f-00a02463e06f}")); engine.Execute(@" call dict.Add(""foo"", pi) call dict.Add(""bar"", e) call dict.Add(""baz"", ""abc"") "); Assert.AreEqual(Math.PI, engine.Evaluate("dict.Item(\"foo\")")); Assert.AreEqual(Math.PI, engine.Evaluate("dict.Item.get(\"foo\")")); Assert.AreEqual(Math.E, engine.Evaluate("dict.Item(\"bar\")")); Assert.AreEqual(Math.E, engine.Evaluate("dict.Item.get(\"bar\")")); Assert.AreEqual("abc", engine.Evaluate("dict.Item(\"baz\")")); Assert.AreEqual("abc", engine.Evaluate("dict.Item.get(\"baz\")")); engine.Execute(@" call dict.Item.set(""foo"", ""pushkin"") call dict.Item.set(""bar"", ""gogol"") call dict.Item.set(""baz"", pi * e) "); Assert.AreEqual("pushkin", engine.Evaluate("dict.Item(\"foo\")")); Assert.AreEqual("pushkin", engine.Evaluate("dict.Item.get(\"foo\")")); Assert.AreEqual("gogol", engine.Evaluate("dict.Item(\"bar\")")); Assert.AreEqual("gogol", engine.Evaluate("dict.Item.get(\"bar\")")); Assert.AreEqual(Math.PI * Math.E, engine.Evaluate("dict.Item(\"baz\")")); Assert.AreEqual(Math.PI * Math.E, engine.Evaluate("dict.Item.get(\"baz\")")); engine.Execute(@" dict.Item(""foo"") = 987.654 dict.Item(""bar"") = 321 dict.Item(""baz"") = ""halloween"" "); Assert.AreEqual(987.654, engine.Evaluate("dict.Item(\"foo\")")); Assert.AreEqual(987.654, engine.Evaluate("dict.Item.get(\"foo\")")); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item(\"bar\")"))); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item.get(\"bar\")"))); Assert.AreEqual("halloween", engine.Evaluate("dict.Item(\"baz\")")); Assert.AreEqual("halloween", engine.Evaluate("dict.Item.get(\"baz\")")); engine.Execute(@" call dict.Key.set(""foo"", ""qux"") call dict.Key.set(""bar"", pi) call dict.Key.set(""baz"", e) "); Assert.AreEqual(987.654, engine.Evaluate("dict.Item(\"qux\")")); Assert.AreEqual(987.654, engine.Evaluate("dict.Item.get(\"qux\")")); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item(pi)"))); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item.get(pi)"))); Assert.AreEqual("halloween", engine.Evaluate("dict.Item(e)")); Assert.AreEqual("halloween", engine.Evaluate("dict.Item.get(e)")); engine.Execute(@" dict.Key(""qux"") = ""foo"" dict.Key(pi) = ""bar"" dict.Key(e) = ""baz"" "); Assert.AreEqual(987.654, engine.Evaluate("dict.Item(\"foo\")")); Assert.AreEqual(987.654, engine.Evaluate("dict.Item.get(\"foo\")")); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item(\"bar\")"))); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item.get(\"bar\")"))); Assert.AreEqual("halloween", engine.Evaluate("dict.Item(\"baz\")")); Assert.AreEqual("halloween", engine.Evaluate("dict.Item.get(\"baz\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddCOMType_FileSystemObject() { var list = new ArrayList(); engine.Script.host = new HostFunctions(); engine.Script.list = list; engine.AddCOMType("FSOT", "Scripting.FileSystemObject"); engine.Execute(@" fso = host.newObj(FSOT) drives = fso.Drives en = drives.GetEnumerator() while en.MoveNext() list.Add(en.Current.Path) wend "); var drives = DriveInfo.GetDrives(); Assert.AreEqual(drives.Length, list.Count); Assert.IsTrue(drives.Select(drive => drive.Name.Substring(0, 2)).SequenceEqual(list.ToArray())); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddCOMType_Dictionary() { engine.Script.host = new HostFunctions(); engine.AddCOMType("DictT", new Guid("{ee09b103-97e0-11cf-978f-00a02463e06f}")); engine.Execute(@" dict = host.newObj(DictT) call dict.Add(""foo"", pi) call dict.Add(""bar"", e) call dict.Add(""baz"", ""abc"") "); Assert.AreEqual(Math.PI, engine.Evaluate("dict.Item(\"foo\")")); Assert.AreEqual(Math.PI, engine.Evaluate("dict.Item.get(\"foo\")")); Assert.AreEqual(Math.E, engine.Evaluate("dict.Item(\"bar\")")); Assert.AreEqual(Math.E, engine.Evaluate("dict.Item.get(\"bar\")")); Assert.AreEqual("abc", engine.Evaluate("dict.Item(\"baz\")")); Assert.AreEqual("abc", engine.Evaluate("dict.Item.get(\"baz\")")); engine.Execute(@" call dict.Item.set(""foo"", ""pushkin"") call dict.Item.set(""bar"", ""gogol"") call dict.Item.set(""baz"", pi * e) "); Assert.AreEqual("pushkin", engine.Evaluate("dict.Item(\"foo\")")); Assert.AreEqual("pushkin", engine.Evaluate("dict.Item.get(\"foo\")")); Assert.AreEqual("gogol", engine.Evaluate("dict.Item(\"bar\")")); Assert.AreEqual("gogol", engine.Evaluate("dict.Item.get(\"bar\")")); Assert.AreEqual(Math.PI * Math.E, engine.Evaluate("dict.Item(\"baz\")")); Assert.AreEqual(Math.PI * Math.E, engine.Evaluate("dict.Item.get(\"baz\")")); engine.Execute(@" dict.Item(""foo"") = 987.654 dict.Item(""bar"") = 321 dict.Item(""baz"") = ""halloween"" "); Assert.AreEqual(987.654, engine.Evaluate("dict.Item(\"foo\")")); Assert.AreEqual(987.654, engine.Evaluate("dict.Item.get(\"foo\")")); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item(\"bar\")"))); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item.get(\"bar\")"))); Assert.AreEqual("halloween", engine.Evaluate("dict.Item(\"baz\")")); Assert.AreEqual("halloween", engine.Evaluate("dict.Item.get(\"baz\")")); engine.Execute(@" call dict.Key.set(""foo"", ""qux"") call dict.Key.set(""bar"", pi) call dict.Key.set(""baz"", e) "); Assert.AreEqual(987.654, engine.Evaluate("dict.Item(\"qux\")")); Assert.AreEqual(987.654, engine.Evaluate("dict.Item.get(\"qux\")")); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item(pi)"))); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item.get(pi)"))); Assert.AreEqual("halloween", engine.Evaluate("dict.Item(e)")); Assert.AreEqual("halloween", engine.Evaluate("dict.Item.get(e)")); engine.Execute(@" dict.Key(""qux"") = ""foo"" dict.Key(pi) = ""bar"" dict.Key(e) = ""baz"" "); Assert.AreEqual(987.654, engine.Evaluate("dict.Item(\"foo\")")); Assert.AreEqual(987.654, engine.Evaluate("dict.Item.get(\"foo\")")); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item(\"bar\")"))); Assert.AreEqual(321, Convert.ToInt32(engine.Evaluate("dict.Item.get(\"bar\")"))); Assert.AreEqual("halloween", engine.Evaluate("dict.Item(\"baz\")")); Assert.AreEqual("halloween", engine.Evaluate("dict.Item.get(\"baz\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_AddCOMType_XMLHTTP() { int status = 0; string data = null; var thread = new Thread(() => { using (var testEngine = new VBScriptEngine(WindowsScriptEngineFlags.EnableDebugging)) { using (var helperEngine = new JScriptEngine(WindowsScriptEngineFlags.EnableStandardsMode)) { // ReSharper disable AccessToDisposedClosure testEngine.Script.onComplete = new Action((xhrStatus, xhrData) => { status = xhrStatus; data = xhrData; Dispatcher.ExitAllFrames(); }); testEngine.Script.getData = new Func(responseText => helperEngine.Script.JSON.parse(responseText).data ); Dispatcher.CurrentDispatcher.BeginInvoke(new Action(() => { testEngine.AddCOMType("XMLHttpRequest", "MSXML2.XMLHTTP"); testEngine.Script.host = new HostFunctions(); testEngine.Execute(@" sub onreadystatechange if xhr.readyState = 4 then call onComplete(xhr.status, getData(xhr.responseText)) end if end sub xhr = host.newObj(XMLHttpRequest) call xhr.open(""POST"", ""http://httpbin.org/post"", true) xhr.onreadystatechange = GetRef(""onreadystatechange"") call xhr.send(""Hello, world!"") "); })); Dispatcher.Run(); // ReSharper restore AccessToDisposedClosure } } }); thread.SetApartmentState(ApartmentState.STA); thread.Start(); thread.Join(); Assert.AreEqual(200, status); Assert.AreEqual("Hello, world!", data); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_EnableAutoHostVariables() { const string pre = "123"; var value = "foo"; const int post = 456; engine.Execute("function foo(a, x, b) : dim y : y = x : x = a & \"bar\" & b: foo = y : end function"); Assert.AreEqual("foo", engine.Script.foo(pre, ref value, post)); Assert.AreEqual("123bar456", value); value = "foo"; engine.EnableAutoHostVariables = true; engine.Execute("function foo(a, x, b) : dim y : y = x.value : x.value = a & \"bar\" & b : foo = y : end function"); Assert.AreEqual("foo", engine.Script.foo(pre, ref value, post)); Assert.AreEqual("123bar456", value); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_EnableAutoHostVariables_Delegate() { const string pre = "123"; var value = "foo"; const int post = 456; engine.Execute("function foo(a, x, b) : dim y : y = x : x = a & \"bar\" & b : foo = y : end function"); var del = DelegateFactory.CreateDelegate(engine, engine.Evaluate("GetRef(\"foo\")")); Assert.AreEqual("foo", del(pre, ref value, post)); Assert.AreEqual("123bar456", value); value = "foo"; engine.EnableAutoHostVariables = true; engine.Execute("function foo(a, x, b) : dim y : y = x.value : x.value = a & \"bar\" & b : foo = y : end function"); del = DelegateFactory.CreateDelegate(engine, engine.Evaluate("GetRef(\"foo\")")); Assert.AreEqual("foo", del(pre, ref value, post)); Assert.AreEqual("123bar456", value); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_Current() { // ReSharper disable AccessToDisposedClosure using (var innerEngine = new VBScriptEngine()) { engine.Script.test = new Action(() => { innerEngine.Script.test = new Action(() => Assert.AreSame(innerEngine, ScriptEngine.Current)); Assert.AreSame(engine, ScriptEngine.Current); innerEngine.Execute("test()"); innerEngine.Script.test(); Assert.AreSame(engine, ScriptEngine.Current); }); Assert.IsNull(ScriptEngine.Current); engine.Execute("test()"); engine.Script.test(); Assert.IsNull(ScriptEngine.Current); } // ReSharper restore AccessToDisposedClosure } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_EnableNullResultWrapping() { var testValue = new[] { 1, 2, 3, 4, 5 }; engine.Script.host = new HostFunctions(); engine.Script.foo = new NullResultWrappingTestObject(testValue); Assert.IsFalse(Convert.ToBoolean(engine.Evaluate("IsNull(foo.Value)"))); Assert.IsFalse(Convert.ToBoolean(engine.Evaluate("host.isNull(foo.Value)"))); Assert.IsTrue(Convert.ToBoolean(engine.Evaluate("IsNull(foo.NullValue)"))); Assert.IsTrue(Convert.ToBoolean(engine.Evaluate("host.isNull(foo.NullValue)"))); Assert.IsFalse(Convert.ToBoolean(engine.Evaluate("IsNull(foo.WrappedNullValue)"))); Assert.IsTrue(Convert.ToBoolean(engine.Evaluate("host.isNull(foo.WrappedNullValue)"))); Assert.AreSame(testValue, engine.Evaluate("foo.Method(foo.Value)")); Assert.IsNull(engine.Evaluate("foo.Method(foo.WrappedNullValue)")); TestUtil.AssertException(() => engine.Evaluate("foo.Method(foo.NullValue)")); engine.EnableNullResultWrapping = true; Assert.AreSame(testValue, engine.Evaluate("foo.Method(foo.Value)")); Assert.IsNull(engine.Evaluate("foo.Method(foo.WrappedNullValue)")); Assert.IsNull(engine.Evaluate("foo.Method(foo.NullValue)")); engine.EnableNullResultWrapping = false; Assert.AreSame(testValue, engine.Evaluate("foo.Method(foo.Value)")); Assert.IsNull(engine.Evaluate("foo.Method(foo.WrappedNullValue)")); TestUtil.AssertException(() => engine.Evaluate("foo.Method(foo.NullValue)")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_EnableNullResultWrapping_String() { const string testValue = "bar"; engine.Script.host = new HostFunctions(); engine.Script.foo = new NullResultWrappingTestObject(testValue); Assert.IsFalse(Convert.ToBoolean(engine.Evaluate("IsNull(foo.Value)"))); Assert.IsFalse(Convert.ToBoolean(engine.Evaluate("host.isNull(foo.Value)"))); Assert.IsTrue(Convert.ToBoolean(engine.Evaluate("IsNull(foo.NullValue)"))); Assert.IsTrue(Convert.ToBoolean(engine.Evaluate("host.isNull(foo.NullValue)"))); Assert.IsFalse(Convert.ToBoolean(engine.Evaluate("IsNull(foo.WrappedNullValue)"))); Assert.IsTrue(Convert.ToBoolean(engine.Evaluate("host.isNull(foo.WrappedNullValue)"))); Assert.AreEqual(testValue, engine.Evaluate("foo.Method(foo.Value)")); Assert.IsNull(engine.Evaluate("foo.Method(foo.WrappedNullValue)")); TestUtil.AssertException(() => engine.Evaluate("foo.Method(foo.NullValue)")); engine.EnableNullResultWrapping = true; Assert.AreEqual(testValue, engine.Evaluate("foo.Method(foo.Value)")); Assert.IsNull(engine.Evaluate("foo.Method(foo.WrappedNullValue)")); Assert.IsNull(engine.Evaluate("foo.Method(foo.NullValue)")); engine.EnableNullResultWrapping = false; Assert.AreEqual(testValue, engine.Evaluate("foo.Method(foo.Value)")); Assert.IsNull(engine.Evaluate("foo.Method(foo.WrappedNullValue)")); TestUtil.AssertException(() => engine.Evaluate("foo.Method(foo.NullValue)")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_EnableNullResultWrapping_Nullable() { int? testValue = 12345; engine.Script.host = new HostFunctions(); engine.Script.foo = new NullResultWrappingTestObject(testValue); Assert.IsFalse(Convert.ToBoolean(engine.Evaluate("IsNull(foo.Value)"))); Assert.IsFalse(Convert.ToBoolean(engine.Evaluate("host.isNull(foo.Value)"))); Assert.IsTrue(Convert.ToBoolean(engine.Evaluate("IsNull(foo.NullValue)"))); Assert.IsTrue(Convert.ToBoolean(engine.Evaluate("host.isNull(foo.NullValue)"))); Assert.IsFalse(Convert.ToBoolean(engine.Evaluate("IsNull(foo.WrappedNullValue)"))); Assert.IsTrue(Convert.ToBoolean(engine.Evaluate("host.isNull(foo.WrappedNullValue)"))); Assert.AreEqual(testValue, engine.Evaluate("foo.Method(foo.Value)")); Assert.IsNull(engine.Evaluate("foo.Method(foo.WrappedNullValue)")); TestUtil.AssertException(() => engine.Evaluate("foo.Method(foo.NullValue)")); engine.EnableNullResultWrapping = true; Assert.AreEqual(testValue, engine.Evaluate("foo.Method(foo.Value)")); Assert.IsNull(engine.Evaluate("foo.Method(foo.WrappedNullValue)")); Assert.IsNull(engine.Evaluate("foo.Method(foo.NullValue)")); engine.EnableNullResultWrapping = false; Assert.AreEqual(testValue, engine.Evaluate("foo.Method(foo.Value)")); Assert.IsNull(engine.Evaluate("foo.Method(foo.WrappedNullValue)")); TestUtil.AssertException(() => engine.Evaluate("foo.Method(foo.NullValue)")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DefaultProperty() { engine.Script.foo = new DefaultPropertyTestObject(); engine.AddHostType("DayOfWeek", typeof(DayOfWeek)); engine.Execute("foo(\"abc\") = 123"); Assert.AreEqual(123, engine.Evaluate("clng(foo(\"abc\"))")); Assert.AreEqual(123, engine.Evaluate("clng(foo.Item(\"abc\"))")); Assert.AreEqual(123, engine.Evaluate("clng(foo.Item.get(\"abc\"))")); Assert.IsNull(engine.Evaluate("foo(\"def\")")); engine.Execute("foo(DayOfWeek.Thursday) = 456"); Assert.AreEqual(456, engine.Evaluate("clng(foo(DayOfWeek.Thursday))")); Assert.AreEqual(456, engine.Evaluate("clng(foo.Item(DayOfWeek.Thursday))")); Assert.AreEqual(456, engine.Evaluate("clng(foo.Item.get(DayOfWeek.Thursday))")); Assert.IsNull(engine.Evaluate("foo(DayOfWeek.Friday)")); engine.Execute("foo.Value = 789"); Assert.AreEqual(789, engine.Evaluate("clng(foo)")); Assert.AreEqual(789, engine.Evaluate("clng(foo.Value)")); engine.Execute("foo.Item(\"def\") = 987"); Assert.AreEqual(987, engine.Evaluate("clng(foo(\"def\"))")); Assert.AreEqual(987, engine.Evaluate("clng(foo.Item(\"def\"))")); Assert.AreEqual(987, engine.Evaluate("clng(foo.Item.get(\"def\"))")); Assert.IsNull(engine.Evaluate("foo(\"ghi\")")); engine.Execute("foo.Item(DayOfWeek.Friday) = 654"); Assert.AreEqual(654, engine.Evaluate("clng(foo(DayOfWeek.Friday))")); Assert.AreEqual(654, engine.Evaluate("clng(foo.Item(DayOfWeek.Friday))")); Assert.AreEqual(654, engine.Evaluate("clng(foo.Item.get(DayOfWeek.Friday))")); Assert.IsNull(engine.Evaluate("foo(DayOfWeek.Saturday)")); engine.Execute("call foo.Item.set(\"ghi\", 321)"); Assert.AreEqual(321, engine.Evaluate("clng(foo(\"ghi\"))")); Assert.AreEqual(321, engine.Evaluate("clng(foo.Item(\"ghi\"))")); Assert.AreEqual(321, engine.Evaluate("clng(foo.Item.get(\"ghi\"))")); Assert.IsNull(engine.Evaluate("foo(\"jkl\")")); engine.Execute("call foo.Item.set(DayOfWeek.Saturday, -123)"); Assert.AreEqual(-123, engine.Evaluate("clng(foo(DayOfWeek.Saturday))")); Assert.AreEqual(-123, engine.Evaluate("clng(foo.Item(DayOfWeek.Saturday))")); Assert.AreEqual(-123, engine.Evaluate("clng(foo.Item.get(DayOfWeek.Saturday))")); Assert.IsNull(engine.Evaluate("foo(DayOfWeek.Sunday)")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DefaultProperty_FieldTunneling() { engine.Script.foo = new DefaultPropertyTestContainer(); engine.AddHostType("DayOfWeek", typeof(DayOfWeek)); engine.Execute("foo.Field(\"abc\") = 123"); Assert.AreEqual(123, engine.Evaluate("clng(foo.Field(\"abc\"))")); Assert.AreEqual(123, engine.Evaluate("clng(foo.Field.Item(\"abc\"))")); Assert.AreEqual(123, engine.Evaluate("clng(foo.Field.Item.get(\"abc\"))")); Assert.IsNull(engine.Evaluate("foo.Field(\"def\")")); engine.Execute("foo.Field(DayOfWeek.Thursday) = 456"); Assert.AreEqual(456, engine.Evaluate("clng(foo.Field(DayOfWeek.Thursday))")); Assert.AreEqual(456, engine.Evaluate("clng(foo.Field.Item(DayOfWeek.Thursday))")); Assert.AreEqual(456, engine.Evaluate("clng(foo.Field.Item.get(DayOfWeek.Thursday))")); Assert.IsNull(engine.Evaluate("foo.Field(DayOfWeek.Friday)")); engine.Execute("foo.Field.Value = 789"); Assert.AreEqual(789, engine.Evaluate("clng(foo.Field)")); Assert.AreEqual(789, engine.Evaluate("clng(foo.Field.Value)")); engine.Execute("foo.Field.Item(\"def\") = 987"); Assert.AreEqual(987, engine.Evaluate("clng(foo.Field(\"def\"))")); Assert.AreEqual(987, engine.Evaluate("clng(foo.Field.Item(\"def\"))")); Assert.AreEqual(987, engine.Evaluate("clng(foo.Field.Item.get(\"def\"))")); Assert.IsNull(engine.Evaluate("foo.Field(\"ghi\")")); engine.Execute("foo.Field.Item(DayOfWeek.Friday) = 654"); Assert.AreEqual(654, engine.Evaluate("clng(foo.Field(DayOfWeek.Friday))")); Assert.AreEqual(654, engine.Evaluate("clng(foo.Field.Item(DayOfWeek.Friday))")); Assert.AreEqual(654, engine.Evaluate("clng(foo.Field.Item.get(DayOfWeek.Friday))")); Assert.IsNull(engine.Evaluate("foo.Field(DayOfWeek.Saturday)")); engine.Execute("call foo.Field.Item.set(\"ghi\", 321)"); Assert.AreEqual(321, engine.Evaluate("clng(foo.Field(\"ghi\"))")); Assert.AreEqual(321, engine.Evaluate("clng(foo.Field.Item(\"ghi\"))")); Assert.AreEqual(321, engine.Evaluate("clng(foo.Field.Item.get(\"ghi\"))")); Assert.IsNull(engine.Evaluate("foo.Field(\"jkl\")")); engine.Execute("call foo.Field.Item.set(DayOfWeek.Saturday, -123)"); Assert.AreEqual(-123, engine.Evaluate("clng(foo.Field(DayOfWeek.Saturday))")); Assert.AreEqual(-123, engine.Evaluate("clng(foo.Field.Item(DayOfWeek.Saturday))")); Assert.AreEqual(-123, engine.Evaluate("clng(foo.Field.Item.get(DayOfWeek.Saturday))")); Assert.IsNull(engine.Evaluate("foo.Field(DayOfWeek.Sunday)")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DefaultProperty_PropertyTunneling() { engine.Script.foo = new DefaultPropertyTestContainer(); engine.AddHostType("DayOfWeek", typeof(DayOfWeek)); engine.Execute("foo.Property(\"abc\") = 123"); Assert.AreEqual(123, engine.Evaluate("clng(foo.Property(\"abc\"))")); Assert.AreEqual(123, engine.Evaluate("clng(foo.Property.Item(\"abc\"))")); Assert.AreEqual(123, engine.Evaluate("clng(foo.Property.Item.get(\"abc\"))")); Assert.IsNull(engine.Evaluate("foo.Property(\"def\")")); engine.Execute("foo.Property(DayOfWeek.Thursday) = 456"); Assert.AreEqual(456, engine.Evaluate("clng(foo.Property(DayOfWeek.Thursday))")); Assert.AreEqual(456, engine.Evaluate("clng(foo.Property.Item(DayOfWeek.Thursday))")); Assert.AreEqual(456, engine.Evaluate("clng(foo.Property.Item.get(DayOfWeek.Thursday))")); Assert.IsNull(engine.Evaluate("foo.Property(DayOfWeek.Friday)")); engine.Execute("foo.Property.Value = 789"); Assert.AreEqual(789, engine.Evaluate("clng(foo.Property)")); Assert.AreEqual(789, engine.Evaluate("clng(foo.Property.Value)")); engine.Execute("foo.Property.Item(\"def\") = 987"); Assert.AreEqual(987, engine.Evaluate("clng(foo.Property(\"def\"))")); Assert.AreEqual(987, engine.Evaluate("clng(foo.Property.Item(\"def\"))")); Assert.AreEqual(987, engine.Evaluate("clng(foo.Property.Item.get(\"def\"))")); Assert.IsNull(engine.Evaluate("foo.Property(\"ghi\")")); engine.Execute("foo.Property.Item(DayOfWeek.Friday) = 654"); Assert.AreEqual(654, engine.Evaluate("clng(foo.Property(DayOfWeek.Friday))")); Assert.AreEqual(654, engine.Evaluate("clng(foo.Property.Item(DayOfWeek.Friday))")); Assert.AreEqual(654, engine.Evaluate("clng(foo.Property.Item.get(DayOfWeek.Friday))")); Assert.IsNull(engine.Evaluate("foo.Property(DayOfWeek.Saturday)")); engine.Execute("call foo.Property.Item.set(\"ghi\", 321)"); Assert.AreEqual(321, engine.Evaluate("clng(foo.Property(\"ghi\"))")); Assert.AreEqual(321, engine.Evaluate("clng(foo.Property.Item(\"ghi\"))")); Assert.AreEqual(321, engine.Evaluate("clng(foo.Property.Item.get(\"ghi\"))")); Assert.IsNull(engine.Evaluate("foo.Property(\"jkl\")")); engine.Execute("call foo.Property.Item.set(DayOfWeek.Saturday, -123)"); Assert.AreEqual(-123, engine.Evaluate("clng(foo.Property(DayOfWeek.Saturday))")); Assert.AreEqual(-123, engine.Evaluate("clng(foo.Property.Item(DayOfWeek.Saturday))")); Assert.AreEqual(-123, engine.Evaluate("clng(foo.Property.Item.get(DayOfWeek.Saturday))")); Assert.IsNull(engine.Evaluate("foo.Property(DayOfWeek.Sunday)")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DefaultProperty_MethodTunneling() { engine.Script.foo = new DefaultPropertyTestContainer(); engine.AddHostType("DayOfWeek", typeof(DayOfWeek)); engine.Execute("foo.Method()(\"abc\") = 123"); Assert.AreEqual(123, engine.Evaluate("clng(foo.Method()(\"abc\"))")); Assert.AreEqual(123, engine.Evaluate("clng(foo.Method().Item(\"abc\"))")); Assert.AreEqual(123, engine.Evaluate("clng(foo.Method().Item.get(\"abc\"))")); Assert.IsNull(engine.Evaluate("foo.Method()(\"def\")")); engine.Execute("foo.Method()(DayOfWeek.Thursday) = 456"); Assert.AreEqual(456, engine.Evaluate("clng(foo.Method()(DayOfWeek.Thursday))")); Assert.AreEqual(456, engine.Evaluate("clng(foo.Method().Item(DayOfWeek.Thursday))")); Assert.AreEqual(456, engine.Evaluate("clng(foo.Method().Item.get(DayOfWeek.Thursday))")); Assert.IsNull(engine.Evaluate("foo.Method()(DayOfWeek.Friday)")); engine.Execute("foo.Method().Value = 789"); Assert.AreEqual(789, engine.Evaluate("clng(foo.Method())")); Assert.AreEqual(789, engine.Evaluate("clng(foo.Method().Value)")); engine.Execute("foo.Method().Item(\"def\") = 987"); Assert.AreEqual(987, engine.Evaluate("clng(foo.Method()(\"def\"))")); Assert.AreEqual(987, engine.Evaluate("clng(foo.Method().Item(\"def\"))")); Assert.AreEqual(987, engine.Evaluate("clng(foo.Method().Item.get(\"def\"))")); Assert.IsNull(engine.Evaluate("foo.Method()(\"ghi\")")); engine.Execute("foo.Method().Item(DayOfWeek.Friday) = 654"); Assert.AreEqual(654, engine.Evaluate("clng(foo.Method()(DayOfWeek.Friday))")); Assert.AreEqual(654, engine.Evaluate("clng(foo.Method().Item(DayOfWeek.Friday))")); Assert.AreEqual(654, engine.Evaluate("clng(foo.Method().Item.get(DayOfWeek.Friday))")); Assert.IsNull(engine.Evaluate("foo.Method()(DayOfWeek.Saturday)")); engine.Execute("call foo.Method().Item.set(\"ghi\", 321)"); Assert.AreEqual(321, engine.Evaluate("clng(foo.Method()(\"ghi\"))")); Assert.AreEqual(321, engine.Evaluate("clng(foo.Method().Item(\"ghi\"))")); Assert.AreEqual(321, engine.Evaluate("clng(foo.Method().Item.get(\"ghi\"))")); Assert.IsNull(engine.Evaluate("foo.Method()(\"jkl\")")); engine.Execute("call foo.Method().Item.set(DayOfWeek.Saturday, -123)"); Assert.AreEqual(-123, engine.Evaluate("clng(foo.Method()(DayOfWeek.Saturday))")); Assert.AreEqual(-123, engine.Evaluate("clng(foo.Method().Item(DayOfWeek.Saturday))")); Assert.AreEqual(-123, engine.Evaluate("clng(foo.Method().Item.get(DayOfWeek.Saturday))")); Assert.IsNull(engine.Evaluate("foo.Method()(DayOfWeek.Sunday)")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_DefaultProperty_Indexer() { engine.Script.dict = new Dictionary { { "abc", 123 }, { "def", 456 }, { "ghi", 789 } }; engine.Execute("item = dict.Item"); Assert.AreEqual(123, engine.Evaluate("item(\"abc\")")); Assert.AreEqual(456, engine.Evaluate("item(\"def\")")); Assert.AreEqual(789, engine.Evaluate("item(\"ghi\")")); TestUtil.AssertException(() => engine.Evaluate("item(\"jkl\")")); engine.Execute("item(\"abc\") = \"foo\""); Assert.AreEqual("foo", engine.Evaluate("item(\"abc\")")); Assert.AreEqual(456, engine.Evaluate("item(\"def\")")); Assert.AreEqual(789, engine.Evaluate("item(\"ghi\")")); TestUtil.AssertException(() => engine.Evaluate("item(\"jkl\")")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_PropertyAndMethodWithSameName() { engine.AddHostObject("lib", HostItemFlags.GlobalMembers, new HostTypeCollection("mscorlib", "System", "System.Core")); engine.Script.dict = new Dictionary { { "abc", 123 }, { "def", 456 }, { "ghi", 789 } }; Assert.AreEqual(3, engine.Evaluate("dict.Count")); Assert.AreEqual(3, engine.Evaluate("dict.Count()")); engine.Script.listDict = new ListDictionary { { "abc", 123 }, { "def", 456 }, { "ghi", 789 } }; Assert.AreEqual(3, engine.Evaluate("listDict.Count")); TestUtil.AssertException(() => engine.Evaluate("listDict.Count()")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_NativeEnumerator() { var array = Enumerable.Range(0, 10).ToArray(); engine.Execute(@" function sum(array) dim result result = 0 for each item in array result = result + item next sum = result end function "); Assert.AreEqual(array.Aggregate((current, next) => current + next), engine.Script.sum(array)); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_NativeEnumerator_Generic() { var array = Enumerable.Range(0, 10).Select(value => (IConvertible)value).ToArray(); engine.Script.culture = CultureInfo.InvariantCulture; engine.Execute(@" function sum(array) dim result result = 0 for each item in array result = result + item.ToInt32(culture) next sum = result end function "); Assert.AreEqual(array.Aggregate((current, next) => Convert.ToInt32(current) + Convert.ToInt32(next)), engine.Script.sum(array)); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_NativeEnumerator_NonGeneric() { var array = Enumerable.Range(0, 10).ToArray(); engine.Execute(@" function sum(array) dim result result = 0 for each item in array result = result + item next sum = result end function "); Assert.AreEqual(array.Aggregate((current, next) => current + next), engine.Script.sum(HostObject.Wrap(array, typeof(IEnumerable)))); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_NativeEnumerator_NonEnumerable() { engine.Execute(@" function sum(array) dim result result = 0 for each item in array result = result + item next sum = result end function "); TestUtil.AssertException(() => engine.Script.sum(DayOfWeek.Monday)); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ScriptObject() { engine.Execute(@" class VBTestObject end class set testObject = new VBTestObject "); var obj = engine.Evaluate("testObject") as ScriptObject; Assert.IsNotNull(obj); Assert.AreSame(engine, obj.Engine); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_ArrayInvocability() { engine.Script.foo = Enumerable.Range(123, 5).ToArray(); Assert.AreEqual(124, engine.Evaluate("foo(1)")); engine.Execute("foo(1) = 456"); Assert.AreEqual(456, engine.Evaluate("foo(1)")); engine.Script.foo = new IConvertible[] { "bar" }; Assert.AreEqual("bar", engine.Evaluate("foo(0)")); engine.Execute("foo(0) = \"baz\""); Assert.AreEqual("baz", engine.Evaluate("foo(0)")); engine.Script.bar = new List(); TestUtil.AssertException(() => engine.Execute("bar.Add(foo(0))")); } [TestMethod, TestCategory("VBScriptEngine")] public void VBScriptEngine_PropertyBagInvocability() { engine.Script.lib = new HostTypeCollection("mscorlib", "System", "System.Core"); Assert.IsInstanceOfType(engine.Evaluate("lib(\"System\")"), typeof(PropertyBag)); Assert.IsInstanceOfType(engine.Evaluate("lib.System(\"Collections\")"), typeof(PropertyBag)); Assert.IsInstanceOfType(engine.Evaluate("lib(\"Bogus\")"), typeof(Undefined)); Assert.IsInstanceOfType(engine.Evaluate("lib.System(\"Heinous\")"), typeof(Undefined)); TestUtil.AssertException(() => engine.Execute("lib(\"Bogus\") = 123")); TestUtil.AssertException(() => engine.Execute("lib.System(\"Heinous\") = 456")); engine.Script.foo = new PropertyBag { { "Null", null } }; Assert.IsNull(engine.Evaluate("foo.Null")); TestUtil.AssertException(() => engine.Evaluate("foo.Null(123)")); engine.Execute("foo(null) = 123"); Assert.AreEqual(123, Convert.ToInt32(engine.Evaluate("foo(null)"))); engine.Execute("foo(empty) = 456"); Assert.AreEqual(456, Convert.ToInt32(engine.Evaluate("foo(empty)"))); } // ReSharper restore InconsistentNaming #endregion #region miscellaneous public class ReflectionBindFallbackTest { public string Property { get { return "qux"; } } public void Method(ref string a, ref double b) { a = a + "bar"; b = b * Math.PI; } public void GenericMethod(ref T a, ref T b) { var temp = a; a = b; b = temp; } public static void StaticMethod(ref string a, ref double b) { a = a + "baz"; b = b * Math.E; } public void GetSelf(out object self) { self = this; } public void GetArray(out object array) { array = new object[] { "abc", 123.456 }; } } private const string generalScript = @" set System = clr.System set TestObjectT = host.type(""Microsoft.ClearScript.Test.GeneralTestObject"", ""ClearScriptTest"") set tlist = host.newObj(System.Collections.Generic.List(TestObjectT)) call tlist.Add(host.newObj(TestObjectT, ""Eóin"", 20)) call tlist.Add(host.newObj(TestObjectT, ""Shane"", 16)) call tlist.Add(host.newObj(TestObjectT, ""Cillian"", 8)) call tlist.Add(host.newObj(TestObjectT, ""Sasha"", 6)) call tlist.Add(host.newObj(TestObjectT, ""Brian"", 3)) class VBTestObject public name public age end class function createTestObject(name, age) dim testObject set testObject = new VBTestObject testObject.name = name testObject.age = age set createTestObject = testObject end function set olist = host.newObj(System.Collections.Generic.List(System.Object)) call olist.Add(createTestObject(""Brian"", 3)) call olist.Add(createTestObject(""Sasha"", 6)) call olist.Add(createTestObject(""Cillian"", 8)) call olist.Add(createTestObject(""Shane"", 16)) call olist.Add(createTestObject(""Eóin"", 20)) set dict = host.newObj(System.Collections.Generic.Dictionary(System.String, System.String)) call dict.Add(""foo"", ""bar"") call dict.Add(""baz"", ""qux"") set value = host.newVar(System.String) result = dict.TryGetValue(""foo"", value.out) set expando = host.newObj(System.Dynamic.ExpandoObject) set expandoCollection = host.cast(System.Collections.Generic.ICollection(System.Collections.Generic.KeyValuePair(System.String, System.Object)), expando) set onEventRef = GetRef(""onEvent"") sub onEvent(s, e) call System.Console.WriteLine(""Property changed: {0}; new value: {1}"", e.PropertyName, eval(""s."" + e.PropertyName)) end sub set onStaticEventRef = GetRef(""onStaticEvent"") sub onStaticEvent(s, e) call System.Console.WriteLine(""Property changed: {0}; new value: {1} (static event)"", e.PropertyName, e.PropertyValue) end sub set eventCookie = tlist.Item(0).Change.connect(onEventRef) set staticEventCookie = TestObjectT.StaticChange.connect(onStaticEventRef) tlist.Item(0).Name = ""Jerry"" tlist.Item(1).Name = ""Ellis"" tlist.Item(0).Name = ""Eóin"" tlist.Item(1).Name = ""Shane"" call eventCookie.disconnect() call staticEventCookie.disconnect() tlist.Item(0).Name = ""Jerry"" tlist.Item(1).Name = ""Ellis"" tlist.Item(0).Name = ""Eóin"" tlist.Item(1).Name = ""Shane"" "; private const string generalScriptOutput = @" Property changed: Name; new value: Jerry Property changed: Name; new value: Jerry (static event) Property changed: Name; new value: Ellis (static event) Property changed: Name; new value: Eóin Property changed: Name; new value: Eóin (static event) Property changed: Name; new value: Shane (static event) "; private const string forEachTestScript = @" function enumerate(collection) dim index, array() index = -1 for each item in collection index = index + 1 redim preserve array(index) array(index) = item next enumerate = array end function "; public object TestProperty { get; set; } public static object StaticTestProperty { get; set; } // ReSharper disable UnusedMember.Local private void PrivateMethod() { } private static void PrivateStaticMethod() { } // ReSharper restore UnusedMember.Local private delegate string TestDelegate(string pre, ref string value, int post); #endregion } public static class ReflectionBindFallbackTestExtensions { public static void ExtensionMethod(this VBScriptEngineTest.ReflectionBindFallbackTest test, ref string a, ref double b) { a = a + "bar"; b = b * Math.PI; } public static void GenericExtensionMethod(this VBScriptEngineTest.ReflectionBindFallbackTest test, ref T a, ref T b) { var temp = a; a = b; b = temp; } } }