/test/core/tokens.lisp

http://github.com/skypher/cl-oauth · Lisp · 13 lines · 7 code · 6 blank · 0 comment · 0 complexity · 483b4a1270f2fde6d5521b7c0b41ee6c MD5 · raw file 

    

  1. (in-package :oauth-test)
    2. 

  2. 

  3. (def-suite tokens :in oauth)
    4. 

  4. 

  5. (in-suite tokens)
    6. 

  6. 

  7. (test request-token.not-authorized-by-default
    8. 

  8.   (is (not (request-token-authorized-p (make-request-token)))))
    9. 

  9. 

  10. (test token-printer.deals-with-unbound-slots
    11. 

  11.   (finishes (write-to-string (make-request-token))))
    12.