11 lines
132 B
Text
11 lines
132 B
Text
' Gambas module file
|
|
|
|
Public Sub Main()
|
|
|
|
Dim r As New UnitTest
|
|
|
|
r.DoSelfTest = True
|
|
'r.Test()
|
|
r.ShowTestForm()
|
|
|
|
End
|