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
_______________________________________________ auctex-devel mailing list auctex-devel@gnu.org https://lists.gnu.org/mailman/listinfo/auctex-devel