source: trunk/TestCase/SimpleTestCase/SimpleTestCase.ab@ 300

' SimpleTestCase.ab

#console
#include "SimpleTestCase.idx"

Function UnitTest( msg As String, isSuccessful As Boolean )
    Dim resultStr As String
    If isSuccessful Then
        resultStr = Ex"OK\t"
    Else
        resultStr = Ex"FAILURE!"
    End If

    Print resultStr, msg
End Function

Print "Please enter any key"
Dim a As Long
Input a