Tags: patch

Attached is a patch to make the java-ts-mode tests pass (and adds Java
to the build-module script). Currently they fail with the message:

Running 2 tests (2023-09-04 11:33:58-0500, selector ‘t’)
Test java-ts-mode-test-indentation backtrace:
  cdr(java)
  mapcan(cdr (java (sexp "\\(?:_type\\|a\\(?:ccess\\|nnotation\\|rgume
  treesit-thing-defined-p(sexp nil)
  treesit-major-mode-setup()
  (let ((delay-mode-hooks t)) (prog-mode) (setq major-mode 'java-ts-mo
  (progn (make-local-variable 'delay-mode-hooks) (let ((delay-mode-hoo
  java-ts-mode()
  (lambda nil (setq indent-tabs-mode nil) (setq java-ts-mode-indent-of
  ert-test--erts-test(((dummy . t) (code)) "/home/jm/src/emacs/test/li
  ert-test-erts-file("/home/jm/src/emacs/test/lisp/progmodes/java-ts-m
  (closure (t) nil (let* ((fn-0 #'treesit-ready-p) (args-1 (condition-
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
  ert-run-test(#s(ert-test :name java-ts-mode-test-indentation :docume
  ert-run-or-rerun-test(#s(ert--stats :selector t :tests [#s(ert-test 
  ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
  ert-run-tests-batch(nil)
  ert-run-tests-batch-and-exit()
  command-line-1(("-l" "/home/jm/src/emacs/lisp/progmodes/java-ts-mode
  command-line()
  normal-top-level()
Test java-ts-mode-test-indentation condition:
    (wrong-type-argument listp java)
   FAILED  1/2  java-ts-mode-test-indentation (0.000824 sec) at test/lisp/progmodes/java-ts-mode-tests.el:26
Test java-ts-mode-test-movement backtrace:
  cdr(java)
  mapcan(cdr (java (sexp "\\(?:_type\\|a\\(?:ccess\\|nnotation\\|rgume
  treesit-thing-defined-p(sexp nil)
  treesit-major-mode-setup()
  (let ((delay-mode-hooks t)) (prog-mode) (setq major-mode 'java-ts-mo
  (progn (make-local-variable 'delay-mode-hooks) (let ((delay-mode-hoo
  java-ts-mode()
  (lambda nil (java-ts-mode) (forward-sentence 1))()
  ert-test--erts-test(((dummy . t) (code)) "/home/jm/src/emacs/test/li
  ert-test-erts-file("/home/jm/src/emacs/test/lisp/progmodes/java-ts-m
  (closure (t) nil (let* ((fn-5 #'treesit-ready-p) (args-6 (condition-
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
  ert-run-test(#s(ert-test :name java-ts-mode-test-movement :documenta
  ert-run-or-rerun-test(#s(ert--stats :selector t :tests [... ...] :te
  ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
  ert-run-tests-batch(nil)
  ert-run-tests-batch-and-exit()
  command-line-1(("-l" "/home/jm/src/emacs/lisp/progmodes/java-ts-mode
  command-line()
  normal-top-level()
Test java-ts-mode-test-movement condition:
    (wrong-type-argument listp java)
   FAILED  2/2  java-ts-mode-test-movement (0.000795 sec) at test/lisp/progmodes/java-ts-mode-tests.el:30

Ran 2 tests, 0 results as expected, 2 unexpected (2023-09-04 11:33:58-0500, 0.128382 sec)

2 unexpected results:
   FAILED  java-ts-mode-test-indentation
   FAILED  java-ts-mode-test-movement



In GNU Emacs 30.0.50 (build 6, x86_64-pc-linux-gnu, GTK+ Version
 3.24.38, cairo version 1.17.8) of 2023-08-29 built on localhost
Repository revision: fb9312722f7b0166f178b601811213a576be5ae4
Repository branch: main
System Description: Fedora Linux 38 (Workstation Edition)

Configured using:
 'configure --with-native-compilation=aot --with-pgtk
 --prefix=/home/jm/.opt'