source: trunk/TestCase/SimpleTestCase/StreamTest.ab@ 477

Namespace StreamTest

Imports System.IO

Sub TestMain()
    StringReaderTest()
    MemoryStreamTest()
End Sub

Sub StringReaderTest()
    Dim sr = New StringReader(Ex"0 abc\n123\r\nあいうえお\r\nアイウエオ")
    UnitTest("sr.Read() - 1", sr.Read() = &h30)
    UnitTest("sr.Read() - 2", sr.Read() = &h20)
    UnitTest("sr.Peek()", sr.Peek() = &h61)
    UnitTest("sr.ReadLine() \n", sr.ReadLine() = "abc")
    UnitTest("sr.ReadLine() \r\n", sr.ReadLine() = "123")
    Dim s = sr.ReadToEnd()
    UnitTest("sr.ReadToEnd() \r\n", s = Ex"あいうえお\r\nアイウエオ")
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

StreamTest.TestMain()