Index: trunk/TestCase/SimpleTestCase/SimpleTestCase.idx
===================================================================
--- trunk/TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 476)
+++ trunk/TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 477)
@@ -40,6 +40,2 @@
 #include "SerializeTest.ab"
 _ClearNamespaceImported
-
-'リソースファイル
-#include "resource.ab"
-#resource "SimpleTestCase.rc"
Index: trunk/TestCase/SimpleTestCase/SimpleTestCase.pj
===================================================================
--- trunk/TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 476)
+++ trunk/TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 477)
@@ -23,5 +23,5 @@
 #DEBUG_EXE_PATH=
 
-#RESOURCE=SimpleTestCase.rc
+#RESOURCE=0
 
 #SOURCE
Index: trunk/TestCase/SimpleTestCase/StreamTest.ab
===================================================================
--- trunk/TestCase/SimpleTestCase/StreamTest.ab	(revision 476)
+++ trunk/TestCase/SimpleTestCase/StreamTest.ab	(revision 477)
@@ -5,4 +5,5 @@
 Sub TestMain()
 	StringReaderTest()
+	MemoryStreamTest()
 End Sub
 
@@ -18,4 +19,22 @@
 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