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

' SimpleTestCase.ab

#console

Dim hStdOut = _System_hConsoleOut

Dim csbi As CONSOLE_SCREEN_BUFFER_INFO
GetConsoleScreenBufferInfo(hStdOut, csbi)

#include "SimpleTestCase.idx"

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

    If Not isSuccessful Then
        SetConsoleTextAttribute(hStdOut, BACKGROUND_RED Or BACKGROUND_GREEN Or BACKGROUND_INTENSITY)
    End If

    Print resultStr; msg

    If Not isSuccessful Then
        SetConsoleTextAttribute(hStdOut, csbi.wAttributes)
    End If
End Function

Function UnitTest( msg As String, test As String, expectation As String)
    If test = expectation Then
        Print Ex"OK      "; msg
    Else
        SetConsoleTextAttribute(hStdOut, BACKGROUND_RED Or BACKGROUND_GREEN Or BACKGROUND_INTENSITY)
        Print Ex"FAILURE!"; msg
        Print "  test string = '" + test + "'"
        SetConsoleTextAttribute(hStdOut, csbi.wAttributes)
    End If
End Function

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