Back
unfolding-line-seq (clj)
(source)function
(unfolding-line-seq rdr)
Examples
tick
(ns tick.alpha.ical-test
(:require
[tick.alpha.ical :as ical]
[clojure.java.io :as io]
[clojure.test :refer [deftest is testing]]))
(deftest stress-test
(is (= 532
(count
(for [line (map first (partition 10 (ical/unfolding-line-seq (io/reader (io/resource "gb.ics")))))]
(ical/line->contentline line))))))
juxt/tick
(ns tick.alpha.ical-test
(:require
[tick.alpha.ical :as ical]
[clojure.java.io :as io]
[clojure.test :refer [deftest is testing]]))
(deftest stress-test
(is (= 532
(count
(for [line (map first (partition 10 (ical/unfolding-line-seq (io/reader (io/resource "gb.ics")))))]
(ical/line->contentline line))))))