 
 (use-fixtures :once instrument-all check-asserts)
 
-(defn successful-day-log [test-log ts log]
+(defn complete-next-day [ts test-log log]
   (let [next-day (suggested-day test-log log)]
     (complete-day log next-day ts)))
 

             (let [test-log [{:exr.pushup/reps 10 :exr.plank/reps 15}]
                   circuit-log []]
               (->> circuit-log
                    (successful-day-log test-log ts)
                    (suggested-day test-log)))))))

  (testing "suggests 4 x 50% + 2 after two day"

             (let [test-log [{:exr.pushup/reps 10 :exr.plank/reps 15}]
                   circuit-log []]
               (->> circuit-log
                    (complete-next-day ts test-log)
                    (complete-next-day ts test-log)
                    (suggested-day test-log)))))))

  (let [{args-sp :args ret-sp :ret} (s/get-spec #'suggested-day)]
