Sucks

I wrote this function this afternoon after being frustrated by the lack of decent checkpoints in QuickTest. I hope you find it insightful.

Public Function Sucks ( sString, sEvent )
    Dim sSuckMessage, bSuck, sNot
    sNot = “not”
    bSuck = False
    If sString = “checkpoints” Then
        bSuck = True
        sNot = “indeed”
    End If    sSuckMessage = “Expected Suckitude. “ & sString & _
        ” does “ & sNot & ” suck.”
    Sucks = reportStatus( bSuck, sEvent, sSuckMessage )
End Function