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-20 13:45:53 +0200 |
| commit | d97cabf081bc033321b559b39dd2984c36e04458 (patch) | |
| tree | 3fbd0ea972bf8bccbf08a3d0aeff0eb50066c6e4 /test | |
| parent | e27a5d2c621be81e33a32b27d1f7cc79f82d8eb1 (diff) | |
add basic http params and array to param alist tests
Diffstat (limited to 'test')
| -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")))))) |