diff of e77a0fc5f24ab621184bb44d4f42c337a029cba2

e77a0fc5f24ab621184bb44d4f42c337a029cba2
diff --git a/src/migration-list.lisp b/src/migration-list.lisp
index 53e52d2..e0cd49b 100644
--- a/src/migration-list.lisp
+++ b/src/migration-list.lisp
@@ -21,16 +21,21 @@
 (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")
-    (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))))
+    (prepare-e2e-migration)))
 
 ;; (murja.migrations:migrate)