File: Microsoft\VisualBasic\ApplicationServices\WindowsFormsApplicationBaseTests.cs
Web Access
Project: src\src\Microsoft.VisualBasic\tests\IntegrationTests\Microsoft.VisualBasic.IntegrationTests\Microsoft.VisualBasic.IntegrationTests.csproj (Microsoft.VisualBasic.IntegrationTests)
// Licensed to the .NET Foundation under one or more agreements.
// The .NET Foundation licenses this file to you under the MIT license.
 
using System.Windows.Forms.IntegrationTests.Common;
using Microsoft.VisualBasic.ApplicationServices;
 
namespace Microsoft.VisualBasic.IntegrationTests;
 
public class WindowsFormsApplicationBaseTests
{
    [Fact]
    public void Run()
    {
        string exePath = TestHelpers.GetExePath("VisualBasicRuntimeTest");
        ProcessStartInfo startInfo = new() { FileName = exePath, Arguments = "WindowsFormsApplicationBase.Run" };
        Process process = TestHelpers.StartProcess(startInfo);
        TestHelpers.EndProcess(process, timeout: 1000);
        Assert.True(process.HasExited);
    }
 
    [Fact]
    public void RunSingleInstance()
    {
        string exePath = TestHelpers.GetExePath("VisualBasicRuntimeTest");
        Process process0 = TestHelpers.StartProcess(new ProcessStartInfo { FileName = exePath, Arguments = "WindowsFormsApplicationBase.RunSingleInstance0" });
        Process process1 = TestHelpers.StartProcess(new ProcessStartInfo { FileName = exePath, Arguments = "WindowsFormsApplicationBase.RunSingleInstance1" });
        TestHelpers.EndProcess(process0, timeout: 1000);
        TestHelpers.EndProcess(process1, timeout: 1000);
        Assert.True(process0.HasExited);
        Assert.True(process1.HasExited);
    }
 
    [Fact]
    public void Run_NoStartupFormException()
    {
        WindowsFormsApplicationBase application = new();
        // Exception.ToString() called to verify message is constructed successfully.
        _ = Assert.Throws<NoStartupFormException>(() => application.Run([])).ToString();
    }
}