Changeset 388 for trunk/TestCase/SimpleTestCase/PathTest.ab

Timestamp:

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

Author:

イグトランス (egtra)

Message:

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

File:

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

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