Changeset 438


Ignore:
Timestamp:
Feb 28, 2008, 6:55:14 PM (17 years ago)
Author:
dai
Message:

UnitTest関数をSub定義にした

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/TestCase/SimpleTestCase/SimpleTestCase.ab

    r383 r438  
    1010#include "SimpleTestCase.idx"
    1111
    12 Function UnitTest( msg As String, isSuccessful As Boolean )
     12Sub UnitTest( msg As String, isSuccessful As Boolean )
    1313    Dim resultStr = Nothing As String
    1414    If isSuccessful Then
     
    2727        SetConsoleTextAttribute(hStdOut, csbi.wAttributes)
    2828    End If
    29 End Function
     29End Sub
    3030
    31 Function UnitTest( msg As String, test As String, expectation As String)
     31Sub UnitTest( msg As String, test As String, expectation As String)
    3232    If test = expectation Then
    3333        Print Ex"OK      "; msg
     
    3838        SetConsoleTextAttribute(hStdOut, csbi.wAttributes)
    3939    End If
    40 End Function
     40End Sub
    4141
    4242Print "Please enter any key"
Note: See TracChangeset for help on using the changeset viewer.