Test and refactor `shorten_fname` and `shorten_fname1`

Rename `shorten_fname` -> `path_shorten_fname`
Rename `shorten_fname1` -> `path_shorten_fname_if_possible`

1 files changed, 42 insertions, 0 deletions

diff --git a/test/unit/path.moon b/test/unit/path.moon
index 8bc1819a5f..616fa2f076 100644
--- a/test/unit/path.moon
+++ b/test/unit/path.moon
@@ -92,6 +92,48 @@ describe 'path function', ->
     it 'returns empty string if given file contains no seperator', ->
       eq '', path_next_component 'file.txt'
 
+  describe 'path_shorten_fname', ->
+    it 'returns NULL if `full_path` is NULL', ->
+      dir = to_cstr 'some/directory/file.txt'
+      eq NULL, (path.path_shorten_fname NULL, dir)
+
+    it 'returns NULL if the path and dir does not match', ->
+      dir = to_cstr 'not/the/same'
+      full = to_cstr 'as/this.txt'
+      eq NULL, (path.path_shorten_fname full, dir)
+
+    it 'returns NULL if the path is not separated properly', ->
+      dir = to_cstr 'some/very/long/'
+      full = to_cstr 'some/very/long/directory/file.txt'
+      eq NULL, (path.path_shorten_fname full, dir)
+
+    it 'shortens the filename if `dir_name` is the start of `full_path`', ->
+      full = to_cstr 'some/very/long/directory/file.txt'
+      dir = to_cstr 'some/very/long'
+      eq 'directory/file.txt', (ffi.string path.path_shorten_fname full, dir)
+
+describe 'path_shorten_fname_if_possible', ->
+  before_each ->
+      lfs.mkdir 'ut_directory'
+  after_each ->
+      lfs.chdir '..'
+      lfs.rmdir 'ut_directory'
+
+  describe 'path_shorten_fname_if_possible', ->
+    it 'returns shortened path if possible', ->
+      lfs.chdir 'ut_directory'
+      full = to_cstr lfs.currentdir! .. '/subdir/file.txt'
+      eq 'subdir/file.txt', (ffi.string path.path_shorten_fname_if_possible full)
+
+    it 'returns `full_path` if a shorter version is not possible', ->
+      old = lfs.currentdir!
+      lfs.chdir 'ut_directory'
+      full = old .. '/subdir/file.txt'
+      eq full, (ffi.string path.path_shorten_fname_if_possible to_cstr full)
+
+    it 'returns NULL if `full_path` is NULL', ->
+      eq NULL, (path.path_shorten_fname_if_possible NULL)
+
 describe 'more path function', ->
   setup ->
     lfs.mkdir 'unit-test-directory'