Changeset 477 for trunk/TestCase/SimpleTestCase

Timestamp:

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

Author:

NoWest

Message:

MemoryStreamのテストケースを追加

Location:

trunk/TestCase/SimpleTestCase

Files:

• SimpleTestCase.idx (modified) (1 diff)
• SimpleTestCase.pj (modified) (1 diff)
• StreamTest.ab (modified) (2 diffs)

trunk/TestCase/SimpleTestCase/SimpleTestCase.idx

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

trunk/TestCase/SimpleTestCase/SimpleTestCase.pj

@@ -23 +23 @@
 #DEBUG_EXE_PATH=
 
-#RESOURCE=SimpleTestCase.rc
+#RESOURCE=0
 
 #SOURCE

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