src/migration-list.lisp

DOWNLOAD 
(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")
(defmigration "016-hardcoded-hidden-unlisted")
(defmigration "017-settings-in-db")
(defmigration "018-previously")
(defmigration "019-rss-settings")
(defmigration "020-rss-reader-stuff")
(defmigration "021-more-rss-reader-stuff")
(defmigration "022-fix-rss-cache")
(defmigration "023-loggroups")
(defmigration "024-loggroup-read-count")
(defmigration "025-session-table")

(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, (SELECT id FROM blog.UserGroup WHERE name = 'Users'), true)" user-id)
    (postmodern:execute "INSERT INTO blog.GroupMapping(userid, groupid, primarygroup) VALUES ($1, (SELECT id FROM blog.UserGroup WHERE name = 'Admins'), true)" user-id)))

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

;; (murja.migrations:migrate)