move unit test for unroll

erdos · May 14, 2024 · 28cdb1f · 28cdb1f
1 parent 1a12cc6
commit 28cdb1f
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/stencil/fs.clj b/src/stencil/fs.clj
@@ -18,6 +18,3 @@
 
 ;; remove /../ parts
 (defn unroll [^File f] (-> f .toPath .normalize .toFile))
-
-;(println :! (unroll (File. "a/b/x/../c/dd")))
-(assert (= (File. "a/b/c/d") (unroll (File. "a/b/x/../c/d"))))
diff --git a/test/stencil/fs_test.clj b/test/stencil/fs_test.clj
@@ -25,4 +25,7 @@
   (is (true? (fs/exists? (file "/tmp"))))
   (is (true? (fs/exists? (file "src"))))
   (is (false? (fs/exists? (file "/does/not-exist"))))
-  (is (false? (fs/exists? (file "does/not-exist")))))
+  (is (false? (fs/exists? (file "does/not-exist")))))
+
+(deftest test-unroll
+  (is (= (file "a/b/c/d") (fs/unroll (file "a/b/x/../c/d")))))