unbreak tests that broke after recent file-separator re-pattern changes

nicorikken · Jul 4, 2017 · 95a93d1 · 95a93d1
1 parent dc9e3ea
commit 95a93d1
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/io/perun/core.clj b/src/io/perun/core.clj
@@ -56,12 +56,13 @@
   [url]
   (apply create-filepath (string/split url #"/")))
 
-(def file-separator-re (re-pattern (java.util.regex.Pattern/quote java.io.File/separator)))
+(def file-separator (re-pattern (java.util.regex.Pattern/quote java.io.File/separator)))
 
 (defn path-to-url
   "Converts a path to url"
   [path]
-  (->> file-separator-re
+  (->> file-separator
+       re-pattern
        (string/split path)
        (string/join "/")))
 
@@ -72,7 +73,7 @@
     filepath))
 
 (defn filename [name]
-  (second (re-find #"(.+?)(\.[^.]*$|$)" (last (string/split name file-separator-re)))))
+  (second (re-find #"(.+?)(\.[^.]*$|$)" (last (string/split name (re-pattern file-separator))))))
 
 (defn ^String extension [name]
   (last (seq (string/split name #"\."))))