/test/core/request-adapter.lisp

http://github.com/skypher/cl-oauth · Lisp · 43 lines · 34 code · 6 blank · 3 comment · 0 complexity · 68b1f0cf1bd4d332dd6d25ebf796312b MD5 · raw file 

    

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

  2. 

  3. (defvar *request-object* nil)
    4. 

  4. (defvar *request-method* :get)
    5. 

  5. (defvar *request-uri* "http://host.domain/path")
    6. 

  6. (defvar *auth-parameters* nil)
    7. 

  7. (defvar *post-parameters* nil)
    8. 

  8. (defvar *get-parameters* nil)
    9. 

  9. 

  10. (defun make-test-request-adapter ()
    11. 

  11.   (make-request-adapter :request-object-fn (lambda ()
    12. 

  12.                                              ;; prevent caching.
    13. 

  13.                                              ;; TODO: use private caches for testing
    14. 

  14.                                              ;; so we don't interfere with live data.
    15. 

  15.                                              (or *request-object* (random most-positive-fixnum)))
    16. 

  16.                         :request-method-fn (lambda (request)
    17. 

  17.                                              (declare (ignore request))
    18. 

  18.                                              *request-method*)
    19. 

  19.                         :request-uri-fn (lambda (request)
    20. 

  20.                                           (declare (ignore request))
    21. 

  21.                                           *request-uri*)
    22. 

  22.                         :auth-parameters-fn (lambda (request)
    23. 

  23.                                               (declare (ignore request))
    24. 

  24.                                               *auth-parameters*)
    25. 

  25.                         :post-parameters-fn  (lambda (request)
    26. 

  26.                                               (declare (ignore request))
    27. 

  27.                                               *post-parameters*)
    28. 

  28.                         :get-parameters-fn (lambda (request)
    29. 

  29.                                               (declare (ignore request))
    30. 

  30.                                               *get-parameters*)))
    31. 

  31. 

  32. (defun init-test-request-adapter ()
    33. 

  33.   (setf *request-adapter* (make-test-request-adapter)))
    34. 

  34. 

  35. (defmethod asdf:perform ((o asdf:test-op) (c (eql (asdf:find-system :cl-oauth))))
    36. 

  36.   (let ((original-request-adapter *request-adapter*))
    37. 

  37.     (unwind-protect 
    38. 

  38.         (progn
    39. 

  39.           (init-test-request-adapter)
    40. 

  40.           (fiveam:run! 'oauth))
    41. 

  41.       (setf *request-adapter* original-request-adapter))))
    42.