[Add test show creator
clinton@unknownlamer.org**20080104211704] hunk ./src/tests.lisp 2
+
+(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)))
+
+