Add tests for get-file-path in #4010

This commit is contained in:
Gabriel Horner
2022-01-31 12:36:49 -05:00
committed by Tienson Qin
parent 8beae2be0b
commit 2213a4e33d
2 changed files with 25 additions and 1 deletions

View File

@@ -0,0 +1,24 @@
(ns frontend.fs.capacitor-fs-test
(:require [frontend.fs.capacitor-fs :as capacitor-fs]
[clojure.test :refer [deftest is]]))
(deftest get-file-path
(let [dir "file:///private/var/mobile/Library/Mobile%20Documents/iCloud~com~logseq~logseq/Documents/"
url-decoded-dir "file:/private/var/mobile/Library/Mobile Documents/iCloud~com~logseq~logseq/Documents/"]
(is (= (str url-decoded-dir "pages/pages-metadata.edn")
(capacitor-fs/get-file-path
dir
"file:///private/var/mobile/Library/Mobile Documents/iCloud~com~logseq~logseq/Documents/pages/pages-metadata.edn"))
"full path returns as url decoded full path")
(is (= (str url-decoded-dir "journals/2002_01_28.md")
(capacitor-fs/get-file-path
dir
"/journals/2002_01_28.md"))
"relative path returns as url decoded full path")
(is (= dir
(capacitor-fs/get-file-path
dir
nil))
"nil path returns url encoded dir")))