diff options
Diffstat (limited to 'tests/seq-tests.el')
| -rw-r--r-- | tests/seq-tests.el | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/seq-tests.el b/tests/seq-tests.el index cf3da78..53930fa 100644 --- a/tests/seq-tests.el +++ b/tests/seq-tests.el @@ -350,5 +350,21 @@ Evaluate BODY for each created sequence. (should (equal (seq-sort-by #'seq-length #'> seq) ["xxx" "xx" "x"])))) +(ert-deftest test-seq-random-elt-take-all () + (let ((seq '(a b c d e)) + (count '())) + (should (= 0 (map-length count))) + (dotimes (_ 1000) + (let ((random-elt (seq-random-elt seq))) + (map-put count + random-elt + (map-elt count random-elt 0)))) + (should (= 5 (map-length count))))) + +(ert-deftest test-seq-random-elt-signal-on-empty () + (should-error (seq-random-elt nil)) + (should-error (seq-random-elt [])) + (should-error (seq-random-elt ""))) + (provide 'seq-tests) ;;; seq-tests.el ends here |