Changeset 385 for trunk/TestCase/SimpleTestCase/ExceptionTest.ab

Timestamp:

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

Author:

イグトランス (egtra)

Message:

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

File:

• trunk/TestCase/SimpleTestCase/ExceptionTest.ab (modified) (2 diffs)

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