|
Last change
on this file since 451 was 432, checked in by イグトランス (egtra), 17 years ago |
|
StreamReaderの完成。StringReaderの追加。
Consoleの追加（現在入力関係の一部のみ）。
|
|
File size:
577 bytes
|
| Rev | Line | |
|---|
| [432] | 1 | Namespace StreamTest
|
|---|
| 2 |
|
|---|
| 3 | Imports System.IO
|
|---|
| 4 |
|
|---|
| 5 | Sub TestMain()
|
|---|
| 6 | StringReaderTest()
|
|---|
| 7 | End Sub
|
|---|
| 8 |
|
|---|
| 9 | Sub StringReaderTest()
|
|---|
| 10 | Dim sr = New StringReader(Ex"0 abc\n123\r\nあいうえお\r\nアイウエオ")
|
|---|
| 11 | UnitTest("sr.Read() - 1", sr.Read() = &h30)
|
|---|
| 12 | UnitTest("sr.Read() - 2", sr.Read() = &h20)
|
|---|
| 13 | UnitTest("sr.Peek()", sr.Peek() = &h61)
|
|---|
| 14 | UnitTest("sr.ReadLine() \n", sr.ReadLine() = "abc")
|
|---|
| 15 | UnitTest("sr.ReadLine() \r\n", sr.ReadLine() = "123")
|
|---|
| 16 | Dim s = sr.ReadToEnd()
|
|---|
| 17 | UnitTest("sr.ReadToEnd() \r\n", s = Ex"あいうえお\r\nアイウエオ")
|
|---|
| 18 | End Sub
|
|---|
| 19 |
|
|---|
| 20 | End Namespace
|
|---|
| 21 |
|
|---|
| 22 | StreamTest.TestMain()
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
