(delete-account X) --> (delete-resource (account X))
This commit is contained in:
parent
038ea39b30
commit
4d2252b90a
|
@ -23,4 +23,4 @@
|
||||||
(on-stop (log-info "Account ~s deleted." email))
|
(on-stop (log-info "Account ~s deleted." email))
|
||||||
(assert (account email))
|
(assert (account email))
|
||||||
(assert (grant email email email (p:follow email) #t))
|
(assert (grant email email email (p:follow email) #t))
|
||||||
(stop-when (message (delete-account email)))))
|
(stop-when (message (delete-resource (account email))))))
|
||||||
|
|
|
@ -22,7 +22,7 @@
|
||||||
#:scope scope
|
#:scope scope
|
||||||
#:hook (lambda ()
|
#:hook (lambda ()
|
||||||
(stop-when (message (end-session sid)))
|
(stop-when (message (end-session sid)))
|
||||||
(stop-when (message (delete-account email)))))]
|
(stop-when (message (delete-resource (account email))))))]
|
||||||
[else
|
[else
|
||||||
(web-respond/xexpr! id
|
(web-respond/xexpr! id
|
||||||
#:header (web-response-header #:code 401
|
#:header (web-response-header #:code 401
|
||||||
|
|
|
@ -223,7 +223,7 @@
|
||||||
(assert (login-link email sid))
|
(assert (login-link email sid))
|
||||||
(stop-when (asserted (session _ sid))) ;; happy path
|
(stop-when (asserted (session _ sid))) ;; happy path
|
||||||
(stop-when (message (end-session sid)))
|
(stop-when (message (end-session sid)))
|
||||||
(stop-when (message (delete-account email)))
|
(stop-when (message (delete-resource (account email))))
|
||||||
(stop-when-timeout (* 10 1000)))) ;; 10 seconds
|
(stop-when-timeout (* 10 1000)))) ;; 10 seconds
|
||||||
|
|
||||||
(define (login-link-emailed-page id maybe-insecure-validation-url)
|
(define (login-link-emailed-page id maybe-insecure-validation-url)
|
||||||
|
@ -267,5 +267,5 @@
|
||||||
(on-stop (log-info "Session ~s for ~s stopped." sid email))
|
(on-stop (log-info "Session ~s for ~s stopped." sid email))
|
||||||
(assert (session email sid))
|
(assert (session email sid))
|
||||||
(stop-when (message (end-session sid)))
|
(stop-when (message (end-session sid)))
|
||||||
(stop-when (message (delete-account email)))
|
(stop-when (message (delete-resource (account email))))
|
||||||
(stop-when-timeout (* 7 86400 1000)))) ;; 1 week
|
(stop-when-timeout (* 7 86400 1000)))) ;; 1 week
|
||||||
|
|
|
@ -31,11 +31,6 @@
|
||||||
;; Represents an extant account.
|
;; Represents an extant account.
|
||||||
(struct account (email) #:prefab) ;; ASSERTION
|
(struct account (email) #:prefab) ;; ASSERTION
|
||||||
|
|
||||||
;; (delete-account EmailString)
|
|
||||||
;; Deletes the account named by the given email.
|
|
||||||
;; As a side effect, should delete all sessions associated with the account.
|
|
||||||
(struct delete-account (email) #:prefab) ;; MESSAGE
|
|
||||||
|
|
||||||
;;---------------------------------------------------------------------------
|
;;---------------------------------------------------------------------------
|
||||||
;; API requests and assertions
|
;; API requests and assertions
|
||||||
|
|
||||||
|
|
|
@ -29,9 +29,9 @@
|
||||||
(stop-when (message (delete-resource g)))
|
(stop-when (message (delete-resource g)))
|
||||||
(stop-when (message
|
(stop-when (message
|
||||||
(delete-resource (permitted issuer grantee permission delegable?))))
|
(delete-resource (permitted issuer grantee permission delegable?))))
|
||||||
(stop-when (message (delete-account issuer)))
|
(stop-when (message (delete-resource (account issuer))))
|
||||||
(stop-when (message (delete-account grantor)))
|
(stop-when (message (delete-resource (account grantor))))
|
||||||
(stop-when (message (delete-account grantee))))))
|
(stop-when (message (delete-resource (account grantee)))))))
|
||||||
|
|
||||||
(actor #:name 'request-factory
|
(actor #:name 'request-factory
|
||||||
(stop-when-reloaded)
|
(stop-when-reloaded)
|
||||||
|
|
Loading…
Reference in New Issue