12 lines
151 B
Text
12 lines
151 B
Text
' Gambas module file
|
|
|
|
Public Sub Main()
|
|
|
|
Dim r As New UnitTest
|
|
|
|
' Do Selftest:
|
|
r.DoSelfTest = True
|
|
'r.Test()
|
|
r.ShowTestForm()
|
|
|
|
End
|