tests/copy-suite-existing.sh: New test file

2 files changed, 84 insertions, 1 deletions

diff --git a/tests/copy-suite-existing.sh b/tests/copy-suite-existing.sh
new file mode 100755
index 0000000..933bc8b
--- /dev/null
+++ b/tests/copy-suite-existing.sh
@@ -0,0 +1,82 @@
+#!/bin/sh
+#
+# This file is part of the ProteanOS Archive Manager.
+#
+# The ProteanOS Archive Manager is free software: you can redistribute
+# it and/or modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation, either version 3 of the
+# License, or (at your option) any later version.
+#
+# The ProteanOS Archive Manager is distributed in the hope that it
+# will be useful, but WITHOUT ANY WARRANTY; without even the implied
+# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+# See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with the ProteanOS Archive Manager.  If not, see
+# <http://www.gnu.org/licenses/>.
+
+. ${0%/*}/aux/init.sh
+. tap-functions.sh
+. opk.sh
+
+plan_ 9
+
+mkdir 'archive/'
+cat >'archive/conf' <<-EOF
+	conf_pool_gc_delay=0
+	EOF
+
+changes="$(make_opks_and_changes 'foo' 'foo bar' '1.0-1' 'arch' 'plat' 'trunk' \
+	'base')"
+
+command_ok_ 'pro-archman include' -- \
+	"${PRO_ARCHMAN}" -v -b 'archive/' include "${changes}"
+
+command_ok_ 'pro-archman copy-suite' -- \
+	"${PRO_ARCHMAN}" -v -b 'archive/' copy-suite 'dev/trunk' 'dev/rs1'
+
+changes="$(make_opks_and_changes 'foo' 'foo bar' '1.0-2' 'arch' 'plat' 'trunk' \
+	'base')"
+
+command_ok_ 'pro-archman include' -- \
+	"${PRO_ARCHMAN}" -v -b 'archive/' include "${changes}"
+
+command_ok_ 'pro-archman copy-suite' -- \
+	"${PRO_ARCHMAN}" -v -b 'archive/' copy-suite 'dev/trunk' 'dev/rs1'
+
+command_ok_ 'old package "foo" not in pool' -- \
+	not [ -f 'archive/pool/f/foo/foo_1.0-1_arch_plat.opk' ]
+command_ok_ 'old package "bar" not in pool' -- \
+	not [ -f 'archive/pool/f/foo/bar_1.0-1_arch_plat.opk' ]
+command_ok_ 'new package "foo" in pool' -- \
+	[ -f 'archive/pool/f/foo/foo_1.0-2_arch_plat.opk' ]
+command_ok_ 'new package "bar" in pool' -- \
+	[ -f 'archive/pool/f/foo/bar_1.0-2_arch_plat.opk' ]
+
+got_packages='archive/feeds/dev/rs1/arch/plat/base/Packages'
+cat >'Packages.exp' <<-EOF
+	Package: bar
+	Source: foo
+	Version: 1.0-2
+	Architecture: arch
+	Platform: plat
+	Maintainer: "J. Random Hacker" <jrandom@example.com>
+	Filename: ../../../../../../pool/f/foo/bar_1.0-2_arch_plat.opk
+	$(grep '^Size: ' "${got_packages}" | sed -n '1{ p; q; }')
+	$(grep '^MD5sum: ' "${got_packages}" | sed -n '1{ p; q; }')
+	$(grep '^SHA256sum: ' "${got_packages}" | sed -n '1{ p; q; }')
+	
+	Package: foo
+	Source: foo
+	Version: 1.0-2
+	Architecture: arch
+	Platform: plat
+	Maintainer: "J. Random Hacker" <jrandom@example.com>
+	Filename: ../../../../../../pool/f/foo/foo_1.0-2_arch_plat.opk
+	$(grep '^Size: ' "${got_packages}" | sed -n '2{ p; q; }')
+	$(grep '^MD5sum: ' "${got_packages}" | sed -n '2{ p; q; }')
+	$(grep '^SHA256sum: ' "${got_packages}" | sed -n '2{ p; q; }')
+	
+	EOF
+command_ok_ 'packages index OK' -- diff -u 'Packages.exp' "${got_packages}"
diff --git a/tests/local.mk b/tests/local.mk
index e83ca40..860817e 100644
--- a/tests/local.mk
+++ b/tests/local.mk
@@ -8,7 +8,8 @@ TESTS = \
 	%reldir%/remove.sh \
 	%reldir%/remove-no-gc.sh \
 	%reldir%/copy-suite.sh \
-	%reldir%/copy-suite-new-version-refcnt.sh
+	%reldir%/copy-suite-new-version-refcnt.sh \
+	%reldir%/copy-suite-existing.sh
 
 EXTRA_DIST += \
 	tests/aux/init.sh \