39 lines
No EOL
976 B
Text
39 lines
No EOL
976 B
Text
' 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 |