Changeset 465 for trunk/TestCase

Timestamp:

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

Author:

dai

Message:

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

Location:

trunk/TestCase/SimpleTestCase

Files:

• SerializeTest.ab (added)
• SimpleTestCase.ab (modified) (2 diffs)
• SimpleTestCase.idx (modified) (1 diff)
• SimpleTestCase.pj (modified) (2 diffs)
• XmlTest.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()

trunk/TestCase/SimpleTestCase/SimpleTestCase.idx

@@ -38 +38 @@
 #include "XmlTest.ab"
 _ClearNamespaceImported
-
-'リソースファイル
-#include "resource.ab"
-#resource "SimpleTestCase.rc"
+#include "SerializeTest.ab"
+_ClearNamespaceImported

trunk/TestCase/SimpleTestCase/SimpleTestCase.pj

@@ -23 +23 @@
 #DEBUG_EXE_PATH=
 
-#RESOURCE=SimpleTestCase.rc
+#RESOURCE=0
 
 #SOURCE
@@ -44 +44 @@
 StreamTest.ab
 XmlTest.ab
+SerializeTest.ab

trunk/TestCase/SimpleTestCase/XmlTest.ab

@@ -3 +3 @@
 
 Sub TestMain()
+    ' 一時ディレクトリを取得
+    Dim tempDir = GetExclusiveTempDirPath( "XmlTest" )
+
     Dim doc = New System.Xml.XmlDocument()
-    doc.AppendChild( doc.CreateXmlDeclaration( "1.0", "UTF-8", Nothing ) )
+    doc.AppendChild( doc.CreateXmlDeclaration( "1.0", "shift-jis", Nothing ) )
     doc.AppendChild( doc.CreateElement( "root" ) )
     doc.ChildNodes[1].AppendChild( doc.CreateElement( "test" ) )
@@ -15 +18 @@
     doc.ChildNodes[1].Attributes.Add( attr2 )
 
-    System.Diagnostics.Debug.WriteLine( doc.OuterXml() )
+    ' 書いて
+    doc.Save( tempDir + "\test.xml" )
+
+    ' 読んで
+    Dim clone = New System.Xml.XmlDocument
+    clone.Load( tempDir + "\test.xml" )
+
+    ' 比較してみる
+    UnitTest( "XmlTest", doc.OuterXml = clone.OuterXml )
 End Sub