Re: master 80abaea: Use lexical-binding in lunar.el and add tests

["Basil L. Contovounesios" <contovob@tcd.ie>]

stefankangas@gmail.com (Stefan Kangas) writes:

> branch: master
> commit 80abaea1d9c6f1e53fe88befe16de3b219cdd919
> Author: Stefan Kangas <stefankangas@gmail.com>
> Commit: Stefan Kangas <stefankangas@gmail.com>
>
>     Use lexical-binding in lunar.el and add tests
>     
>     * lisp/calendar/lunar.el: Use lexical-binding.
>     (lunar-phases, diary-lunar-phases): Silence byte-compiler.
>     * test/lisp/calendar/lunar-tests.el: New file.

I'm seeing the following test failure:

--8<---------------cut here---------------start------------->8---
cd test; make lunar-tests
make[1]: Entering directory '/home/blc/.local/src/emacs/test'
  GEN      lisp/calendar/lunar-tests.log
Running 5 tests (2020-06-07 23:05:51+0100, selector `(not (tag :unstable))')
   passed  1/5  lunar-test-eclipse-check (0.000202 sec)
   passed  2/5  lunar-test-new-moon-on-or-after (0.002254 sec)
   passed  3/5  lunar-test-new-moon-time (0.000106 sec)
   passed  4/5  lunar-test-phase (0.000145 sec)
Test lunar-test-phase-list backtrace:
  signal(ert-test-failed (((should (equal (lunar-phase-list 3 1871) '(
  ert-fail(((should (equal (lunar-phase-list 3 1871) '(((3 20 1871) "1
  (if (unwind-protect (setq value-12 (apply fn-10 args-11)) (setq form
  (let (form-description-14) (if (unwind-protect (setq value-12 (apply
  (let ((value-12 'ert-form-evaluation-aborted-13)) (let (form-descrip
  (let* ((fn-10 #'equal) (args-11 (condition-case err (let ((signal-ho
  (let ((calendar-latitude 40.1) (calendar-longitude -88.2) (calendar-
  (closure (t) nil (let ((calendar-latitude 40.1) (calendar-longitude 
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
  ert-run-test(#s(ert-test :name lunar-test-phase-list :documentation 
  ert-run-or-rerun-test(#s(ert--stats :selector (not (tag :unstable)) 
  ert-run-tests((not (tag :unstable)) #f(compiled-function (event-type
  ert-run-tests-batch((not (tag :unstable)))
  ert-run-tests-batch-and-exit((not (tag :unstable)))
  eval((ert-run-tests-batch-and-exit '(not (tag :unstable))) t)
  command-line-1(("-L" ":." "-l" "ert" "-l" "lisp/calendar/lunar-tests
  command-line()
  normal-top-level()
Test lunar-test-phase-list condition:
    (ert-test-failed
     ((should
       (equal
	(lunar-phase-list 3 1871)
	'...))
      :form
      (equal
       ((... "9:03pm" 0 "")
	(... "11:46pm" 1 "**  Eclipse **")
	(... "7:20am" 2 "")
	(... "10:57pm" 3 "**  Eclipse possible **")
	(... "12:06pm" 0 "")
	(... "4:49pm" 1 "")
	(... "3:57pm" 2 "")
	(... "7:29am" 3 "")
	(... "3:46am" 0 "")
	(... "6:02am" 1 ""))
       ((... "11:03pm" 0 "")
	(... "1:46am" 1 "**  Eclipse **")
	(... "9:20am" 2 "")
	(... "12:57am" 3 "**  Eclipse possible **")
	(... "2:06pm" 0 "")
	(... "6:49pm" 1 "")
	(... "5:57pm" 2 "")
	(... "9:29am" 3 "")
	(... "5:46am" 0 "")
	(... "8:02am" 1 "")))
      :value nil :explanation
      (list-elt 0
		(list-elt 1
			  (arrays-of-different-length 6 7 "9:03pm" "11:03pm" first-mismatch-at 0)))))
   FAILED  5/5  lunar-test-phase-list (0.000611 sec)

Ran 5 tests, 4 results as expected, 1 unexpected (2020-06-07 23:05:51+0100, 0.173134 sec)

1 unexpected results:
   FAILED  lunar-test-phase-list
--8<---------------cut here---------------end--------------->8---

In case it matters, my time zone is

  (format-time-string "%Z %z") ; => "IST +0100"

Any ideas?  Thanks,

-- 
Basil