diff options
Diffstat (limited to 'tests/test-org-drill-determine-next-interval-sm5.el')
| -rw-r--r-- | tests/test-org-drill-determine-next-interval-sm5.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/tests/test-org-drill-determine-next-interval-sm5.el b/tests/test-org-drill-determine-next-interval-sm5.el index 4e4cb7e..ab05add 100644 --- a/tests/test-org-drill-determine-next-interval-sm5.el +++ b/tests/test-org-drill-determine-next-interval-sm5.el @@ -247,17 +247,20 @@ The SM5 floor is shared with SM2 via `org-drill-modify-e-factor'.") (ert-deftest test-org-drill-determine-next-interval-sm5-error-negative-n () "Error: n=-1 violates the (cl-assert (> n 0)) precondition." (should-error - (org-drill-determine-next-interval-sm5 0 -1 2.5 4 0 nil 0 nil nil))) + (org-drill-determine-next-interval-sm5 0 -1 2.5 4 0 nil 0 nil nil) + :type 'cl-assertion-failed)) (ert-deftest test-org-drill-determine-next-interval-sm5-error-quality-below-zero () "Error: quality=-1 violates the cl-assert quality range." (should-error - (org-drill-determine-next-interval-sm5 0 1 2.5 -1 0 nil 0 nil nil))) + (org-drill-determine-next-interval-sm5 0 1 2.5 -1 0 nil 0 nil nil) + :type 'cl-assertion-failed)) (ert-deftest test-org-drill-determine-next-interval-sm5-error-quality-above-five () "Error: quality=6 violates the cl-assert quality range." (should-error - (org-drill-determine-next-interval-sm5 0 1 2.5 6 0 nil 0 nil nil))) + (org-drill-determine-next-interval-sm5 0 1 2.5 6 0 nil 0 nil nil) + :type 'cl-assertion-failed)) ;;; Algorithm Verification |