# HG changeset patch
# User Christian Brabandt <cb@256bit.org>
# Date 1722882603 -7200
# Node ID c4b7e2d613f8e1e7195f76868c7bb12e25cb4c93
# Parent  33e5b3e91301e3fb79953ce600f0e88494a9260c
patch 9.1.0661: the zip plugin is not tested.

Commit: https://github.com/vim/vim/commit/d7af21e746f3992c650caf6b76465880b96302b4
Author: Damien <141588647+xrandomname@users.noreply.github.com>
Date:   Mon Aug 5 20:24:11 2024 +0200

    patch 9.1.0661: the zip plugin is not tested.

    Problem:  the zip plugin is not tested.
    Solution: include tests (Damien)

    closes: #15411

    Signed-off-by: Damien <141588647+xrandomname@users.noreply.github.com>
    Signed-off-by: Christian Brabandt <cb@256bit.org>

diff --git a/Filelist b/Filelist
--- a/Filelist
+++ b/Filelist
@@ -218,6 +218,7 @@ SRC_ALL =	\
 		src/testdir/samples/*.txt \
 		src/testdir/samples/*.vim \
 		src/testdir/samples/test000 \
+		src/testdir/samples/test.zip \
 		src/testdir/color_ramp.vim \
 		src/testdir/silent.wav \
 		src/testdir/popupbounce.vim \
diff --git a/src/testdir/Make_all.mak b/src/testdir/Make_all.mak
--- a/src/testdir/Make_all.mak
+++ b/src/testdir/Make_all.mak
@@ -342,6 +342,7 @@ NEW_TESTS = \
 	test_writefile \
 	test_xdg \
 	test_xxd \
+	test_zip_plugin \
 	test_alot_latin \
 	test_alot_utf8 \
 	test_alot
@@ -583,6 +584,7 @@ NEW_TESTS_RES = \
 	test_writefile.res \
 	test_xdg.res \
 	test_xxd.res \
+	test_zip_plugin.res \
 	test_alot_latin.res \
 	test_alot_utf8.res \
 	test_alot.res
diff --git a/src/testdir/samples/test.zip b/src/testdir/samples/test.zip
new file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..6d34ac69928fa9b1a91e088ca468529b8e40f479
GIT binary patch
literal 464
zc$^FHW@h1H0D(frzYz>bfR#apA)+d?KtD8ulYv?6(6TfTF0J5ZU}Sm0%)kI90&r^Q
zglSL7EF#hff#kmt^H+%fU;(m0m=|V5T4qkFUP(m>*q8^o%hNy@&6xbWRIUJTMkYCC
zT;7p@vIH33I)Z4Z=U5>w!*CUDqc~BFvWFQ3@hD;AFue&ejuD8LG&aGELwK4M;%N*c
RS=m6^n1S#ukUk4G1OP|ISfu~}

diff --git a/src/testdir/test_zip_plugin.vim b/src/testdir/test_zip_plugin.vim
new file mode 100644
--- /dev/null
+++ b/src/testdir/test_zip_plugin.vim
@@ -0,0 +1,139 @@
+so check.vim
+
+CheckExecutable unzip
+
+if 0 " Find uncovered line
+  profile start zip_profile
+  profile! file */zip*.vim
+endif
+
+runtime plugin/zipPlugin.vim
+
+def Test_zip_basic()
+  var _sl = &shellslash
+  set noshellslash
+
+  ### get our zip file
+  if !filecopy("samples/test.zip", "X.zip")
+    assert_report("Can't copy samples/test.zip")
+    return
+  endif
+  defer delete("X.zip")
+
+  e X.zip
+
+  ### Check header
+  assert_match('^" zip\.vim version v\d\+', getline(1))
+  assert_match('^" Browsing zipfile .*/X.zip', getline(2))
+  assert_match('^" Select a file with cursor and press ENTER', getline(3))
+  assert_match('^$', getline(4))
+
+  ### Check files listing
+  assert_equal(["Xzip/", "Xzip/dir/", "Xzip/file.txt"], getline(5, 7))
+
+  ### Check ENTER on header
+  :1
+  exe ":normal \<cr>"
+  assert_equal("X.zip", @%)
+
+  ### Check ENTER on directory
+  :1|:/^$//dir/
+  assert_match('Please specify a file, not a directory',
+               execute("normal \<CR>"))
+
+  ### Check ENTER on file
+  :1|:/^$//file/
+  exe ":normal \<cr>"
+  assert_match('zipfile://.*/X.zip::Xzip/file.txt', @%)
+  assert_equal('one', getline(1))
+
+  ### Check editing file
+  if executable("zip")
+    s/one/two/
+    assert_equal("two", getline(1))
+    w
+    bw|bw
+    e X.zip
+
+    :1|:/^$//file/
+    exe "normal \<cr>"
+    assert_equal("two", getline(1))
+  endif
+
+  only
+  e X.zip
+
+  ### Check extracting file
+  :1|:/^$//file/
+  normal x
+  assert_true(filereadable("Xzip/file.txt"))
+  delete("Xzip", "rf")
+
+  ### Check extracting directory
+  :1|:/^$//dir/
+  assert_match('Please specify a file, not a directory', execute("normal x"))
+  assert_equal("X.zip", @%)
+
+  ### Check "x" on header
+  :1
+  normal x
+  assert_equal("X.zip", @%)
+  bw
+
+  ### Check opening zip when "unzip" program is missing
+  var save_zip_unzipcmd = g:zip_unzipcmd
+  g:zip_unzipcmd = "/"
+  assert_match('unzip not available on your system', execute("e X.zip"))
+
+  ### Check when "unzip" don't work
+  if executable("false")
+    g:zip_unzipcmd = "false"
+    assert_match('X\.zip is not a zip file', execute("e X.zip"))
+  endif
+  bw
+
+  g:zip_unzipcmd = save_zip_unzipcmd
+  e X.zip
+
+  ### Check opening file when "unzip" is missing
+  g:zip_unzipcmd = "/"
+  assert_match('sorry, your system doesn''t appear to have the / program',
+               execute("normal \<CR>"))
+
+  bw|bw
+  g:zip_unzipcmd = save_zip_unzipcmd
+  e X.zip
+
+  ### Check :write when "zip" program is missing
+  :1|:/^$//file/
+  exe "normal \<cr>Goanother\<esc>"
+  var save_zip_zipcmd = g:zip_zipcmd
+  g:zip_zipcmd = "/"
+  assert_match('sorry, your system doesn''t appear to have the / program',
+               execute("write"))
+
+  ### Check when "zip" report failure
+  if executable("false")
+    g:zip_zipcmd = "false"
+    assert_match('sorry, unable to update .*/X.zip with Xzip/file.txt',
+                  execute("write"))
+  endif
+  bw!|bw
+
+  g:zip_zipcmd = save_zip_zipcmd
+
+  ### Check opening an no zipfile
+  writefile(["qsdf"], "Xcorupt.zip", "D")
+  e! Xcorupt.zip
+  assert_equal("qsdf", getline(1))
+
+  bw
+
+  ### Check no existing zipfile
+  assert_match('File not readable', execute("e Xnot_exists.zip"))
+
+  bw
+
+  &shellslash = _sl
+
+enddef
diff --git a/src/version.c b/src/version.c
--- a/src/version.c
+++ b/src/version.c
@@ -705,6 +705,8 @@ static char *(features[]) =
 static int included_patches[] =
 {   /* Add new patch number below this line */
 /**/
+    661,
+/**/
     660,
 /**/
     659,