(defpackage :prune-datelist.tests
   (:use :cl :alexandria :serapeum :fw.lu :5am)
   (:export))
 (in-package :prune-datelist.tests)
 
 (def-suite :prune-datelist)
 (in-suite :prune-datelist)
 
 (test prune-datelist
   (is (equal '("2017-01-01" "2017-01-08" "2017-01-15" "2017-01-22" "2017-01-29")
              (prune-datelist:prune-datelist
               '("2017-01-01" "2017-01-02" "2017-01-03" "2017-01-04" "2017-01-05" "2017-01-06"
                 "2017-01-07" "2017-01-08" "2017-01-09" "2017-01-10" "2017-01-11" "2017-01-12"
                 "2017-01-13" "2017-01-14" "2017-01-15" "2017-01-16" "2017-01-17" "2017-01-18"
                 "2017-01-19" "2017-01-20" "2017-01-21" "2017-01-22" "2017-01-23" "2017-01-24"
                 "2017-01-25" "2017-01-26" "2017-01-27" "2017-01-28" "2017-01-29" "2017-01-30")
               :weekly))))