1 ;;; Test cases for planner
2 ;;; Sacha Chua (sacha@free.net.ph)
4 ;; Just load this and complain loudly if there are any errors.
5 ;; It only tests a handful of functions right now.
9 (require 'planner-cyclic
)
10 (require 'planner-test
)
13 "planner-cyclic-generate-task"
14 '(("2004.03.09" "#A0 _ Study German" "#A0 _ Study German from 2004.03.09")
15 ("2004.03.09" "#A0 _ Study German (GermanStudies)" "#A0 _ Study German from 2004.03.09 (GermanStudies)")
16 ("2004.03.09" "#B0 _ Study German (GermanStudies)" "#B0 _ Study German from 2004.03.09 (GermanStudies)"))
17 (lambda (test-name date task-string expected-output-after-format
)
18 (let ((output (planner-format-task (planner-cyclic-generate-task date task-string
))))
19 (unless (string= output expected-output-after-format
)
20 (error "%s: output %s expected %s"
21 test-name output expected-output-after-format
)))))
23 (provide 'planner-cyclic-test
)
25 ;; planner-cyclic-test.el ends here
26 ;;;_* Local emacs vars.
28 ;; change-log-default-name: "../ChangeLog"