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

' Gambas module file

Public Sub Main()

    ' These must succeed:
    UnitTest.Main("TestAllAsserts", Null, True)
    ' UnitTest.Main("TestSetup", Null, True)
    ' UnitTest.Main("TestElse", Null, True)
    ' UnitTest.Main("TestError", Null, True)
    ' UnitTest.Main("TestSetupTeardown", Null, True)

    ' Here every test must fail:
    ' UnitTest.Main("TestFailures", Null, True)
    ' UnitTest.Main("TestBailout", Null, True)

    'Test all
    'UnitTest.Main(Null, Null, True)

    'Cheese()

End

' Private Sub Cheese()
' 
'     Dim UT As New UnitTest
' 
'     Print UT.AllTestContainers.Join(", ")
' 
' End