diff options
Diffstat (limited to 'tests/client-manifest-public.scm')
-rw-r--r-- | tests/client-manifest-public.scm | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/tests/client-manifest-public.scm b/tests/client-manifest-public.scm index f4e0bd5..478679c 100644 --- a/tests/client-manifest-public.scm +++ b/tests/client-manifest-public.scm @@ -14,33 +14,34 @@ ;; 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-manifest) - (webid-oidc testing) - (webid-oidc errors) - (web uri) - (srfi srfi-19) - (web response)) +(define-module (tests client-manifest-public) + #:use-module (webid-oidc client-manifest) + #:use-module (webid-oidc testing) + #:use-module (webid-oidc errors) + #:use-module (web uri) + #:use-module (srfi srfi-19) + #:use-module (web response) + #:use-module (oop goops) + #:declarative? #t) (with-test-environment "client-manifest-public" (lambda () (define mf - (get-client-manifest - (string->uri "http://www.w3.org/ns/solid/terms#PublicOidcClient"))) - (define id (client-manifest-client-id mf)) + (make <client-manifest> + #:client-id "http://www.w3.org/ns/solid/terms#PublicOidcClient")) + (define id (client-id mf)) (unless (equal? id (string->uri "http://www.w3.org/ns/solid/terms#PublicOidcClient")) (exit 2)) - (unless (client-manifest-check-redirect-uri mf "https://example.com") + (unless (check-redirect-uri mf "https://example.com") (exit 3)) (with-exception-handler (lambda (error) (unless (cannot-serve-public-manifest? error) (exit 4))) (lambda () - (serve-client-manifest - (time-utc->date - (make-time time-utc 0 0)) - mf) + (serve mf (time-utc->date + (make-time time-utc 0 0))) (exit 5)) #:unwind? #t #:unwind-for-type &cannot-serve-public-manifest))) |