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

Timestamp:

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

Author:

イグトランス (egtra)

Message:

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

File:

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

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

@@ -10 +10 @@
     Dim v1234 = New System.Version(1, 2, 3, 4)
 
-    UnitTest("Version(major, minor)", String.Compare(v12.ToString(), "1.2") = 0)
-    UnitTest("Version(major, minor, build)", String.Compare(v123.ToString(), "1.2.3") = 0)
-    UnitTest("Version(major, minor, build, revision)", String.Compare(v1234.ToString(), "1.2.3.4") = 0)
+    UnitTest("Version(major, minor)", v12.ToString(), "1.2")
+    UnitTest("Version(major, minor, build)", v123.ToString(), "1.2.3")
+    UnitTest("Version(major, minor, build, revision)", v1234.ToString(), "1.2.3.4")
 
-    UnitTest("Version.ToString(0)", String.Compare(v1234.ToString(0), "") = 0)
-    UnitTest("Version.ToString(1)", String.Compare(v1234.ToString(1), "1") = 0)
-    UnitTest("Version.ToString(2)", String.Compare(v1234.ToString(2), "1.2") = 0)
-    UnitTest("Version.ToString(3)", String.Compare(v1234.ToString(3), "1.2.3") = 0)
-    UnitTest("Version.ToString(4)", String.Compare(v1234.ToString(4), "1.2.3.4") = 0)
+    UnitTest("Version.ToString(0)", v1234.ToString(0), "")
+    UnitTest("Version.ToString(1)", v1234.ToString(1), "1")
+    UnitTest("Version.ToString(2)", v1234.ToString(2), "1.2")
+    UnitTest("Version.ToString(3)", v1234.ToString(3), "1.2.3")
+    UnitTest("Version.ToString(4)", v1234.ToString(4), "1.2.3.4")
 
     UnitTest("Version.Major", v1234.Major = 1)