(in-package :com.tee-it-up-golf.tests)

(defun create-test-shows (count start-date
			  &optional (distance 1)
			  &key
			  (audio nil)
			  (title "Test Instance")
			  (transcript "Testing 1 2 3"))
  (labels ((create (current-count current-date)
	     (cond ((= current-count count) t)
		   (t
		    (make-instance 'golf-db:radio-show
				   :title (format nil "~A #~D"
						  title current-count)
				   :date current-date
				   :transcript transcript
				   :audio (when audio (make-instance
						       'golf-db:audio-file
						       :data (car audio)
						       :type (cdr audio))))
		    (create (1+ current-count)
			    (+ current-date (* 86400 distance)))))))
    (create 0 start-date)))