Changeset 222


Ignore:
Timestamp:
Apr 30, 2007, 12:42:57 PM (18 years ago)
Author:
dai
Message:

UnitTest関数を追加。

Location:
TestCase/SimpleTestCase
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • TestCase/SimpleTestCase/SimpleTestCase.ab

    r221 r222  
    22#include "SimpleTestCase.idx"
    33
    4 ' ↓ ここからプログラムが実行されます
     4Function UnitTest( msg As String, isSuccessful As Boolean )
     5    Dim resultStr As String
     6    If isSuccessful Then
     7        resultStr = Ex"OK\t"
     8    Else
     9        resultStr = Ex"Faild!\t"
     10    End If
     11   
     12    Print resultStr, msg
     13End Function
    514
    615Print "Please enter any key"
  • TestCase/SimpleTestCase/SimpleTestCase.idx

    r221 r222  
    44
    55'Win32APIの定義ファイル
    6 
    7 'リソースファイル
    8 #include "resource.ab"
    9 #resource "SimpleTestCase.rc"
  • TestCase/SimpleTestCase/SimpleTestCase.pj

    r221 r222  
    2323#DEBUG_EXE_PATH=
    2424
    25 #RESOURCE=SimpleTestCase.rc
     25#RESOURCE=0
    2626
    2727#SOURCE
Note: See TracChangeset for help on using the changeset viewer.