|
Last change
on this file since 375 was 375, checked in by dai, 16 years ago |
|
Throw→Catch間のパラメータ引渡しに対応。
グローバル領域でのTryスコープを可能にした。これで例外処理機構実装完了。
エディタの補間機能にTry/Catch/Finally/EndTryを追加。
|
|
File size:
750 bytes
|
| Line | |
|---|
| 1 | Namespace ExceptionTest
|
|---|
| 2 |
|
|---|
| 3 | Sub BadProc()
|
|---|
| 4 | Throw New String("hello! I am bad proc.")
|
|---|
| 5 | End Sub
|
|---|
| 6 |
|
|---|
| 7 | Sub TestMain()
|
|---|
| 8 | Dim resultOfTest1 = False As Boolean
|
|---|
| 9 | Dim resultOfTest2 = False As Boolean
|
|---|
| 10 | Dim resultOfTest3 = False As Boolean
|
|---|
| 11 | Try
|
|---|
| 12 | Try
|
|---|
| 13 | BadProc()
|
|---|
| 14 | Finally
|
|---|
| 15 | resultOfTest1 = True
|
|---|
| 16 | End Try
|
|---|
| 17 | Catch msg As String
|
|---|
| 18 | ' msgの受け渡しが未完成
|
|---|
| 19 | If msg = "hello! I am bad proc." Then
|
|---|
| 20 | resultOfTest2 = True
|
|---|
| 21 | End If
|
|---|
| 22 | Catch
|
|---|
| 23 | System.Diagnostics.Trace.WriteLine( "Catchが実行された。ここに来るのは正しくない" )
|
|---|
| 24 | Finally
|
|---|
| 25 | resultOfTest3 = True
|
|---|
| 26 | End Try
|
|---|
| 27 |
|
|---|
| 28 | UnitTest( "Exception1", resultOfTest1 )
|
|---|
| 29 | UnitTest( "Exception2", resultOfTest2 )
|
|---|
| 30 | UnitTest( "Exception3", resultOfTest3 )
|
|---|
| 31 | End Sub
|
|---|
| 32 |
|
|---|
| 33 | End Namespace
|
|---|
| 34 |
|
|---|
| 35 | ExceptionTest.TestMain()
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
