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

Timestamp:

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

Author:

dai

Message:

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

File:

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

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