diff options
| -rw-r--r-- | genenetwork-development.scm | 22 |
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 |