1 | Namespace StreamTest
|
---|
2 |
|
---|
3 | Imports System.IO
|
---|
4 |
|
---|
5 | Sub TestMain()
|
---|
6 | StringReaderTest()
|
---|
7 | MemoryStreamTest()
|
---|
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)
|
---|
15 | UnitTest("sr.ReadLine() \n", sr.ReadLine(), "abc")
|
---|
16 | UnitTest("sr.ReadLine() \r\n", sr.ReadLine(), "123")
|
---|
17 | Dim s = sr.ReadToEnd()
|
---|
18 | UnitTest("sr.ReadToEnd() \r\n", s, Ex"あいうえお\r\nアイウエオ")
|
---|
19 | End Sub
|
---|
20 |
|
---|
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 |
|
---|
39 | End Namespace
|
---|
40 |
|
---|
41 | StreamTest.TestMain()
|
---|