Changeset 465 for trunk/TestCase/SimpleTestCase/XmlTest.ab
- Timestamp:
- Mar 8, 2008, 4:52:01 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/TestCase/SimpleTestCase/XmlTest.ab
r444 r465 3 3 4 4 Sub TestMain() 5 ' 一時ディレクトリを取得 6 Dim tempDir = GetExclusiveTempDirPath( "XmlTest" ) 7 5 8 Dim doc = New System.Xml.XmlDocument() 6 doc.AppendChild( doc.CreateXmlDeclaration( "1.0", " UTF-8", Nothing ) )9 doc.AppendChild( doc.CreateXmlDeclaration( "1.0", "shift-jis", Nothing ) ) 7 10 doc.AppendChild( doc.CreateElement( "root" ) ) 8 11 doc.ChildNodes[1].AppendChild( doc.CreateElement( "test" ) ) … … 15 18 doc.ChildNodes[1].Attributes.Add( attr2 ) 16 19 17 System.Diagnostics.Debug.WriteLine( doc.OuterXml() ) 20 ' 書いて 21 doc.Save( tempDir + "\test.xml" ) 22 23 ' 読んで 24 Dim clone = New System.Xml.XmlDocument 25 clone.Load( tempDir + "\test.xml" ) 26 27 ' 比較してみる 28 UnitTest( "XmlTest", doc.OuterXml = clone.OuterXml ) 18 29 End Sub 19 30
Note:
See TracChangeset
for help on using the changeset viewer.