source: trunk/ab5.0/ablib/TestCase/SimpleTestCase/StringBuilderTest.ab@ 656

'--------------------------------------------------------------------
' 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(), "でてこいでてこいこいのこい")
    sb.Length = 0
    sb.Append(123)
    UnitTest("StringBuilder.Append (Long)", sb.ToString(), "123")
End Sub

End Namespace 'ActiveBasic_StringsTest

StringBuilderTest.TestMain()