Fix multiline folding according to rfc2445

Author: a13

src/tick/alpha/ical.clj

@@ -263,7 +263,7 @@
   [^java.io.BufferedReader rdr hold]
   (if-let [line (.readLine rdr)]
     (if (= (.charAt line 0) \space)
-      (recur rdr (conj hold line))
+      (recur rdr (conj hold (.substring line 1)))
       (cons (str/join hold) (lazy-seq (unfolding-line-seq* rdr [line]))))
     [(str/join hold)]))
 

test/tick/alpha/ical_test.clj

@@ -40,3 +40,23 @@
       (is (= "DTSTART" name))
       (is (= "US-EAST" (get params "TZID")))
       (is (= "20180116T140000" value)))))
+
+(def multiline
+  "X-APPLE-STRUCTURED-LOCATION;VALUE=URI;X-SOME-HEADER-BREAKING-SOMEWHERE-AT-
+ 75=foobar;X-TITLE=Some Place:geo:44.815458,20.462758")
+
+(deftest parse-line-folding-test
+  (testing "Folded lines can be parsed"
+    (is (= {:name "X-APPLE-STRUCTURED-LOCATION",
+            :params
+            {"VALUE" "URI",
+             "X-SOME-HEADER-BREAKING-SOMEWHERE-AT-75" "foobar",
+             "X-TITLE" "Some Place"},
+            :value "geo:44.815458,20.462758",
+            :string-value "geo:44.815458,20.462758"}
+           (-> multiline
+               char-array
+               io/reader
+               ical/unfolding-line-seq
+               first
+               ical/line->contentline)))))