Add unit tests for ported filesystem functions.

1 files changed, 91 insertions, 0 deletions

diff --git a/test/unit/os/fs.moon b/test/unit/os/fs.moon
new file mode 100644
index 0000000000..cb4abdba7e
--- /dev/null
+++ b/test/unit/os/fs.moon
@@ -0,0 +1,91 @@
+{:cimport, :internalize, :eq, :ffi} = require 'test.unit.helpers'
+require 'lfs'
+
+fs = cimport './src/fs.h'
+cstr = ffi.typeof 'char[?]'
+
+describe 'fs function', ->
+  describe 'mch_dirname', ->
+    ffi.cdef 'int mch_dirname(char *buf, int len);'
+
+    mch_dirname = (buf, len) ->
+      fs.mch_dirname buf, len
+
+    OK = 1
+    FAIL = 0
+
+    before_each ->
+      export len = string.len(lfs.currentdir()) + 1
+
+    it 'returns OK and writes current directory into the buffer if it is buffer
+    is large enough', ->
+      buf = ffi.new 'char[?]', len
+      eq OK, (mch_dirname buf, len)
+      eq lfs.currentdir(), ffi.string(buf)
+
+    -- What kind of other failing cases are possible?
+    it 'returns FAIL if the buffer is too small', ->
+      buf = ffi.new 'char[?]', 0
+      eq FAIL, (mch_dirname buf, 0)
+
+  describe 'mch_FullName', ->
+    ffi.cdef 'int mch_FullName(char *fname, char *buf, int len, int force);'
+
+    mch_FullName = (filename, buffer, length, force) ->
+      filename = cstr(string.len(filename) + 1, filename)
+      fs.mch_FullName(filename, buffer, length, force)
+
+    OK = 1
+    FAIL = 0
+
+    before_each ->
+      -- Create empty string buffer which will contain the resulting path
+      export len = string.len(lfs.currentdir()) + 11
+      export buffer = cstr(len, '')
+
+    it 'failes if given filename contains non-existing directory', ->
+      result = mch_FullName('nonexistingdir/test.file', buffer, len, 1)
+      eq FAIL, result
+
+    it 'concatenates given filename if it does not contain a slash', ->
+      result = mch_FullName('test.file', buffer, len, 1)
+      eq OK, result
+      expected = lfs.currentdir() .. '/test.file'
+      eq expected, ffi.string(buffer)
+
+    it 'concatenates given filename if it is a directory but does not contain a
+    slash', ->
+      result = mch_FullName('..', buffer, len, 1)
+      eq OK, result
+      expected = lfs.currentdir() .. '/..'
+      eq expected, ffi.string(buffer)
+
+    -- Is it possible for every developer to enter '..' directory while running
+    -- the unit tests? Which other directory would be better?
+    it 'enters given directory if possible and if path contains a slash', ->
+      result = mch_FullName('../test.file', buffer, 200, 1)
+      eq OK, result
+      old_dir = lfs.currentdir()
+      lfs.chdir('..')
+      expected = lfs.currentdir() .. '/test.file'
+      lfs.chdir(old_dir)
+      eq expected, ffi.string(buffer)
+
+  describe 'mch_isFullName', ->
+    ffi.cdef 'int mch_isFullName(char *fname);'
+
+    mch_isFullName = (filename) ->
+      filename = cstr(string.len(filename) + 1, filename)
+      fs.mch_isFullName(filename)
+
+    TRUE = 1
+    FALSE = 0
+
+    it 'returns true if filename starts with a slash', ->
+      eq TRUE, mch_isFullName('/some/directory/')
+
+    it 'returns true if filename starts with a tilde', ->
+      eq TRUE, mch_isFullName('~/in/my/home~/directory')
+
+    it 'returns false if filename starts not with slash nor tilde', ->
+      eq FALSE, mch_isFullName('not/in/my/home~/directory')