mrbgems/mruby-io/test/file.rb

   1 ##
   2 # IO Test
   3
   4 assert('File', '15.2.21') do
   5   File.class == Class
   6 end
   7
   8 assert('File', '15.2.21.2') do
   9   File.superclass == IO
  10 end
  11
  12 assert('File TEST SETUP') do
  13   MRubyIOTestUtil.io_test_setup
  14 end
  15
  16 assert('File#initialize', '15.2.21.4.1') do
  17   io = File.open($mrbtest_io_rfname, "r")
  18   assert_nil io.close
  19   assert_raise IOError do
  20     io.close
  21   end
  22 end
  23
  24 assert('File#path', '15.2.21.4.2') do
  25   io = File.open($mrbtest_io_rfname, "r")
  26   assert_equal $mrbtest_io_msg, io.read
  27   assert_equal $mrbtest_io_rfname, io.path
  28   io.close
  29   assert_equal $mrbtest_io_rfname, io.path
  30   io.closed?
  31 end
  32
  33 assert('File.basename') do
  34   assert_equal '/', File.basename('//')
  35   assert_equal 'a', File.basename('/a/')
  36   assert_equal 'b', File.basename('/a/b')
  37   assert_equal 'b', File.basename('../a/b')
  38 end
  39
  40 assert('File.dirname') do
  41   assert_equal '.',    File.dirname('')
  42   assert_equal '.',    File.dirname('a')
  43   assert_equal '/',    File.dirname('/a')
  44   assert_equal 'a',    File.dirname('a/b')
  45   assert_equal '/a',   File.dirname('/a/b')
  46 end
  47
  48 assert('File.extname') do
  49   assert_equal '.txt', File.extname('foo/foo.txt')
  50   assert_equal '.gz',  File.extname('foo/foo.tar.gz')
  51   assert_equal '', File.extname('foo/bar')
  52   assert_equal '', File.extname('foo/.bar')
  53   assert_equal '', File.extname('foo.txt/bar')
  54   assert_equal '', File.extname('.foo')
  55 end
  56
  57 assert('IO#flock') do
  58   f = File.open $mrbtest_io_rfname
  59   begin
  60     assert_equal(f.flock(File::LOCK_SH), 0)
  61     assert_equal(f.flock(File::LOCK_UN), 0)
  62     assert_equal(f.flock(File::LOCK_EX | File::LOCK_NB), 0)
  63     assert_equal(f.flock(File::LOCK_UN), 0)
  64   rescue NotImplementedError => e
  65     skip e.message
  66   ensure
  67     f.close
  68   end
  69 end
  70
  71 assert('File.join') do
  72   assert_equal "", File.join()
  73   assert_equal "a", File.join("a")
  74   assert_equal "/a", File.join("/a")
  75   assert_equal "a/", File.join("a/")
  76   assert_equal "a/b/c", File.join("a", "b", "c")
  77   assert_equal "/a/b/c", File.join("/a", "b", "c")
  78   assert_equal "a/b/c/", File.join("a", "b", "c/")
  79   assert_equal "a/b/c", File.join("a/", "/b/", "/c")
  80   assert_equal "a/b/c", File.join(["a", "b", "c"])
  81   assert_equal "a/b/c", File.join("a", ["b", ["c"]])
  82 end
  83
  84 assert('File.realpath') do
  85   if File::ALT_SEPARATOR
  86     readme_path = File._getwd + File::ALT_SEPARATOR + "README.md"
  87     assert_equal readme_path, File.realpath("README.md")
  88   else
  89     dir = MRubyIOTestUtil.mkdtemp("mruby-io-test.XXXXXX")
  90     begin
  91       dir1 = File.realpath($mrbtest_io_rfname)
  92       dir2 = File.realpath("./#{dir}//./../#{$mrbtest_io_symlinkname}")
  93       assert_equal dir1, dir2
  94     ensure
  95       MRubyIOTestUtil.rmdir dir
  96     end
  97   end
  98 end
  99
 100 assert("File.readlink") do
 101   begin
 102     assert_equal $mrbtest_io_rfname, File.readlink($mrbtest_io_symlinkname)
 103   rescue NotImplementedError => e
 104     skip e.message
 105   end
 106 end
 107
 108 assert("File.readlink fails with non-symlink") do
 109   begin
 110     assert_raise(RuntimeError) {
 111       begin
 112         File.readlink($mrbtest_io_rfname)
 113       rescue => e
 114         if Object.const_defined?(:SystemCallError) and e.kind_of?(SystemCallError)
 115           raise RuntimeError, "SystemCallError converted to RuntimeError"
 116         end
 117         raise e
 118       end
 119     }
 120   rescue NotImplementedError => e
 121     skip e.message
 122   end
 123 end
 124
 125 assert('File TEST CLEANUP') do
 126   assert_nil MRubyIOTestUtil.io_test_cleanup
 127 end
 128
 129 assert('File.expand_path') do
 130   assert_equal "/",    File.expand_path("..", "/tmp"),       "parent path with base_dir (1)"
 131   assert_equal "/tmp", File.expand_path("..", "/tmp/mruby"), "parent path with base_dir (2)"
 132
 133   assert_equal "/home", File.expand_path("/home"),      "absolute"
 134   assert_equal "/home", File.expand_path("/home", "."), "absolute with base_dir"
 135
 136   assert_equal "/hoge", File.expand_path("/tmp/..//hoge")
 137   assert_equal "/hoge", File.expand_path("////tmp/..///////hoge")
 138
 139   assert_equal "/", File.expand_path("../../../..", "/")
 140   if File._getwd[1] == ":"
 141     drive_letter = File._getwd[0]
 142     assert_equal drive_letter + ":\\", File.expand_path(([".."] * 100).join("/"))
 143   else
 144     assert_equal "/", File.expand_path(([".."] * 100).join("/"))
 145   end
 146 end
 147
 148 assert('File.expand_path (with ENV)') do
 149   skip unless Object.const_defined?(:ENV) && ENV['HOME']
 150
 151   assert_equal ENV['HOME'], File.expand_path("~/"),      "home"
 152   assert_equal ENV['HOME'], File.expand_path("~/", "/"), "home with base_dir"
 153
 154   assert_equal "#{ENV['HOME']}/user", File.expand_path("user", ENV['HOME']), "relative with base_dir"
 155 end
 156
 157 assert('File.path') do
 158   assert_equal "", File.path("")
 159   assert_equal "a/b/c", File.path("a/b/c")
 160   assert_equal "a/../b/./c", File.path("a/../b/./c")
 161   assert_raise(TypeError) { File.path(nil) }
 162   assert_raise(TypeError) { File.path(123) }
 163
 164 end
 165
 166 assert('File.symlink') do
 167   target_name = "/usr/bin"
 168   symlink_name = "test-bin-dummy"
 169   if !File.exist?(target_name)
 170     skip("target directory of File.symlink is not found")
 171   else
 172     assert_equal 0, File.symlink(target_name, symlink_name)
 173     begin
 174       assert_equal true, File.symlink?(symlink_name)
 175     ensure
 176       File.delete symlink_name
 177     end
 178   end
 179 end
 180
 181 assert('File.chmod') do
 182   File.open('chmod-test', 'w') {}
 183   begin
 184     assert_equal 1, File.chmod(0400, 'chmod-test')
 185   ensure
 186     File.delete('chmod-test')
 187   end
 188 end