Define an XML-loadable meta-class

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)