[432] | 1 | Namespace StreamTest
|
---|
| 2 |
|
---|
| 3 | Imports System.IO
|
---|
| 4 |
|
---|
| 5 | Sub TestMain()
|
---|
| 6 | StringReaderTest()
|
---|
[477] | 7 | MemoryStreamTest()
|
---|
[432] | 8 | End Sub
|
---|
| 9 |
|
---|
| 10 | Sub StringReaderTest()
|
---|
| 11 | Dim sr = New StringReader(Ex"0 abc\n123\r\nあいうえお\r\nアイウエオ")
|
---|
| 12 | UnitTest("sr.Read() - 1", sr.Read() = &h30)
|
---|
| 13 | UnitTest("sr.Read() - 2", sr.Read() = &h20)
|
---|
| 14 | UnitTest("sr.Peek()", sr.Peek() = &h61)
|
---|
[656] | 15 | UnitTest("sr.ReadLine() \n", sr.ReadLine(), "abc")
|
---|
| 16 | UnitTest("sr.ReadLine() \r\n", sr.ReadLine(), "123")
|
---|
[432] | 17 | Dim s = sr.ReadToEnd()
|
---|
[656] | 18 | UnitTest("sr.ReadToEnd() \r\n", s, Ex"あいうえお\r\nアイウエオ")
|
---|
[432] | 19 | End Sub
|
---|
| 20 |
|
---|
[477] | 21 | Sub MemoryStreamTest()
|
---|
| 22 | Dim buf[3] As Byte
|
---|
| 23 | Dim ms = New MemoryStream(buf,0,4,True)
|
---|
| 24 | UnitTest("ms.CanRead True", ms.CanRead() = True)
|
---|
| 25 | UnitTest("ms.CanWrite True", ms.CanWrite() = True)
|
---|
| 26 | UnitTest("ms.Length = 4", ms.Length() = 4)
|
---|
| 27 | UnitTest("ms.Capacity = 4", ms.Capacity() = 4)
|
---|
| 28 | ms.WriteByte(11)
|
---|
| 29 | ms.WriteByte(22)
|
---|
| 30 | ms.WriteByte(33)
|
---|
| 31 | ms.Position = 0
|
---|
| 32 | UnitTest("ms.Position = 0", ms.Position() = 0)
|
---|
| 33 | UnitTest("ms.ReadByte - 11", ms.ReadByte() = 11)
|
---|
| 34 | UnitTest("ms.ReadByte - 22", ms.ReadByte() = 22)
|
---|
| 35 | UnitTest("ms.ReadByte - 33", ms.ReadByte() = 33)
|
---|
| 36 | UnitTest("ms.Position = 3", ms.Position() = 3)
|
---|
| 37 | End Sub
|
---|
| 38 |
|
---|
[432] | 39 | End Namespace
|
---|
| 40 |
|
---|
| 41 | StreamTest.TestMain()
|
---|