Changeset 468 for trunk/TestCase/SimpleTestCase/SimpleTestCase.ab

Timestamp:

Mar 9, 2008, 12:00:01 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

TextWriter, StreamWriterの追加。
SPrintfの浮動小数点数変換で、NaN, Infiniteの出力に対応。
PathとDirectoryInfoのCreateDirectoryで、対象が既に存在するときには例外を投げないように修正。
SimpleTestCase内で使用する一時フォルダの場所にGetTempPathで取得する版を追加（コメントアウト）。

File:

• trunk/TestCase/SimpleTestCase/SimpleTestCase.ab (modified) (5 diffs)

trunk/TestCase/SimpleTestCase/SimpleTestCase.ab

@@ -5 +5 @@
 Dim hStdOut = _System_hConsoleOut
 
+Function GetTempDirectory() As String
+    Return System.IO.Path.GetDirectoryName( System.Windows.Forms.Application.ExecutablePath ) + "\temp\"
+'   Return System.IO.Path.GetTempPath()
+End Function
+
 Sub Initialize()
     ' 初期化関数
 
     ' 一時ディレクトリを空にしておく
-    Dim tempDir = System.IO.Path.GetDirectoryName( System.Windows.Forms.Application.ExecutablePath ) + "\temp"
+    Dim tempDir = GetTempDirectory()
     If System.IO.Directory.Exists( tempDir ) Then
-        ' 存在するときは一旦消す
-        System.IO.Directory.Delete( tempDir, True )
+        Try
+            ' 存在するときは一旦消す
+            System.IO.Directory.Delete( tempDir, True )
+        Catch e As System.IO.IOException
+            OutputDebugString(e.ToString)
+        End Try
     End If
     System.IO.Directory.CreateDirectory( tempDir )
@@ -24 +33 @@
 #include "SimpleTestCase.idx"
 
+Dim failureCount = 0 As DWord
+
 Sub UnitTest( msg As String, isSuccessful As Boolean )
     Dim resultStr = Nothing As String
@@ -30 +41 @@
     Else
         resultStr = Ex"FAILURE!"
+        failureCount++
     End If
 
@@ -49 +61 @@
         SetConsoleTextAttribute(hStdOut, BACKGROUND_RED Or BACKGROUND_GREEN Or BACKGROUND_INTENSITY)
         Print Ex"FAILURE!"; msg
-        Print "  test string = '" + test + "'"
+        Print "  期待 = '" + expectation + "'" + " 結果 = '" + test + "'"
         SetConsoleTextAttribute(hStdOut, csbi.wAttributes)
+        failureCount++
     End If
 End Sub
 
 Function GetExclusiveTempDirPath( testCaseName As String ) As String
-    Dim tempDir = System.IO.Path.GetDirectoryName( System.Windows.Forms.Application.ExecutablePath ) + "\temp"
-    Dim exclusiveTempDirPath = tempDir + "\" + testCaseName
+    Dim tempDir = GetTempDirectory()
+    Dim exclusiveTempDirPath = tempDir + testCaseName
 
     If Not System.IO.Directory.Exists( exclusiveTempDirPath ) Then
@@ -66 +79 @@
 End Function
 
+Print "失敗"; failureCount; "個"
 Print "Please Enter key"
 System.Console.ReadLine()