Hi!
2017-05-26 15:47 GMT+02:00 Ikumi Keita <ik...@ikumi.que.jp>:
> I wrote a suite of ERT files and commited them with the patches, since I
> heard no objections during the span. I also commited the patch in my
> previous message to make preview-latex to work with xemacs on w32
> system.
>
> Since it was too difficult for me to write a full automated test which
> can complete entirely in batch mode because the functionality of
> preview-latex depends how images scattered on the buffer "look" like to
> human eyes, some of the tests are marked to be skipped in batch mode.
> Such tests requires manual execution instead.
I know that tests aren't always easy to write, especially for stuff
that requires interaction. I don't ask tests at any cost, but when
it's possible to write them, they're definitely useful to prevent
future failures ;-)
> If someone finds difficulties with this commit, feel free to ask me.
Indeed I have a problem: all non skipped tests in
japanese/preview-latex.el fail for me. Attached you can find the log,
if it can help you.
Bye,
Mosè
Loading 00debian-vars...
Loading /etc/emacs/site-start.d/50autoconf.el (source)...
Loading /etc/emacs/site-start.d/50cmake-data.el (source)...
Loading /etc/emacs/site-start.d/50dictionaries-common.el (source)...
Loading debian-ispell...
Loading /var/cache/dictionaries-common/emacsen-ispell-default.el (source)...
Loading /var/cache/dictionaries-common/emacsen-ispell-dicts.el (source)...
Loading /etc/emacs/site-start.d/50emacs-goodies-el.el (source)...
Loading /etc/emacs/site-start.d/50festival.el (source)...
Loading /etc/emacs/site-start.d/50python-docutils.el (source)...
Running 8 tests (2017-05-26 17:29:15+0200)
Test japanese-preview-convert-^^ab backtrace:
(let ((fn-65 (function string=)) (args-66 (list (preview--convert-^^
(let (case-fold-search) (let ((fn-65 (function string=)) (args-66 (l
(lambda nil (let (case-fold-search) (let ((fn-65 (function string=))
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
ert-run-test([cl-struct-ert-test japanese-preview-convert-^^ab "`pre
ert-run-or-rerun-test([cl-struct-ert--stats t [[cl-struct-ert-test j
ert-run-tests(t #[385 "\306\307\"\203G \211\211G\310U\203 \211@\20
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-L" ".." "-l" "ert" "-l" "japanese/preview-latex.el
command-line()
normal-top-level()
Test japanese-preview-convert-^^ab condition:
(void-function preview--convert-^^ab)
FAILED 1/8 japanese-preview-convert-^^ab
Test japanese-preview-decode-^^ab backtrace:
(let ((fn-45 (function string=)) (args-46 (list (preview--decode-^^a
(let (case-fold-search) (let ((fn-45 (function string=)) (args-46 (l
(lambda nil (let (case-fold-search) (let ((fn-45 (function string=))
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
ert-run-test([cl-struct-ert-test japanese-preview-decode-^^ab "`prev
ert-run-or-rerun-test([cl-struct-ert--stats t [[cl-struct-ert-test j
ert-run-tests(t #[385 "\306\307\"\203G \211\211G\310U\203 \211@\20
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-L" ".." "-l" "ert" "-l" "japanese/preview-latex.el
command-line()
normal-top-level()
Test japanese-preview-decode-^^ab condition:
(void-function preview--decode-^^ab)
FAILED 2/8 japanese-preview-decode-^^ab
skipped 3/8 japanese-preview-different-coding-system
Test japanese-preview-error-quote-shift-jis backtrace:
(setq value-42 (apply fn-40 args-41))
(unwind-protect (setq value-42 (apply fn-40 args-41)) (setq form-des
(if (unwind-protect (setq value-42 (apply fn-40 args-41)) (setq form
(let (form-description-44) (if (unwind-protect (setq value-42 (apply
(let ((value-42 (quote ert-form-evaluation-aborted-43))) (let (form-
(let ((fn-40 (function string-match)) (args-41 (list (preview-error-
(while --dolist-tail-- (setq str (car --dolist-tail--)) (let ((fn-40
(let ((--dolist-tail-- (quote ("表(1)" "予{a}" "能|" "{あ} %能" "アース" "型"
(let (case-fold-search (buffer-file-coding-system (quote shift_jis))
(lambda nil (let (case-fold-search (buffer-file-coding-system (quote
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
ert-run-test([cl-struct-ert-test japanese-preview-error-quote-shift-
ert-run-or-rerun-test([cl-struct-ert--stats t [[cl-struct-ert-test j
ert-run-tests(t #[385 "\306\307\"\203G \211\211G\310U\203 \211@\20
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-L" ".." "-l" "ert" "-l" "japanese/preview-latex.el
command-line()
normal-top-level()
Test japanese-preview-error-quote-shift-jis condition:
(invalid-regexp "Unmatched ( or \\(")
FAILED 4/8 japanese-preview-error-quote-shift-jis
skipped 5/8 japanese-preview-preserve-kanji-option
Applying style hooks...
Applying style hooks... done
Applying style hooks...
Applying style hooks... done
Type `C-c C-l' to display results of compilation.
No files to be deleted
Test japanese-preview-preserve-kanji-option2 backtrace:
(if (unwind-protect (setq value-97 (apply fn-95 args-96)) (setq form
(let (form-description-99) (if (unwind-protect (setq value-97 (apply
(let ((value-97 (quote ert-form-evaluation-aborted-98))) (let (form-
(let ((fn-95 (function string-match)) (args-96 (list "-kanji" (nth (
(let ((cmd (process-command process))) (let ((fn-95 (function string
(progn (find-file preserve-kanji-option) (setq dummyfile (TeX-master
(unwind-protect (progn (find-file preserve-kanji-option) (setq dummy
(let ((wconfig (current-window-configuration))) (unwind-protect (pro
(unwind-protect (let ((wconfig (current-window-configuration))) (unw
(let ((TeX-clean-confirm nil) (preview-image-creators nil) dummy pro
(lambda nil (let ((TeX-clean-confirm nil) (preview-image-creators ni
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
ert-run-test([cl-struct-ert-test japanese-preview-preserve-kanji-opt
ert-run-or-rerun-test([cl-struct-ert--stats t [[cl-struct-ert-test j
ert-run-tests(t #[385 "\306\307\"\203G \211\211G\310U\203 \211@\20
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-L" ".." "-l" "ert" "-l" "japanese/preview-latex.el
command-line()
normal-top-level()
Test japanese-preview-preserve-kanji-option2 condition:
(ert-test-failed
((should
(string-match "-kanji"
(nth ... cmd)))
:form
(string-match "-kanji" "platex")
:value nil))
FAILED 6/8 japanese-preview-preserve-kanji-option2
Type `C-c C-l' to display results of compilation.
Test japanese-preview-process-coding-system backtrace:
(if (unwind-protect (setq value-87 (apply fn-85 args-86)) (setq form
(let (form-description-89) (if (unwind-protect (setq value-87 (apply
(let ((value-87 (quote ert-form-evaluation-aborted-88))) (let (form-
(let ((fn-85 (function coding-system-equal)) (args-86 (list locale-c
(progn (setq process (TeX-inline-preview-internal "echo foo" dummyfi
(unwind-protect (progn (setq process (TeX-inline-preview-internal "e
(let ((dummyfile (make-temp-file "japanese-TeX-ert")) (file-cs (quot
(lambda nil (let ((dummyfile (make-temp-file "japanese-TeX-ert")) (f
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
ert-run-test([cl-struct-ert-test japanese-preview-process-coding-sys
ert-run-or-rerun-test([cl-struct-ert--stats t [[cl-struct-ert-test j
ert-run-tests(t #[385 "\306\307\"\203G \211\211G\310U\203 \211@\20
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-L" ".." "-l" "ert" "-l" "japanese/preview-latex.el
command-line()
normal-top-level()
Test japanese-preview-process-coding-system condition:
(ert-test-failed
((should
(coding-system-equal locale-cs preview-coding-system))
:form
(coding-system-equal japanese-iso-8bit-unix japanese-shift-jis)
:value nil))
FAILED 7/8 japanese-preview-process-coding-system
skipped 8/8 japanese-preview-shift-jis
Ran 8 tests, 0 results as expected, 5 unexpected, 3 skipped (2017-05-26 17:29:16+0200)
5 unexpected results:
FAILED japanese-preview-convert-^^ab
FAILED japanese-preview-decode-^^ab
FAILED japanese-preview-error-quote-shift-jis
FAILED japanese-preview-preserve-kanji-option2
FAILED japanese-preview-process-coding-system
3 skipped results:
SKIPPED japanese-preview-different-coding-system
SKIPPED japanese-preview-preserve-kanji-option
SKIPPED japanese-preview-shift-jis
_______________________________________________
bug-auctex mailing list
bug-auctex@gnu.org
https://lists.gnu.org/mailman/listinfo/bug-auctex
