(in-package :vampire)

(db:with-transaction ()
  (let ((alucard (make-instance 'user :name "alucard")))
    (setf (user-pwhash alucard) (hash-string "password" (user-pwsalt alucard)))
    (make-instance 'invite :maker alucard)
    (mapcar
     (lambda (s)
       (make-instance
	'playlist
	:title s :user alucard :editors (list alucard)
	:cover-image "https://cicadas.surf/~shoshin/casiopeia/basement%20days/cover.png"))
     '("One" "Two" "Three"))))