gambas-source-code/comp/src/gb.test/.src/TestMe.module

' Gambas module file

Public Sub Main()

    Dim asGood As New String[]
    Dim Tests As String

    With asGood
        .Add("TestAllAsserts")
        .Add("TestElse")
        .Add("TestError")
        .Add("TestSetupTeardown")
        .Add("TestInternals")
        .Add("TestFailures")
        .Add("TestSetup")
        .Add("TestSummary.DoSomeAsserts")
        .Add("TestSummary.DoTodo")
        .Add("TestSummary.DoSkip")
    End With

    ' ------------------------------------------------- These must succeed
    Tests = asGood.Join(",")

    ' ------------------------------------------------- This must not succeed
    'Tests = "TestCrashes"
    'Tests = "TestSummary"

    ' ------------------------------------------------- These must bailout
    'Tests = "TestBailout"
    'Tests = ""
    'Tests = "TestAllAsserts, Wurstsupp"

    ' ------------------------------------------------- Playing field

    'Tests = "TestAllAsserts, Wurstsupp"

    Test.Main(Tests)

End