Changeset 457 for trunk/TestCase

Timestamp:

Mar 6, 2008, 9:49:43 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

(SPrintF.ab) FormatIntegerExにStringBuilderを引数に取る版を追加。

Location:

trunk/TestCase/SimpleTestCase

Files:

• SimpleTestCase.ab (modified) (1 diff)
• StringBuilderTest.ab (modified) (1 diff)

trunk/TestCase/SimpleTestCase/SimpleTestCase.ab

@@ -40 +40 @@
 End Sub
 
-Print "Please enter any key"
-Dim a As Long
-Input a
+Print "Please Enter key"
+System.Console.ReadLine()

trunk/TestCase/SimpleTestCase/StringBuilderTest.ab

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