iframe-proxy | Sunbelt Computer Software

273 lines (232 loc) · 8.32 KB
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT license.
using System;
using System.Collections;
using System.Collections.Generic;
using System.Diagnostics;
using System.IO;
using System.Linq;
using System.Runtime.InteropServices;
using Microsoft.ClearScript.Util;
using Microsoft.ClearScript.Util.COM;
using Microsoft.CSharp.RuntimeBinder;
using Microsoft.VisualStudio.TestTools.UnitTesting;
namespace Microsoft.ClearScript.Test
    public class BaseTestArg
    public interface ITestArg
    public class TestArg : BaseTestArg, ITestArg
    public enum TestEnum : short
        First,
        Second,
        Third,
        Fourth,
        Fifth
    public class TestEventArgs<T> : EventArgs
        public T Arg { get; set; }
    public class NullResultWrappingTestObject<T>
        public NullResultWrappingTestObject(T value)
            Value = value;
        public T Method(T arg)
            return arg;
        public Random Method(Random arg)
            return arg;
        public T Value { get; }
        public T NullValue => default;
        [ScriptMember(ScriptMemberFlags.WrapNullResult)]
        public T WrappedNullValue => NullValue;
    public class DefaultPropertyTestObject
        private readonly Dictionary<string, object> byName = new Dictionary<string, object>();
        private readonly Dictionary<DayOfWeek, object> byDay = new Dictionary<DayOfWeek, object>();
        public object this[string name]
            get => ((IDictionary)byName)[name];
            set => byName[name] = value;
        public object this[DayOfWeek day]
            get => ((IDictionary)byDay)[day];
            set => byDay[day] = value;
        [DispId(0)]
        public int Value { get; set; }
    public class DefaultPropertyTestContainer
        public readonly DefaultPropertyTestObject Field = new DefaultPropertyTestObject();
        public DefaultPropertyTestObject Property => Field;
        public DefaultPropertyTestObject Method()
            return Field;
    public static partial class TestUtil
        public static void InvokeConsoleTest(string name)
            var startInfo = new ProcessStartInfo("ClearScriptConsole.exe", "-t " + name)
                WindowStyle = ProcessWindowStyle.Hidden,
                UseShellExecute = false,
                RedirectStandardError = true
            using (var process = Process.Start(startInfo))
                Assert.IsNotNull(process);
                process.WaitForExit();
                Assert.AreEqual(0, process.ExitCode, process.StandardError.ReadToEnd());
        public static void Iterate(Array array, Action<int[]> action)
            array.Iterate(action);
        public static string FormatInvariant(string format, params object[] args)
            return MiscHelpers.FormatInvariant(format, args);
        public static double CalcTestValue(Guid callerGuid, params object[] args)
            var hashCode = args.Aggregate(callerGuid.GetHashCode(), (currentHashCode, value) => unchecked((currentHashCode * 31) + (value?.GetHashCode() ?? 0)));
            return hashCode * Math.E / Math.PI;
        public static void AssertException<T>(Action action, bool checkScriptStackTrace = true) where T : Exception
            Exception caughtException = null;
            var gotExpectedException = false;
                action();
            catch (T exception)
                caughtException = exception;
                gotExpectedException = true;
                AssertValidExceptionChain(exception, checkScriptStackTrace);
            catch (Exception exception)
                caughtException = exception;
                gotExpectedException = exception.GetBaseException() is T;
                AssertValidExceptionChain(exception, checkScriptStackTrace);
            var message = "Expected " + typeof(T).Name + " was not thrown.";
            if (caughtException != null)
                message += " " + caughtException.GetType().Name + " was thrown instead.";
            Assert.IsTrue(gotExpectedException, message);
        public static void AssertException<T1, T2>(Action action, bool checkScriptStackTrace = true) where T1 : Exception where T2 : Exception
            Exception caughtException = null;
            var gotExpectedException = false;
                action();
            catch (T1 exception)
                caughtException = exception;
                gotExpectedException = true;
                AssertValidExceptionChain(exception, checkScriptStackTrace);
            catch (T2 exception)
                caughtException = exception;
                gotExpectedException = true;
                AssertValidExceptionChain(exception, checkScriptStackTrace);
            catch (Exception exception)
                caughtException = exception;
                gotExpectedException = (exception.GetBaseException() is T1) || (exception.GetBaseException() is T2);
                AssertValidExceptionChain(exception, checkScriptStackTrace);
            var message = "Expected " + typeof(T1).Name + " or " + typeof(T2).Name + " was not thrown.";
            if (caughtException != null)
                message += " " + caughtException.GetType().Name + " was thrown instead.";
            Assert.IsTrue(gotExpectedException, message);
        public static void AssertMethodBindException(Action action, bool checkScriptStackTrace = true)
            AssertException<RuntimeBinderException, MissingMethodException>(action, checkScriptStackTrace);
        public static void AssertValidException(Exception exception)
            Assert.IsFalse(string.IsNullOrWhiteSpace(exception.Message));
            Assert.IsFalse(string.IsNullOrWhiteSpace(exception.StackTrace));
            Assert.IsFalse(exception.Message.Contains("COM"));
            if (!(exception is IOException))
                Assert.IsFalse(exception.Message.Contains("HRESULT"));
                Assert.IsFalse(exception.Message.Contains("0x"));
        public static void AssertValidException(IScriptEngineException exception, bool checkScriptStackTrace = true)
            AssertValidException((Exception)exception);
            if ((exception is ScriptEngineException) && !exception.IsFatal)
                Assert.IsTrue(exception.ErrorDetails.StartsWith(exception.Message, StringComparison.Ordinal));
                if (checkScriptStackTrace)
                    Assert.IsTrue(exception.ErrorDetails.Contains("\n    at "));
        public static void AssertValidException(ScriptEngine engine, IScriptEngineException exception, bool checkScriptStackTrace = true)
            AssertValidException(exception, checkScriptStackTrace);
            Assert.AreEqual(engine.Name, exception.EngineName);
        private static void AssertValidExceptionChain(Exception exception, bool checkScriptStackTrace)
            while (exception != null)
                if (exception is IScriptEngineException scriptError)
                    AssertValidException(scriptError, checkScriptStackTrace);
                    AssertValidException(exception);
                exception = exception.InnerException;
        public static string GetCOMObjectTypeName(object obj)
            if (obj is IDispatch dispatch)
                var typeInfo = dispatch.GetTypeInfo();
                if (typeInfo != null)
                    return typeInfo.GetName();
            return null;
Sunbelt Computer Software

PL/B Language Development and Support

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Sunbelt Computer Software

PL/B Language Development and Support

Uh oh!

FilesExpand file tree

Misc.cs

Latest commit

History

Misc.cs

File metadata and controls
