Ignore empty lines

Author: a13

src/tick/alpha/ical.clj

@@ -262,9 +262,10 @@
 (defn unfolding-line-seq*
   [^java.io.BufferedReader rdr hold]
   (if-let [line (.readLine rdr)]
-    (if (= (.charAt line 0) \space)
-      (recur rdr (conj hold (.substring line 1)))
-      (cons (str/join hold) (lazy-seq (unfolding-line-seq* rdr [line]))))
+    (cond
+      (.isEmpty line) (recur rdr hold)
+      (= (.charAt line 0) \space) (recur rdr (conj hold (.substring line 1)))
+      :else (cons (str/join hold) (lazy-seq (unfolding-line-seq* rdr [line]))))
     [(str/join hold)]))
 
 (defn unfolding-line-seq [^java.io.BufferedReader rdr]

test/tick/alpha/ical_test.clj

@@ -60,3 +60,18 @@
                ical/unfolding-line-seq
                first
                ical/line->contentline)))))
+
+(def multi-with-empty
+  "X-APPLE-STRUCTURED-LOCATION;VALUE=URI;X-SOME-HEADER-BREAKING-SOMEWHERE-AT-
+ 75=foobar;X-TITLE=Some Place:geo:44.815458,20.462758
+
+FOO:bar")
+
+(deftest parse-line-ignore-empty-test
+  (testing "Empty lines are ignored"
+    (is (= ["X-APPLE-STRUCTURED-LOCATION;VALUE=URI;X-SOME-HEADER-BREAKING-SOMEWHERE-AT-75=foobar;X-TITLE=Some Place:geo:44.815458,20.462758"
+            "FOO:bar"]
+           (-> multi-with-empty
+               char-array
+               io/reader
+               ical/unfolding-line-seq)))))