test/planner-cyclic-test.el

   1 ;;; Test cases for planner
   2 ;;; Sacha Chua (sacha@free.net.ph)
   3
   4 ;; Just load this and complain loudly if there are any errors.
   5 ;; It only tests a handful of functions right now.
   6
   7 (require 'muse)
   8 (require 'planner)
   9 (require 'planner-cyclic)
  10 (require 'planner-test)
  11
  12 (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)))))
  22
  23 (provide 'planner-cyclic-test)
  24
  25 ;; planner-cyclic-test.el ends here
  26 ;;;_* Local emacs vars.
  27 ;; Local variables:
  28 ;; change-log-default-name: "../ChangeLog"
  29 ;; End: