/test/core/parameters.lisp

http://github.com/skypher/cl-oauth · Lisp · 40 lines · 30 code · 10 blank · 0 comment · 0 complexity · c8994a503aaf737e30498a60a9ef91ad MD5 · raw file 

    

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

  2. 

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

  4. 

  5. (in-suite parameters)
    6. 

  6. 

  7. (test splice-alist/nil
    8. 

  8.   (is (null (oauth::splice-alist nil))))
    9. 

  9. 

  10. (test splice-alist/simple
    11. 

  11.   (is (equal (oauth::splice-alist '((a . 1)(b . 2)))
    12. 

  12.              '(a 1 b 2))))
    13. 

    14. 

  14. (test alist->query-string/nil
    15. 

  15.   (is (equal (oauth::alist->query-string nil) "")))
    16. 

  16. 

  17. (test alist->query-string/simple
    18. 

  18.   (is (equal (oauth::alist->query-string '(("foo" . 1) ("bar" . 2)))
    19. 

  19.              "&foo=1&bar=2")))
    20. 

  20. 

  21. (test alist->query-string/no-ampersand
    22. 

  22.   (is (equal (oauth::alist->query-string '(("foo" . 1) ("bar" . 2))
    23. 

  23.                                   :include-leading-ampersand nil)
    24. 

  24.              "foo=1&bar=2")))
    25. 

  25. 

  26. (test normalized-parameters/spec-example
    27. 

  27.   (let ((*post-parameters* '(("a" . "1")
    28. 

  28.                              ("c" . "hi%20there")
    29. 

  29.                              ("f" . "25")
    30. 

  30.                              ("f" . "50")
    31. 

  31.                              ("f" . "a")
    32. 

  32.                              ("z" . "p")
    33. 

  33.                              ("z" . "t"))))
    34. 

  34.     (is (equal
    35. 

  35.           (oauth::alist->query-string
    36. 

  36.             (oauth::normalized-parameters)
    37. 

  37.             :include-leading-ampersand nil)
    38. 

  38.           "a=1&c=hi%20there&f=25&f=50&f=a&z=p&z=t"))))
    39.