diff options
Diffstat (limited to 'tests/test-org-drill-determine-next-interval-simple8.el')
| -rw-r--r-- | tests/test-org-drill-determine-next-interval-simple8.el | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/tests/test-org-drill-determine-next-interval-simple8.el b/tests/test-org-drill-determine-next-interval-simple8.el index 6d292bc..17874ee 100644 --- a/tests/test-org-drill-determine-next-interval-simple8.el +++ b/tests/test-org-drill-determine-next-interval-simple8.el @@ -208,27 +208,32 @@ review attempt regardless of which scheduling algorithm produced it." (ert-deftest test-org-drill-determine-next-interval-simple8-error-negative-repeats () "Error: repeats=-1 violates the (cl-assert (>= repeats 0)) precondition." (should-error - (org-drill-determine-next-interval-simple8 0 -1 4 0 nil 0 nil))) + (org-drill-determine-next-interval-simple8 0 -1 4 0 nil 0 nil) + :type 'cl-assertion-failed)) (ert-deftest test-org-drill-determine-next-interval-simple8-error-quality-below-zero () "Error: quality=-1 violates the cl-assert quality range." (should-error - (org-drill-determine-next-interval-simple8 0 0 -1 0 nil 0 nil))) + (org-drill-determine-next-interval-simple8 0 0 -1 0 nil 0 nil) + :type 'cl-assertion-failed)) (ert-deftest test-org-drill-determine-next-interval-simple8-error-quality-above-five () "Error: quality=6 violates the cl-assert quality range." (should-error - (org-drill-determine-next-interval-simple8 0 0 6 0 nil 0 nil))) + (org-drill-determine-next-interval-simple8 0 0 6 0 nil 0 nil) + :type 'cl-assertion-failed)) (ert-deftest test-org-drill-determine-next-interval-simple8-error-meanq-above-five () "Error: meanq=10 violates the meanq cl-assert (Simple8-specific check)." (should-error - (org-drill-determine-next-interval-simple8 10 3 4 0 10.0 3 nil))) + (org-drill-determine-next-interval-simple8 10 3 4 0 10.0 3 nil) + :type 'cl-assertion-failed)) (ert-deftest test-org-drill-determine-next-interval-simple8-error-meanq-below-zero () "Error: meanq=-1 violates the meanq cl-assert (Simple8-specific check)." (should-error - (org-drill-determine-next-interval-simple8 10 3 4 0 -1.0 3 nil))) + (org-drill-determine-next-interval-simple8 10 3 4 0 -1.0 3 nil) + :type 'cl-assertion-failed)) ;;; Algorithm Verification |