Changeset 222 for TestCase/SimpleTestCase

Timestamp:

Apr 30, 2007, 12:42:57 PM (19 years ago)

Author:

dai

Message:

UnitTest関数を追加。

Location:

TestCase/SimpleTestCase

Files:

• SimpleTestCase.ab (modified) (1 diff)
• SimpleTestCase.idx (modified) (1 diff)
• SimpleTestCase.pj (modified) (1 diff)

TestCase/SimpleTestCase/SimpleTestCase.ab

@@ -2 +2 @@
 #include "SimpleTestCase.idx"
 
-' ↓ ここからプログラムが実行されます
+Function UnitTest( msg As String, isSuccessful As Boolean )
+    Dim resultStr As String
+    If isSuccessful Then
+        resultStr = Ex"OK\t"
+    Else
+        resultStr = Ex"Faild!\t"
+    End If
+    
+    Print resultStr, msg
+End Function
 
 Print "Please enter any key"

TestCase/SimpleTestCase/SimpleTestCase.idx

@@ -4 +4 @@
 
 'Win32APIの定義ファイル
-
-'リソースファイル
-#include "resource.ab"
-#resource "SimpleTestCase.rc"

TestCase/SimpleTestCase/SimpleTestCase.pj

@@ -23 +23 @@
 #DEBUG_EXE_PATH=
 
-#RESOURCE=SimpleTestCase.rc
+#RESOURCE=0
 
 #SOURCE