diff options
Diffstat (limited to 'tests/dpop-proof-no-explicit-exp.scm')
| -rw-r--r-- | tests/dpop-proof-no-explicit-exp.scm | 33 |
1 files changed, 18 insertions, 15 deletions
diff --git a/tests/dpop-proof-no-explicit-exp.scm b/tests/dpop-proof-no-explicit-exp.scm index 5a4ccbc..83541a2 100644 --- a/tests/dpop-proof-no-explicit-exp.scm +++ b/tests/dpop-proof-no-explicit-exp.scm @@ -14,22 +14,25 @@ ;; 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 dpop-proof) - (webid-oidc access-token) - (webid-oidc jwk) - (webid-oidc jws) - (webid-oidc testing) - (webid-oidc errors) - ((webid-oidc stubs) #:prefix stubs:) - ((webid-oidc parameters) #:prefix p:) - (web uri) - (srfi srfi-19) - (web response) - (ice-9 receive) - (ice-9 optargs) - (oop goops)) +(define-module (tests dpop-proof-no-explicit-exp) + #:use-module (webid-oidc dpop-proof) + #:use-module (webid-oidc access-token) + #:use-module (webid-oidc jwk) + #:use-module (webid-oidc jws) + #:use-module (webid-oidc testing) + #:use-module (webid-oidc errors) + #:use-module ((webid-oidc stubs) #:prefix stubs:) + #:use-module ((webid-oidc parameters) #:prefix p:) + #:use-module (web uri) + #:use-module (srfi srfi-19) + #:use-module (web response) + #:use-module (ice-9 receive) + #:use-module (ice-9 optargs) + #:use-module (oop goops) + #:declarative? #t) -(define-class <dpop-proof-with-exp> (<dpop-proof>)) +(define-class <dpop-proof-with-exp> (<dpop-proof>) + #:module-name '(tests dpop-proof-no-explicit-exp)) (define-method (initialize (token <dpop-proof-with-exp>) initargs) (next-method) |