diff options
Diffstat (limited to 'tests/test-org-drill-language-presenters.el')
| -rw-r--r-- | tests/test-org-drill-language-presenters.el | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/test-org-drill-language-presenters.el b/tests/test-org-drill-language-presenters.el index 6375b5f..da0a3a8 100644 --- a/tests/test-org-drill-language-presenters.el +++ b/tests/test-org-drill-language-presenters.el @@ -154,6 +154,25 @@ (lambda (_) (setq reschedule-called t)))) (should reschedule-called)))) +;;;; org-drill--format-tense-mood + +(ert-deftest test-org-drill-format-tense-mood-both () + "With both tense and mood, the label names both." + (should (equal "past tense, subjunctive mood" + (org-drill--format-tense-mood "past" "subjunctive")))) + +(ert-deftest test-org-drill-format-tense-mood-tense-only () + "With only a tense, the label names the tense." + (should (equal "present tense" (org-drill--format-tense-mood "present" nil)))) + +(ert-deftest test-org-drill-format-tense-mood-mood-only () + "With only a mood, the label names the mood." + (should (equal "imperative mood" (org-drill--format-tense-mood nil "imperative")))) + +(ert-deftest test-org-drill-format-tense-mood-neither-is-nil () + "With neither tense nor mood, there is no label." + (should (null (org-drill--format-tense-mood nil nil)))) + (provide 'test-org-drill-language-presenters) ;;; test-org-drill-language-presenters.el ends here |