Changeset 222 for TestCase/SimpleTestCase/SimpleTestCase.ab

Timestamp:

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

Author:

dai

Message:

UnitTest関数を追加。

File:

• TestCase/SimpleTestCase/SimpleTestCase.ab (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"