Changeset 385 for trunk/TestCase

Timestamp:

Nov 20, 2007, 12:04:07 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

例外クラスの実装。ExceptionTestでSystem.Exceptionを使用するようにした。
StringBuilderでコメント化されていた例外を投げる処理を有効にした（除OutOfMemory）。
Str$の実装にSPrintfなどを使用するようにした。
毎回Object.ReferenceEquals(xxx, Nothing)と打つのが面倒なので、IsNothingを導入。

Location:

trunk/TestCase/SimpleTestCase

Files:

• ExceptionTest.ab (modified) (2 diffs)
• SPrintFTest.ab (modified) (1 diff)

trunk/TestCase/SimpleTestCase/ExceptionTest.ab

@@ -2 +2 @@
 
 Sub BadProc()
-    Throw New String("hello! I am bad proc.")
+    Throw New System.Exception("hello! I am bad proc.")
 End Sub
 
@@ -15 +15 @@
             resultOfTest1 = True
         End Try
-    Catch msg As String
+    Catch msg As System.Exception
         ' msgの受け渡しが未完成
-        If msg = "hello! I am bad proc." Then
+        If msg.Message = "hello! I am bad proc." Then
             resultOfTest2 = True
         End If
     Catch
         System.Diagnostics.Trace.WriteLine( "Catchが実行された。ここに来るのは正しくない" )
+        UnitTest( "到達しないコードへ到達", False)
     Finally
         resultOfTest3 = True

trunk/TestCase/SimpleTestCase/SPrintFTest.ab

@@ -140 +140 @@
     s = FormatCharacter(Asc("Y"), DWORD_MAX, 0, None)
     UnitTest(Ex"FormatCharacter(\qY\q)", s, "Y")
-    s = FormatCharacter(Asc("I"), DWORD_MAX, 3, Left)
+    s = FormatCharacter(Asc("I"), DWORD_MAX, 3, LeftSide)
     UnitTest(Ex"FormatCharacter(\qI\q, Left)", s, "I  ")
 End Sub