without-past-times (clj)

(ns chime-test
  (:require
   [chime :refer :all]
   [clojure.core.async :as a :refer [<! go-loop]]
   [clojure.test :refer :all]
   [chime.core :as chime]
   [chime.joda-time]
   [clj-time.core :as t]
   [clj-time.periodic])
  (:import (java.time Instant)
           (java.time.temporal ChronoUnit)))

(deftest backwards-compatibility-without-past-times-test
  (let [times (-> (t/date-time 1990 1 1)
                  (t/from-time-zone (t/time-zone-for-offset -3))
                  (clj-time.periodic/periodic-seq (t/days 1))
                  (as-> x
                    (take 100 x)))]
    (is (empty? (chime/without-past-times times)))))