Changeset 641 for trunk/ab5.0


Ignore:
Timestamp:
Oct 9, 2008, 8:05:40 PM (16 years ago)
Author:
イグトランス (egtra)
Message:

使用するUnitTest多重定義の変更

Location:
trunk/ab5.0/ablib/TestCase/SimpleTestCase
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ab5.0/ablib/TestCase/SimpleTestCase/SPrintFTest.ab

    r468 r641  
    9191    '現状では末尾の桁の誤差を制御しきれないので、文字列全体の一致比較を避けている。
    9292    s = FormatFloatF(12345678901234567e3, 2, 0, None)
    93     UnitTest("FormatFloatF(1.00, precision = 2)", Right$(s, 6) = "000.00")
     93    UnitTest("FormatFloatF(1.00, precision = 2)", Right$(s, 6), "000.00")
    9494
    9595    s = FormatIntegerLO(&hFFFFFFFFFFFFFFFF, 0, 0, Alt)
  • trunk/ab5.0/ablib/TestCase/SimpleTestCase/StringTest.ab

    r512 r641  
    66
    77Sub TestMain()
     8
    89    Dim s1 = Nothing As String
    9 
    1010
    1111    s1 = New String("hello")
    1212
    13     UnitTest("String.GetType", s1.GetType().Name = "String")
     13    UnitTest("String.GetType", s1.GetType().Name, "String")
    1414
    1515
    1616    UnitTest("String.String (case 0)", (memcmp(s1.StrPtr, "hello", SizeOf (Char) * 6) = 0))
    1717
    18     UnitTest("String.String (case 1)", (s1 = "hello"))
     18    UnitTest("String.String (case 1)", s1, "hello")
    1919
    2020    Dim nsz[2] = [&h31, &h32, &h33] As SByte
    2121    s1 = New String(nsz, 3)
    22     UnitTest("String.String (case 2)", (s1 = "123"))
     22    UnitTest("String.String (case 2)", s1, "123")
    2323
    2424    Dim wsz[4] = [&h31, &h32, &h33, &h34, &h35] As WCHAR
    2525    s1 = New String(wsz, 5)
    26     UnitTest("String.String (case 3)", (s1 = "12345"))
     26    UnitTest("String.String (case 3)", s1, "12345")
    2727
    2828    s1 = New String(&h30 As Char, 4)
    29     UnitTest("String.String (case 4)", (s1 = "0000"))
     29    UnitTest("String.String (case 4)", s1, "0000")
    3030
    3131    s1 = "literal"
    32     UnitTest("String.String (case 5)", (s1 = "literal"))
     32    UnitTest("String.String (case 5)", s1, "literal")
    3333
    3434    UnitTest("String.Length", (s1.Length = 7))
    3535
    36     UnitTest("String.ToString", (s1.ToString() = "literal"))
    37     UnitTest("String.Clone", (s1.Clone() = "literal"))
     36    UnitTest("String.ToString", s1.ToString(), "literal")
     37    UnitTest("String.Clone", s1.Clone(), "literal")
    3838
    3939    UnitTest("String.Operator []", (s1[7] = 0))
     
    5151    Dim o1 = New Object
    5252    Dim o2 = s1 As Object
    53     UnitTest("String.Concat", (String.Concat(o1, o2) = "Objectabc"))
     53    UnitTest("String.Concat", String.Concat(o1, o2), "Objectabc")
    5454
    55     UnitTest("String.Operator +", ((s1 + "def") = "abcdef"))
    56     UnitTest("String.Operator &", ((s1 + "xyz") = "abcxyz"))
     55    UnitTest("String.Operator +", (s1 + "def"), "abcdef")
     56    UnitTest("String.Operator &", (s1 + "xyz"), "abcxyz")
    5757
    5858    s1 = "へのへの"
Note: See TracChangeset for help on using the changeset viewer.