Changeset 475 for trunk/TestCase/SimpleTestCase/SerializeTest.ab

Timestamp:

Mar 13, 2008, 9:44:51 AM (16 years ago)

Author:

dai

Message:

・XmlSerializer.Deserializeメソッドを実装（仮実装なため、数値メンバのシリアライズのみに留まっている）。
・XmlNode.LastChildメソッドを追加。
・XmlNode.NextSiblingメソッドを追加。
・XmlNode.PreviouseSiblingメソッドを追加。

File:

• trunk/TestCase/SimpleTestCase/SerializeTest.ab (modified) (4 diffs)

trunk/TestCase/SimpleTestCase/SerializeTest.ab

@@ -1 +1 @@
 Namespace SerializeTest
 
+
 Class Foo
+Public
     a As Long
     b As Long
     c As Long
     d As Long
-Public
+
     Sub Foo()
         a=100
@@ -21 +23 @@
     ' fooインスタンスを生成
     Dim foo = New Foo
+    foo.a = 500
+    foo.b = 600
+    foo.c = 700
+    foo.d = 800
 
 
@@ -29 +35 @@
     ' 保存先のファイルを開いて、
     Dim fooXmlFilePath = tempDir + "\foo.xml"
-    Dim fs = New System.IO.FileStream( fooXmlFilePath, System.IO.FileMode.Create )
+    Dim ofs = New System.IO.FileStream( fooXmlFilePath, System.IO.FileMode.Create )
 
     ' シリアライズして、
     Dim serializer = New System.Xml.Serialization.XmlSerializer( foo.GetType() )
-    serializer.Serialize( fs, foo )
+    serializer.Serialize( ofs, foo )
 
     ' 閉じる。
-    fs.Close()
+    ofs.Close()
 
 
@@ -43 +49 @@
     '----------------------------------------------------------------
 
-    ' 読み込んでみる。
-    Dim doc = New System.Xml.XmlDocument
-    doc.Load( tempDir + "\foo.xml" )
-    System.Diagnostics.Debug.WriteLine( doc.OuterXml )
+    ' 読込先のファイルを開いて
+    Dim ifs = New System.IO.FileStream( fooXmlFilePath, System.IO.FileMode.Open )
 
-    ' TODO: デシリアライズは未完成(￣□￣；)
+    ' デシリアライズして
+    Dim fooDash = serializer.Deserialize( ifs ) As Foo
+
+    ' 閉じる
+    ifs.Close()
+
+    UnitTest( "XmlSerializer", foo.a = fooDash.a and foo.b = fooDash.b and foo.c = fooDash.c and foo.d = fooDash.d  )
 End Sub