'--------------------------------------------------------------------
' Test case of System.Text.StringBuilder Class
'--------------------------------------------------------------------

Imports System.Text

Namespace StringBuilderTest

Sub TestMain()
	Dim sb = New StringBuilder("Hello")
	UnitTest("StringBuilder - Constractor & ToString", sb.ToString = "Hello")
	UnitTest("StringBuilder.ToString(index, count)", sb.ToString(1, 3) = "ell")
	UnitTest("StringBuilder.Append", sb.Append("StringBuilder").ToString = "HelloStringBuilder")
	UnitTest("StringBuilder.Insert (String)", sb.Insert(5, ", ").ToString = "Hello, StringBuilder")
	sb.Length = 0
	UnitTest("StringBuilder.Length = 0", sb.ToString = "")
	sb.Append("でてこいでてこいいけのこい")
	sb.Replace("こい", "いけ").Replace("いけ", "こい")
	UnitTest("StringBuilder.Replace (String)", sb.ToString = "でてこいでてこいいけのこい")
End Sub

End Namespace 'ActiveBasic_StringsTest

StringBuilderTest.TestMain()