Coverage report: /home/ellis/comp/core/lib/cry/condition.lisp

KindCoveredAll%
expression019 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; cry/condition.lisp --- Crypto Conditions
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 (in-package :cry)
7
 
8
 (define-condition crypto-condition () ())
9
 (define-condition crypto-error (crypto-condition std-error) ())
10
 
11
 (define-condition crypto-token-expired (crypto-error)
12
   ((token :initarg :token :accessor token)
13
    (expiry :initarg :expiry :accessor expiry))
14
   (:report
15
    (lambda (c s)
16
      (format s "Token expired: ~A at ~A"
17
              (token c)
18
              (expiry c))))
19
   (:documentation "Condition raised when use of an expired token is attempted."))
20
 
21
 (define-condition crypto-token-invalid (crypto-error)
22
   ((token :initarg :token :accessor token)
23
    (reset-token :initarg :reset-token :accessor reset-token))
24
   (:report
25
    (lambda (c s)
26
      (format s "~A reset token is invalid: ~A"
27
              (token c)
28
              (reset-token c))))
29
   (:documentation "Condition raised when use of an invalid token is attempted."))