Index: trunk/TestCase/SimpleTestCase/ExceptionTest.ab
===================================================================
--- trunk/TestCase/SimpleTestCase/ExceptionTest.ab	(revision 375)
+++ trunk/TestCase/SimpleTestCase/ExceptionTest.ab	(revision 375)
@@ -0,0 +1,35 @@
+Namespace ExceptionTest
+
+Sub BadProc()
+	Throw New String("hello! I am bad proc.")
+End Sub
+
+Sub TestMain()
+	Dim resultOfTest1 = False As Boolean
+	Dim resultOfTest2 = False As Boolean
+	Dim resultOfTest3 = False As Boolean
+	Try
+		Try
+			BadProc()
+		Finally
+			resultOfTest1 = True
+		End Try
+	Catch msg As String
+		' msgの受け渡しが未完成
+		If msg = "hello! I am bad proc." Then
+			resultOfTest2 = True
+		End If
+	Catch
+		System.Diagnostics.Trace.WriteLine( "Catchが実行された。ここに来るのは正しくない" )
+	Finally
+		resultOfTest3 = True
+	End Try
+
+	UnitTest( "Exception1", resultOfTest1 )
+	UnitTest( "Exception2", resultOfTest2 )
+	UnitTest( "Exception3", resultOfTest3 )
+End Sub
+
+End Namespace
+
+ExceptionTest.TestMain()
Index: trunk/TestCase/SimpleTestCase/SimpleTestCase.idx
===================================================================
--- trunk/TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 371)
+++ trunk/TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 375)
@@ -28,4 +28,6 @@
 #include "InterfaceTest.ab"
 _ClearNamespaceImported
+#include "ExceptionTest.ab"
+_ClearNamespaceImported
 
 'リソースファイル
Index: trunk/TestCase/SimpleTestCase/SimpleTestCase.pj
===================================================================
--- trunk/TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 371)
+++ trunk/TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 375)
@@ -39,2 +39,3 @@
 DelegateTest.ab
 InterfaceTest.ab
+ExceptionTest.ab