source: TestCase/SimpleTestCase/PathTest.ab@ 293

Last change on this file since 293 was 271, checked in by dai, 18 years ago

SHFILEOPSTRUCT.hWnd → SHFILEOPSTRUCT.hwnd
System.IOに属するクラスに名前空間を適用した。
File size: 1.4 KB
Line 
1'--------------------------------------------------------------------
2' Test case of Path Class
3'--------------------------------------------------------------------
4#require <Classes\System\IO\Path.ab>
5
6Namespace PathTest
7
8Imports System.IO
9
10Sub TestMain()
11 Dim testPath = New String("C:\Dir.Name\file.name.ext")
12
13 UnitTest("Path.GetFileName", Path.GetFileName(testPath) = "file.name.ext")
14
15 UnitTest("Path.GetFileNameWithoutExtension", Path.GetFileNameWithoutExtension(testPath) = "file.name")
16
17
18 UnitTest("Path.GetExtension", Path.GetExtension(testPath) = ".ext")
19
20 UnitTest("Path.ChangeExtension", Path.ChangeExtension(testPath, ".newExt") = "C:\Dir.Name\file.name.newExt")
21
22 UnitTest("Path.HasExtension (Case1)", Path.HasExtension(testPath) = True)
23 UnitTest("Path.HasExtension (Case2)", Path.HasExtension("fileName") = False)
24
25 UnitTest("Path.GetPathRoot", Path.GetPathRoot(testPath) = "C:\")
26
27 UnitTest("Path.IsPathRooted (Case1)", Path.IsPathRooted(testPath) = True)
28 UnitTest("Path.IsPathRooted (Case2)", Path.IsPathRooted("Dir.Name\file.name.ext") = False)
29
30 UnitTest("Path.Combine (Case1)", Path.Combine("C:\dir", "filename.txt") = "C:\dir\filename.txt")
31 UnitTest("Path.Combine (Case2)", Path.Combine("C:\dir\", "filename.txt") = "C:\dir\filename.txt")
32
33/*
34 テストしていないメソッド
35 GetRandomFileName
36 GetTempFileName
37 GetTempPath
38 GetFullPath
39*/
40End Sub
41
42End Namespace
43
44PathTest.TestMain()
Note: See TracBrowser for help on using the repository browser.