' 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
