Re: master 1b64ed6d6a6: * lisp/misc.el (duplicate-line-final-position): New defcustom (bug#64185).

[Michael Albinus <michael.albinus@gmx.de>]

Juri Linkov <juri@jurta.org> writes:

Hi,

>     * lisp/misc.el (duplicate-line-final-position): New defcustom (bug#64185).
>
>     * lisp/misc.el (duplicate-line): Use it.
>
>     * test/lisp/misc-tests.el (misc--duplicate-line): Add tests for
>     duplicate-line-final-position.

When running the tests with native compilation, there's an error:

--8<---------------cut here---------------start------------->8---
  ELC+ELN  lisp/misc-tests.elc
In toplevel form:
lisp/misc-tests.el:95:12: Warning: Unused lexical variable `duplicate-line-final-position'
lisp/misc-tests.el:102:12: Warning: Unused lexical variable `duplicate-line-final-position'
  GEN      lisp/misc-tests.log
Running 7 tests (2023-06-29 18:20:46+0000, selector `(not (tag :unstable))')
Mark set (rectangle mode)
   passed  1/7  misc--duplicate-dwim (3.970630 sec)
Test misc--duplicate-line backtrace:
  signal(ert-test-failed (((should (equal (point) 12)) :form (equal 7
  ert-fail(((should (equal (point) 12)) :form (equal 7 12) :value nil
  #f(compiled-function () #<bytecode -0x4c32571230de989>)()
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
  ert-run-test(#s(ert-test :name misc--duplicate-line :documentation n
  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)))
  command-line-1(("-L" ":." "-l" "ert" "-l" "lisp/misc-tests" "--eval"
  command-line()
  normal-top-level()
Test misc--duplicate-line condition:
    (ert-test-failed
     ((should
       (equal
	(point)
	12))
      :form
      (equal 7 12)
      :value nil :explanation
      (different-atoms
       (7 "#x7" "?\7")
       (12 "#xc" "?\f"))))
   FAILED  2/7  misc--duplicate-line (0.000560 sec) at lisp/misc-tests.el:83
   passed  3/7  misc-test-backward-to-word (0.000207 sec)
   passed  4/7  misc-test-copy-from-above-command (0.000132 sec)
   passed  5/7  misc-test-forward-to-word (0.000131 sec)
   passed  6/7  misc-test-upcase-char (0.000114 sec)
   passed  7/7  misc-test-zap-up-to-char (0.000278 sec)
Ran 7 tests, 6 results as expected, 1 unexpected (2023-06-29 18:20:50+0000, 4.174909 sec)
1 unexpected results:
   FAILED  misc--duplicate-line  ((should (equal (point) 12)) :form (equal 7 12) :value nil :explanation (different-atoms (7 "#x7" "?\a") (12 "#xc" "?\f")))
--8<---------------cut here---------------end--------------->8---

See for example <https://emba.gnu.org/emacs/emacs/-/jobs/69705>.

Running the tests w/o native compilation don't show that error.

Best regards, Michael.