Function: calendar-bahai--verify-nawruz

calendar-bahai--verify-nawruz is a byte-compiled function defined in cal-bahai.el.gz.

Signature

(calendar-bahai--verify-nawruz)

Documentation

Verify Naw-Rúz calculations against official reference dates.

Returns a plist with :total, :correct, and :errors keys.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-bahai.el.gz
(defun calendar-bahai--verify-nawruz ()
  "Verify Naw-Rúz calculations against official reference dates.
Returns a plist with :total, :correct, and :errors keys."
  (let ((total 0)
        (correct 0)
        (errors nil))
    (dolist (entry calendar-bahai--nawruz-reference-dates)
      (let* ((greg-year (nth 0 entry))
             (expected-month (nth 1 entry))
             (expected-day (nth 2 entry))
             (expected (list expected-month expected-day greg-year))
             (computed (calendar-bahai-nawruz-for-gregorian-year greg-year)))
        (setq total (1+ total))
        (if (equal computed expected)
            (setq correct (1+ correct))
          (push (list greg-year expected computed) errors))))
    (list :total total :correct correct :errors (nreverse errors))))