#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"Faild!\t"
	End If
	
	Print resultStr, msg
End Function

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