(use-modules ((webid-oidc server resource) #:prefix resource:)
             (webid-oidc testing)
             (webid-oidc errors)
             (ice-9 optargs)
             (ice-9 receive)
	     (oop goops))

(with-test-environment
 "server-read-non-existing-resource"
 (lambda ()
   (with-exception-handler
       (lambda (error)
	 (unless (resource-not-found? error)
	   (exit 1)))
     (lambda ()
       (let ((loaded (resource:load "/a/b/c/")))
	 (exit 2)))
     #:unwind? #t
     #:unwind-for-type &resource-not-found)))