Changeset 656 for trunk/ab5.0/ablib/TestCase/SimpleTestCase/StringBuilderTest.ab

Timestamp:

Nov 9, 2008, 2:36:29 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

文字列比較のテストを3引数版UnitTestの呼出に変更

File:

• trunk/ab5.0/ablib/TestCase/SimpleTestCase/StringBuilderTest.ab (modified) (1 diff)

trunk/ab5.0/ablib/TestCase/SimpleTestCase/StringBuilderTest.ab

@@ -9 +9 @@
 Sub TestMain()
     Dim sb = New StringBuilder("Hello")
-    UnitTest("StringBuilder - Constractor & ToString", sb.ToString, "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")
+    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, "")
+    UnitTest("StringBuilder.Length = 0", sb.ToString(), "")
     sb.Append("でてこいでてこいいけのこい")
     sb.Replace("こい", "いけ").Replace("いけ", "こい")
-    UnitTest("StringBuilder.Replace (String)", sb.ToString, "でてこいでてこいこいのこい")
+    UnitTest("StringBuilder.Replace (String)", sb.ToString(), "でてこいでてこいこいのこい")
     sb.Length = 0
     sb.Append(123)
-    UnitTest("StringBuilder.Append (Long)", sb.ToString, "123")
+    UnitTest("StringBuilder.Append (Long)", sb.ToString(), "123")
 End Sub