diff options
Diffstat (limited to 'test/ruby/test_path.rb')
-rw-r--r-- | test/ruby/test_path.rb | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/test/ruby/test_path.rb b/test/ruby/test_path.rb new file mode 100644 index 0000000000..d13ec66d30 --- /dev/null +++ b/test/ruby/test_path.rb @@ -0,0 +1,48 @@ +require 'test/unit' + +$KCODE = 'none' + +class TestPath < Test::Unit::TestCase + def test_path + assert(File.basename("a") == "a") + assert(File.basename("a/b") == "b") + assert(File.basename("a/b/") == "b") + assert(File.basename("/") == "/") + assert(File.basename("//") == "/") + assert(File.basename("///") == "/") + assert(File.basename("a/b////") == "b") + assert(File.basename("a.rb", ".rb") == "a") + assert(File.basename("a.rb///", ".rb") == "a") + assert(File.basename("a.rb///", ".*") == "a") + assert(File.basename("a.rb///", ".c") == "a.rb") + assert(File.dirname("a") == ".") + assert(File.dirname("/") == "/") + assert(File.dirname("/a") == "/") + assert(File.dirname("a/b") == "a") + assert(File.dirname("a/b/c") == "a/b") + assert(File.dirname("/a/b/c") == "/a/b") + assert(File.dirname("/a/b/") == "/a") + assert(File.dirname("/a/b///") == "/a") + case Dir.pwd + when %r'\A\w:' + assert(/\A\w:\/\z/ =~ File.expand_path(".", "/")) + assert(/\A\w:\/a\z/ =~ File.expand_path("a", "/")) + dosish = true + when %r'\A//' + assert(%r'\A//[^/]+/[^/]+\z' =~ File.expand_path(".", "/")) + assert(%r'\A//[^/]+/[^/]+/a\z' =~ File.expand_path(".", "/")) + dosish = true + else + assert(File.expand_path(".", "/") == "/") + assert(File.expand_path("sub", "/") == "/sub") + end + if dosish + assert(File.expand_path("/", "//machine/share/sub") == "//machine/share") + assert(File.expand_path("/dir", "//machine/share/sub") == "//machine/share/dir") + assert(File.expand_path("/", "z:/sub") == "z:/") + assert(File.expand_path("/dir", "z:/sub") == "z:/dir") + end + assert(File.expand_path(".", "//") == "//") + assert(File.expand_path("sub", "//") == "//sub") + end +end |