Make the test more clear

miner · Sep 11, 2014 · 61076b5 · 61076b5
1 parent 788ad8c
commit 61076b5
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/test/me/raynes/core_test.clj b/test/me/raynes/core_test.clj
@@ -33,8 +33,9 @@
     (expand-home (str "~" name)) => (file user)
     (expand-home (format "~%s/foo" name)) => (file user "foo")))
 
-(fact "Expand plain path just returns path"
-      (expand-home (str "melon" File/separator "peach")) => (io/file "melon" "peach"))
+(fact "Expand a path w/o tilde just returns path"
+      (let [user (System/getProperty "user.home")]
+        (expand-home (str user File/separator "foo")) => (io/file user "foo")))
 
 (fact (list-dir ".") => (has every? #(instance? File %)))