1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
require 'test/unit'
$KCODE = 'none'
class TestPath < Test::Unit::TestCase
def test_path
assert_equal("a", File.basename("a"))
assert_equal("b", File.basename("a/b"))
assert_equal("b", File.basename("a/b/"))
assert_equal("/", File.basename("/"))
assert_equal("/", File.basename("//"))
assert_equal("/", File.basename("///"))
assert_equal("b", File.basename("a/b////"))
assert_equal("a", File.basename("a.rb", ".rb"))
assert_equal("a", File.basename("a.rb///", ".rb"))
assert_equal("a", File.basename("a.rb///", ".*"))
assert_equal("a.rb", File.basename("a.rb///", ".c"))
assert_equal(".", File.dirname("a"))
assert_equal("/", File.dirname("/"))
assert_equal("/", File.dirname("/a"))
assert_equal("a", File.dirname("a/b"))
assert_equal("a/b", File.dirname("a/b/c"))
assert_equal("/a/b", File.dirname("/a/b/c"))
assert_equal("/a", File.dirname("/a/b/"))
assert_equal("/a", File.dirname("/a/b///"))
case Dir.pwd
when %r'\A\w:'
assert_match(/\A\w:\/\z/, File.expand_path(".", "/"))
assert_match(/\A\w:\/a\z/, File.expand_path("a", "/"))
dosish = true
when %r'\A//'
assert_match(%r'\A//[^/]+/[^/]+\z', File.expand_path(".", "/"))
assert_match(%r'\A//[^/]+/[^/]+/a\z', File.expand_path(".", "/"))
dosish = true
else
assert_equal("/", File.expand_path(".", "/"))
assert_equal("/sub", File.expand_path("sub", "/"))
end
if dosish
assert_equal("//machine/share", File.expand_path("/", "//machine/share/sub"))
assert_equal("//machine/share/dir", File.expand_path("/dir", "//machine/share/sub"))
assert_equal("z:/", File.expand_path("/", "z:/sub"))
assert_equal("z:/dir", File.expand_path("/dir", "z:/sub"))
end
assert_equal("//", File.expand_path(".", "//"))
assert_equal("//sub", File.expand_path("sub", "//"))
end
end
|
