Re: master 91e02dde5fe: New tests for nested archives (bug#70987)

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

Juri Linkov <juri@jurta.org> writes:

Hi Juri,

>     New tests for nested archives (bug#70987)
>
>     * test/lisp/tar-mode-tests.el (tar-mode-test-tar-extract-zip-and-gz):
>     * test/lisp/arc-mode-tests.el (arc-mode-test-zip-extract-tar-and-gz):
>     New tests.
>     * test/data/decompress/tzg.tar.gz:
>     * test/data/decompress/ztg.zip:
>     New data files to test decompressing of different combinations
>     of nested tar and zip archives.
> ---
>  test/data/decompress/tzg.tar.gz | Bin 0 -> 255 bytes
>  test/data/decompress/ztg.zip    | Bin 0 -> 316 bytes
>  test/lisp/arc-mode-tests.el     |  16 ++++++++++++++++
>  test/lisp/tar-mode-tests.el     |  14 ++++++++++++++
>  4 files changed, 30 insertions(+)

This fails:

--8<---------------cut here---------------start------------->8---
# make -C test tar-mode-tests
make: Entering directory '/home/albinus/src/emacs/test'
make[1]: Entering directory '/home/albinus/src/emacs/test'
  ELC+ELN  lisp/tar-mode-tests.elc
  GEN      lisp/tar-mode-tests.log
Running 3 tests (2024-05-20 13:40:09+0200, selector `(not (tag :unstable))')
uncompressing tg.tar.gz...
uncompressing tg.tar.gz...done
Parsing tar file...
Parsing tar file...done
uncompressing gfk2kIr.gz...
uncompressing gfk2kIr.gz...done
   passed  1/3  tar-mode-test-tar-extract-gz (0.697621 sec)
uncompressing tzg.tar.gz...
uncompressing tzg.tar.gz...done
Parsing tar file...
Parsing tar file...done
Parsing archive file...
Parsing archive file...done.
unzip:  cannot find or open /home/albinus/src/emacs/test/data/decompress/tzg.tar.gz!./zg.zip, /home/albinus/src/emacs/test/data/decompress/tzg.tar.gz!./zg.zip.zip or /home/albinus/src/emacs/test/data/decompress/tzg.tar.gz!./zg.zip.ZIP.

uncompressing gl7vatI.gz...
Test tar-mode-test-tar-extract-zip-and-gz backtrace:
  signal(compression-error ("Opening input file" "error uncompressing
  jka-compr-insert-file-contents("/tmp/gl7vatI.gz" nil nil nil nil)
  apply(jka-compr-insert-file-contents ("/tmp/gl7vatI.gz" nil nil nil
  jka-compr-handler(insert-file-contents "/tmp/gl7vatI.gz" nil nil nil
  insert-file-contents("/tmp/gl7vatI.gz")
  archive-try-jka-compr()
  archive-extract()
  (setq gz-buffer (archive-extract))
  (save-current-buffer (set-buffer (setq zip-buffer (tar-extract))) (s
  (save-current-buffer (set-buffer (setq tar-buffer (find-file-noselec
  (unwind-protect (save-current-buffer (set-buffer (setq tar-buffer (f
  (let* ((tar-file (expand-file-name "tzg.tar.gz" tar-mode-tests-data-
  #f(lambda () [t] (let* ((fn-15 #'executable-find) (args-16 (conditio
  #f(compiled-function () #<bytecode -0x199614d94ac54fba>)()
  handler-bind-1(#f(compiled-function () #<bytecode -0x199614d94ac54fb
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
  ert-run-test(#s(ert-test :name tar-mode-test-tar-extract-zip-and-gz
  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" "--eval" "(setq treesit-extra-l
  command-line()
  normal-top-level()
Test tar-mode-test-tar-extract-zip-and-gz condition:
    (compression-error "Opening input file"
		       "error uncompressing gl7vatI.gz" "/tmp/gl7vatI.gz")
   FAILED  2/3  tar-mode-test-tar-extract-zip-and-gz (0.168586 sec) at lisp/tar-mode-tests.el:49
   passed  3/3  tar-mode-test-tar-grind-file-mode (0.000084 sec)

Ran 3 tests, 2 results as expected, 1 unexpected (2024-05-20 13:40:10+0200, 1.049251 sec)

1 unexpected results:
   FAILED  tar-mode-test-tar-extract-zip-and-gz

make[1]: *** [Makefile:185: lisp/tar-mode-tests.log] Error 1
make[1]: Leaving directory '/home/albinus/src/emacs/test'
make: *** [Makefile:251: lisp/tar-mode-tests] Error 2
make: Leaving directory '/home/albinus/src/emacs/test'
--8<---------------cut here---------------end--------------->8---

Best regards, Michael.