Changeset 477 for trunk/TestCase/SimpleTestCase/StreamTest.ab

Timestamp:

Mar 13, 2008, 8:19:14 PM (17 years ago)

Author:

NoWest

Message:

MemoryStreamのテストケースを追加

File:

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

trunk/TestCase/SimpleTestCase/StreamTest.ab

@@ -5 +5 @@
 Sub TestMain()
     StringReaderTest()
+    MemoryStreamTest()
 End Sub
 
@@ -18 +19 @@
 End Sub
 
+Sub MemoryStreamTest()
+    Dim buf[3] As Byte
+    Dim ms = New MemoryStream(buf,0,4,True)
+    UnitTest("ms.CanRead  True", ms.CanRead() = True)
+    UnitTest("ms.CanWrite  True", ms.CanWrite() = True)
+    UnitTest("ms.Length = 4", ms.Length() = 4)
+    UnitTest("ms.Capacity = 4", ms.Capacity() = 4)
+    ms.WriteByte(11)
+    ms.WriteByte(22)
+    ms.WriteByte(33)
+    ms.Position = 0
+    UnitTest("ms.Position = 0", ms.Position() = 0)
+    UnitTest("ms.ReadByte - 11", ms.ReadByte() = 11)
+    UnitTest("ms.ReadByte - 22", ms.ReadByte() = 22)
+    UnitTest("ms.ReadByte - 33", ms.ReadByte() = 33)
+    UnitTest("ms.Position = 3", ms.Position() = 3)
+End Sub
+
 End Namespace