diff options
Diffstat (limited to 'tests/client-workflow.scm')
-rw-r--r-- | tests/client-workflow.scm | 38 |
1 files changed, 20 insertions, 18 deletions
diff --git a/tests/client-workflow.scm b/tests/client-workflow.scm index b0c0c2f..50514d8 100644 --- a/tests/client-workflow.scm +++ b/tests/client-workflow.scm @@ -14,24 +14,26 @@ ;; You should have received a copy of the GNU Affero General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. -(use-modules ((webid-oidc client) #:prefix client:) - ((webid-oidc client accounts) #:prefix client:) - ((webid-oidc jwk) #:prefix jwk:) - (webid-oidc testing) - ((webid-oidc stubs) #:prefix stubs:) - ((webid-oidc refresh-token) #:prefix refresh:) - ((webid-oidc simulation) #:prefix sim:) - ((webid-oidc parameters) #:prefix p:) - (web uri) - (web request) - (web response) - (srfi srfi-19) - (srfi srfi-26) - (ice-9 optargs) - (ice-9 receive) - (ice-9 hash-table) - (ice-9 match) - (oop goops)) +(define-module (tests client-workflow) + #:use-module ((webid-oidc client) #:prefix client:) + #:use-module ((webid-oidc client accounts) #:prefix client:) + #:use-module ((webid-oidc jwk) #:prefix jwk:) + #:use-module (webid-oidc testing) + #:use-module ((webid-oidc stubs) #:prefix stubs:) + #:use-module ((webid-oidc refresh-token) #:prefix refresh:) + #:use-module ((webid-oidc simulation) #:prefix sim:) + #:use-module ((webid-oidc parameters) #:prefix p:) + #:use-module (web uri) + #:use-module (web request) + #:use-module (web response) + #:use-module (srfi srfi-19) + #:use-module (srfi srfi-26) + #:use-module (ice-9 optargs) + #:use-module (ice-9 receive) + #:use-module (ice-9 hash-table) + #:use-module (ice-9 match) + #:use-module (oop goops) + #:duplicates (merge-generics)) ;; In this example, a user firsts requests an account, then logs in ;; with a refresh token, then logs out, but we can still revive per |