src/migration-list.lisp

(defpackage murja.migration-list
  (:use :cl)
  (:import-from :lisp-fixup :sha-512)
  (:import-from :murja.migrations :defmigration :deflispmigration))

(in-package :murja.migration-list)

(defmigration "001-users.up")
(defmigration "002-posts.up")
(defmigration "003-comments.up")
(defmigration "004-fixing-posts.up")
(defmigration "005-user-groups.up")
(defmigration "006-permission-table.up")
(defmigration "007-can-meta.up")
(defmigration "008-users-can-edit-self.up")
(defmigration "009-users-can-comment.up")
(defmigration "010-can-import.up")
(defmigration "011-versioned-posts.up")
(defmigration "012-version-triggers.up")
(defmigration "013-media-table.up")
(defmigration "014-tag-hidden-unlisted-validator.up")
(defmigration "015-image-post-pairing-view.up")

(defun prepare-e2e-migration ()
  (postmodern:execute "DELETE FROM blog.Users")
  (postmodern:execute "DELETE FROM blog.Media")
  (let ((user-id (caar (postmodern:query "INSERT INTO blog.Users (username, nickname, img_location, password) VALUES ($1, $2, $3, $4) returning id"
					 "Playwright-user"
					 "playwrighte"
					 ""
					 (sha-512 "p4ssw0rd")))))
    (postmodern:execute "insert into blog.groupmapping (userid, groupid, primarygroup) values ($1, $2, $3)"
			user-id 1 t)))

(deflispmigration _ "e2e-migration"
  (declare (ignore _))
  (log:info "Running e2e-migration")
  (when (sb-ext:posix-getenv "MURJA_E2E")
    (prepare-e2e-migration)))

;; (murja.migrations:migrate)