21 lines
576 B
Text
21 lines
576 B
Text
|
' Gambas module file
|
||
|
|
|
||
|
|
Public Sub Main()
|
||
|
|
|
||
|
|
Dim msg As String
|
||
|
|
UnitTest.Main("TestAllAsserts", Null, True)
|
||
|
|
UnitTest.Main("TestSetup", Null, True)
|
||
|
|
msg = "The following \"Not ok\"s and failures are intentional\n and needed to test the functionality of unittest itself."
|
||
|
|
Assert.Note(msg)
|
||
|
|
msg = "Nothing wrong. No success was needed to test unittest itself.\nIf you want succeed with Gambas, test your own projects."
|
||
|
|
UnitTest.Main("TestFailures", Null, True)
|
||
|
|
UnitTest.Main("TestError", Null, True)
|
||
|
|
Assert.Note(msg)
|
||
|
|
|
||
|
|
|
||
|
|
'
|
||
|
|
'
|
||
|
|
'
|
||
|
|
|
||
|
|
End
|