diff options
Diffstat (limited to 'tests/test-org-drill-utilities-and-leitner.el')
| -rw-r--r-- | tests/test-org-drill-utilities-and-leitner.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/test-org-drill-utilities-and-leitner.el b/tests/test-org-drill-utilities-and-leitner.el index cc0157c..02761a2 100644 --- a/tests/test-org-drill-utilities-and-leitner.el +++ b/tests/test-org-drill-utilities-and-leitner.el @@ -61,6 +61,12 @@ (ert-deftest test-org-drill-shuffle-single-element-unchanged () (should (equal '(42) (org-drill-shuffle (list 42))))) +(ert-deftest test-org-drill-shuffle-rejects-non-list () + "The argument must be a list. A non-list (number, vector) is rejected +with a clear type error rather than silently coerced." + (should-error (org-drill-shuffle 42) :type 'wrong-type-argument) + (should-error (org-drill-shuffle [1 2 3]) :type 'wrong-type-argument)) + ;;;; org-drill-pop-random (macro) (ert-deftest test-org-drill-pop-random-removes-one-element () |