setup-gn-auth-credentials-gexp: Setup tests credentials

Add a gexp to setup gn-auth credentials for tests.

1 files changed, 22 insertions, 0 deletions

diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index ef5f858..f423388 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -1623,6 +1623,28 @@ delete-test-users, etc.) as the genenetwork user via sudo."
 (define %gn-auth-test-flask
   (gn-auth-test-flask %genenetwork-configuration))
 
+(define (setup-gn-auth-credentials-gexp)
+  #~(let* ((ts (strftime "%Y%m%dT%H%M%SZ" (gmtime (current-time))))
+           (ufile (string-append "/tmp/gn-test-" ts "-users.json"))
+           (cfile (string-append "/tmp/gn-test-" ts "-clients.json")))
+      (setenv "GN_TEST_USERS_FILE" ufile)
+      (setenv "GN_TEST_CLIENT_FILE" cfile)
+      (invoke #$sudo "-u" "genenetwork"
+              #$%gn-auth-test-flask
+              "create-test-users"
+              "--session-timestamp" ts
+              "--user" (string-append
+                        "name=Test Admin " ts ",role=system-admin")
+              "--user" (string-append
+                        "name=Test Basic " ts ",role=none")
+              "--output" ufile)
+      (invoke #$sudo "-u" "genenetwork"
+              #$%gn-auth-test-flask
+              "create-test-oauth2-client"
+              "--session-timestamp" ts
+              "--users-file" ufile
+              "--output" cfile)))
+
 
 (define* (gn-integration-tests-gexp config test-command
                                #:key