Changeset 388 for trunk/TestCase

Timestamp:

Nov 25, 2007, 4:31:35 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

Stringなどで例外を投げるようにした。
#147の解決。
CType ASCII文字判定関数群の追加。

Location:

trunk/TestCase/SimpleTestCase

Files:

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

trunk/TestCase/SimpleTestCase/ExceptionTest.ab

@@ -2 +2 @@
 
 Sub BadProc()
-    Throw New System.Exception("hello! I am bad proc.")
+    Throw New System.SystemException("hello! I am bad proc.")
 End Sub
 

trunk/TestCase/SimpleTestCase/PathTest.ab

@@ -9 +9 @@
 Sub TestMain()
     Dim testPath = New String("C:\Dir.Name\file.name.ext")
-
     UnitTest("Path.GetFileName", Path.GetFileName(testPath) = "file.name.ext")
 
@@ -40 +39 @@
 
 End Namespace
-
+Try
 PathTest.TestMain()
+Catch e As System.Exception
+    Debug
+    Print e.ToString()
+End Try