Changeset 222
- Timestamp:
- Apr 30, 2007, 12:42:57 PM (18 years ago)
- Location:
- TestCase/SimpleTestCase
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
TestCase/SimpleTestCase/SimpleTestCase.ab
r221 r222 2 2 #include "SimpleTestCase.idx" 3 3 4 ' ↓ ここからプログラムが実行されます 4 Function 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 13 End Function 5 14 6 15 Print "Please enter any key" -
TestCase/SimpleTestCase/SimpleTestCase.idx
r221 r222 4 4 5 5 'Win32APIの定義ファイル 6 7 'リソースファイル8 #include "resource.ab"9 #resource "SimpleTestCase.rc" -
TestCase/SimpleTestCase/SimpleTestCase.pj
r221 r222 23 23 #DEBUG_EXE_PATH= 24 24 25 #RESOURCE= SimpleTestCase.rc25 #RESOURCE=0 26 26 27 27 #SOURCE
Note:
See TracChangeset
for help on using the changeset viewer.