/test/core/tokens.lisp

 1
 2(in-package :oauth-test)
 3
 4(def-suite tokens :in oauth)
 5
 6(in-suite tokens)
 7
 8(test request-token.not-authorized-by-default
 9  (is (not (request-token-authorized-p (make-request-token)))))
10
11(test token-printer.deals-with-unbound-slots
12  (finishes (write-to-string (make-request-token))))
13