diff options
Diffstat (limited to 'tests/xml-keys.scm')
| -rw-r--r-- | tests/xml-keys.scm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/tests/xml-keys.scm b/tests/xml-keys.scm index 0e2baeb..691af4a 100644 --- a/tests/xml-keys.scm +++ b/tests/xml-keys.scm @@ -17,14 +17,18 @@ (use-modules (webid-oidc jwk) (sxml simple) (webid-oidc testing) + (webid-oidc serializable) (oop goops)) +(define (xml->key xml) + (call-with-input-string xml read/xml)) + (with-test-environment "xml-keys" (lambda () (let ((key-xml "<?xml version=\"1.0\" encoding=\"utf-8\"?> -<jwk xmlns=\"https://disfluid.planete-kraus.eu/Public_002dkey-cryptography.html#Public_002dkey-cryptography\" +<ec-point xmlns=\"webid-oidc/jwk\" kty=\"EC\" x=\"l8tFrhx-34tV3hRICRDY9zCkDlpBhF42UQUfWVAWBFs\" y=\"9VE4jf_Ok_o64zbTTlcuNJajHmt6v9TDVrU0CdvGRDA\" @@ -33,15 +37,15 @@ #:crv 'P-256 #:x "l8tFrhx-34tV3hRICRDY9zCkDlpBhF42UQUfWVAWBFs" #:y "9VE4jf_Ok_o64zbTTlcuNJajHmt6v9TDVrU0CdvGRDA"))) - (let ((parsed-once (sxml->key (xml->sxml key-xml))) + (let ((parsed-once (xml->key key-xml)) (printed-once (call-with-output-string (lambda (port) (sxml->xml (->sxml key) port))))) - (let ((parsed-twice (sxml->key (xml->sxml printed-once))) + (let ((parsed-twice (xml->key printed-once)) (printed-twice (call-with-output-string (lambda (port) (sxml->xml (->sxml parsed-once) port))))) - (let ((parsed-thrice (sxml->key (xml->sxml printed-twice))) + (let ((parsed-thrice (xml->key printed-twice)) (printed-thrice (call-with-output-string (lambda (port) (sxml->xml (->sxml parsed-twice) port))))) |