diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-04-20 13:45:53 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-04-21 08:25:09 +0200 |
| commit | 0fedcdec17cba262ba57258e76dd19b3962f4c9f (patch) | |
| tree | 5e8516a4f5d6c470f1dae3c0341778af2d45c9fd | |
| parent | 597d3a1f6e62df80f67fcb378342d2e2fdfeb96a (diff) | |
add basic http params and array to param alist tests
| -rw-r--r-- | test/mastodon-http-tests.el | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/test/mastodon-http-tests.el b/test/mastodon-http-tests.el index 57b52a4..b3a02bc 100644 --- a/test/mastodon-http-tests.el +++ b/test/mastodon-http-tests.el @@ -76,10 +76,25 @@ Strict-Transport-Security: max-age=31536000 (let ((response-buffer (get-buffer-create "mastodon-http--triage-buffer"))) (with-current-buffer response-buffer - (erase-buffer) + (erase-buffer) (insert mastodon-http--example-400)) (should (equal (mastodon-http--triage response-buffer (lambda () (message "success call"))) "Error 444: some unhappy complaint")))) + +(ert-deftest mastodon-http-params-build () + "Should correctly format parameters from an alist." + (let ((params '(("q" . "test") + ("foo" . "bar")))) + (should (string= (mastodon-http--build-params-string params) + "q=test&foo=bar")))) + +(ert-deftest mastodon-http-params-array-build () + "Should correctly format parameters from an alist." + (let ((array '("option" "option2")) + (param-str "poll[x][]")) + (should (equal (mastodon-http--build-array-params-alist param-str array) + '(("poll[x][]" . "option") + ("poll[x][]" . "option2")))))) |