diff options
| -rw-r--r-- | test/unit/os/fs.moon | 91 |
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') |