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

Timestamp:

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

Author:

イグトランス (egtra)

Message:

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

File:

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

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

@@ -13 +13 @@
     UnitTest("sr.Read() - 2", sr.Read() = &h20)
     UnitTest("sr.Peek()", sr.Peek() = &h61)
-    UnitTest("sr.ReadLine() \n", sr.ReadLine() = "abc")
-    UnitTest("sr.ReadLine() \r\n", sr.ReadLine() = "123")
+    UnitTest("sr.ReadLine() \n", sr.ReadLine(), "abc")
+    UnitTest("sr.ReadLine() \r\n", sr.ReadLine(), "123")
     Dim s = sr.ReadToEnd()
-    UnitTest("sr.ReadToEnd() \r\n", s = Ex"あいうえお\r\nアイウエオ")
+    UnitTest("sr.ReadToEnd() \r\n", s, Ex"あいうえお\r\nアイウエオ")
 End Sub