diff options
Diffstat (limited to 'tests/test-pearl-adhoc.el')
| -rw-r--r-- | tests/test-pearl-adhoc.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/test-pearl-adhoc.el b/tests/test-pearl-adhoc.el index 97ac22e..23aad79 100644 --- a/tests/test-pearl-adhoc.el +++ b/tests/test-pearl-adhoc.el @@ -52,6 +52,12 @@ (let ((f (pearl--assemble-filter nil nil nil nil '() nil))) (should-not (plist-member f :labels)))) +(ert-deftest test-pearl-assemble-filter-string-assignee-is-assignee-id () + "A string assignee (resolved member id) lands as :assignee-id, not :assignee." + (let ((f (pearl--assemble-filter nil t nil nil nil "user-1"))) + (should (string= "user-1" (plist-get f :assignee-id))) + (should-not (plist-member f :assignee)))) + ;;; --save-query (ert-deftest test-pearl-save-query-adds-entry () |