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

Timestamp:

Mar 8, 2008, 4:52:01 PM (17 years ago)

Author:

dai

Message:

・ActiveBasic.Xml.Parserを仮実装。
・SerializeTestのテストケースを追加。
・SimpleTestCaseにおいて、一時ディレクトリを扱えるようにした。
・XmlTestのテストケースを更新。

File:

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

trunk/TestCase/SimpleTestCase/SimpleTestCase.ab

@@ -4 +4 @@
 
 Dim hStdOut = _System_hConsoleOut
+
+Sub Initialize()
+    ' 初期化関数
+
+    ' 一時ディレクトリを空にしておく
+    Dim tempDir = System.IO.Path.GetDirectoryName( System.Windows.Forms.Application.ExecutablePath ) + "\temp"
+    If System.IO.Directory.Exists( tempDir ) Then
+        ' 存在するときは一旦消す
+        System.IO.Directory.Delete( tempDir, True )
+    End If
+    System.IO.Directory.CreateDirectory( tempDir )
+End Sub
+
+Initialize()
 
 Dim csbi As CONSOLE_SCREEN_BUFFER_INFO
@@ -40 +54 @@
 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
+
+    If Not System.IO.Directory.Exists( exclusiveTempDirPath ) Then
+        ' 無かったら作る
+        System.IO.Directory.CreateDirectory( exclusiveTempDirPath )
+    End If
+
+    Return exclusiveTempDirPath
+End Function
+
 Print "Please Enter key"
 System.Console.ReadLine()