Merge pull request #310 from sabracrolleton/master

Fix critical bug in test-roles
marijnh · Sep 29, 2022 · eed734f · eed734f
2 parents 385545f + 78106fe
commit eed734f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/postmodern/tests/test-roles.lisp b/postmodern/tests/test-roles.lisp
@@ -102,7 +102,7 @@
                      (query (format nil "reassign owned by ~a to ~a" y superuser-name))
                      (query (format nil "drop owned by ~a" y))))))
       (loop for x in users do (drop-role x))
-      (loop for x in dbs do
+      (loop for x in *test-dbs* do
         (when (and (database-exists-p x)
                    (not (equal x "test")))
           (drop-database x))))))