Adding upstream version 5.4.4.upstream/5.4.4

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 276 insertions, 0 deletions

diff --git a/tests/morgue.test b/tests/morgue.test
new file mode 100644
index 0000000..a302ec2
--- /dev/null
+++ b/tests/morgue.test
@@ -0,0 +1,276 @@
+set -u
+. "$TESTSDIR"/test.inc
+
+mkdir conf
+cat > conf/options <<EOF
+morguedir ./morgue
+export silent-never
+EOF
+cat > conf/distributions <<EOF
+Codename: test
+Architectures: source
+Components: main
+EOF
+cat > fake.dsc <<EOF
+Format: 1.0
+Source: bla
+Binary: bla
+Architecture: all
+Section: whatever
+Priority: important
+Version: 1.7
+Maintainer: nobody <nobody@localhost>
+Files:
+EOF
+
+
+testrun - -C main includedsc test fake.dsc 3<<EOF
+stdout
+$(odb)
+-v2*=Created directory "./pool"
+-v2*=Created directory "./pool/main"
+-v2*=Created directory "./pool/main/b"
+-v2*=Created directory "./pool/main/b/bla"
+$(ofa 'pool/main/b/bla/bla_1.7.dsc')
+$(opa 'bla' unset 'test' 'main' 'source' 'dsc')
+EOF
+
+testrun - remove test bla 3<<EOF
+stdout
+$(opd 'bla' unset test main source dsc)
+-v0*=Deleting files no longer referenced...
+-v2*=Created directory "./morgue"
+-v2*=removed now empty directory ./pool/main/b/bla
+-v2*=removed now empty directory ./pool/main/b
+-v2*=removed now empty directory ./pool/main
+-v2*=removed now empty directory ./pool
+$(ofd 'pool/main/b/bla/bla_1.7.dsc')
+EOF
+
+ls -la morgue
+dodo test -f morgue/bla_1.7.dsc
+dodo test ! -e pool
+
+rm -r morgue
+# test what happens if one cannot write there:
+mkdir morgue
+chmod a-w morgue
+
+testrun - -C main includedsc test fake.dsc 3<<EOF
+stdout
+-v2*=Created directory "./pool"
+-v2*=Created directory "./pool/main"
+-v2*=Created directory "./pool/main/b"
+-v2*=Created directory "./pool/main/b/bla"
+$(ofa 'pool/main/b/bla/bla_1.7.dsc')
+$(opa 'bla' unset 'test' 'main' 'source' 'dsc')
+EOF
+
+testrun - remove test bla 3<<EOF
+stdout
+$(opd 'bla' unset test main source dsc)
+-v0*=Deleting files no longer referenced...
+-v1*=deleting and forgetting pool/main/b/bla/bla_1.7.dsc
+stderr
+*=error 13 creating morgue-file ./morgue/bla_1.7.dsc: Permission denied
+-v0*=There have been errors!
+returns 243
+EOF
+
+find morgue -mindepth 1 | sort > results
+cat > results.expected <<EOF
+EOF
+dodiff results.expected results
+
+# if it could not be moved to the morgue, it should stay in the pool:
+testrun - dumpunreferenced 3<<EOF
+stdout
+*=pool/main/b/bla/bla_1.7.dsc
+EOF
+
+# and deleting it there of course fails again:
+testrun - deleteunreferenced 3<<EOF
+stdout
+-v1*=deleting and forgetting pool/main/b/bla/bla_1.7.dsc
+stderr
+*=error 13 creating morgue-file ./morgue/bla_1.7.dsc: Permission denied
+-v0*=There have been errors!
+returns 243
+EOF
+
+# if it could not be moved to the morgue, it should stay in the pool:
+testrun - dumpunreferenced 3<<EOF
+stdout
+*=pool/main/b/bla/bla_1.7.dsc
+EOF
+
+chmod u+w morgue
+
+# now it should work:
+testrun - deleteunreferenced 3<<EOF
+stdout
+-v2*=removed now empty directory ./pool/main/b/bla
+-v2*=removed now empty directory ./pool/main/b
+-v2*=removed now empty directory ./pool/main
+-v2*=removed now empty directory ./pool
+$(ofd 'pool/main/b/bla/bla_1.7.dsc')
+EOF
+find morgue -mindepth 1 | sort > results
+cat > results.expected <<EOF
+morgue/bla_1.7.dsc
+EOF
+dodiff results.expected results
+# and be gone:
+testrun empty dumpunreferenced
+
+
+
+ls -la morgue
+dodo test -f morgue/bla_1.7.dsc
+dodo test ! -e pool
+
+# Next test: what if the file is missing?
+
+testrun - -C main includedsc test fake.dsc 3<<EOF
+stdout
+-v2*=Created directory "./pool"
+-v2*=Created directory "./pool/main"
+-v2*=Created directory "./pool/main/b"
+-v2*=Created directory "./pool/main/b/bla"
+$(ofa 'pool/main/b/bla/bla_1.7.dsc')
+$(opa 'bla' unset 'test' 'main' 'source' 'dsc')
+EOF
+
+dodo rm pool/main/b/bla/bla_1.7.dsc
+
+testrun - remove test bla 3<<EOF
+stdout
+$(opd 'bla' unset test main source dsc)
+-v0*=Deleting files no longer referenced...
+stderr
+*=./pool/main/b/bla/bla_1.7.dsc not found, forgetting anyway
+stdout
+$(ofd 'pool/main/b/bla/bla_1.7.dsc')
+EOF
+
+find morgue -mindepth 1 | sort > results
+cat > results.expected <<EOF
+morgue/bla_1.7.dsc
+EOF
+dodiff results.expected results
+
+# Next test: file cannot be moved
+
+testrun - -C main includedsc test fake.dsc 3<<EOF
+stdout
+$(ofa 'pool/main/b/bla/bla_1.7.dsc')
+$(opa 'bla' unset 'test' 'main' 'source' 'dsc')
+EOF
+
+dodo chmod a-w pool/main/b/bla
+
+testrun - remove test bla 3<<EOF
+stdout
+$(opd 'bla' unset test main source dsc)
+-v0*=Deleting files no longer referenced...
+-v1*=deleting and forgetting pool/main/b/bla/bla_1.7.dsc
+stderr
+*=error 13 while unlinking ./pool/main/b/bla/bla_1.7.dsc: Permission denied
+-v0*=There have been errors!
+returns 243
+EOF
+
+dodo chmod u+w pool/main/b/bla
+
+find morgue -mindepth 1 | sort > results
+cat > results.expected <<EOF
+morgue/bla_1.7.dsc
+EOF
+dodiff results.expected results
+testrun - dumpunreferenced 3<<EOF
+stdout
+*=pool/main/b/bla/bla_1.7.dsc
+EOF
+
+# now it should work:
+testrun - deleteunreferenced 3<<EOF
+stdout
+-v2*=removed now empty directory ./pool/main/b/bla
+-v2*=removed now empty directory ./pool/main/b
+-v2*=removed now empty directory ./pool/main
+-v2*=removed now empty directory ./pool
+$(ofd 'pool/main/b/bla/bla_1.7.dsc')
+EOF
+find morgue -mindepth 1 | sort > results
+cat > results.expected <<EOF
+morgue/bla_1.7.dsc
+morgue/bla_1.7.dsc-1
+EOF
+dodiff results.expected results
+# and be gone:
+testrun empty dumpunreferenced
+
+# Test symbolic link:
+testrun - -C main includedsc test fake.dsc 3<<EOF
+stdout
+-v2*=Created directory "./pool"
+-v2*=Created directory "./pool/main"
+-v2*=Created directory "./pool/main/b"
+-v2*=Created directory "./pool/main/b/bla"
+$(ofa 'pool/main/b/bla/bla_1.7.dsc')
+$(opa 'bla' unset 'test' 'main' 'source' 'dsc')
+EOF
+
+dodo mv pool/main/b/bla/bla_1.7.dsc pool/main/b/bla/bla_1.7.dscc
+dodo ln -s bla_1.7.dscc pool/main/b/bla/bla_1.7.dsc
+
+testrun - remove test bla 3<<EOF
+stdout
+$(opd 'bla' unset test main source dsc)
+-v0*=Deleting files no longer referenced...
+$(ofd 'pool/main/b/bla/bla_1.7.dsc')
+EOF
+
+ls -l morgue
+find morgue -mindepth 1 | sort > results
+cat > results.expected <<EOF
+morgue/bla_1.7.dsc
+morgue/bla_1.7.dsc-1
+EOF
+dodiff results.expected results
+
+dodo mv pool/main/b/bla/bla_1.7.dscc pool/main/b/bla/bla_1.7.dsc
+testrun - _detect pool/main/b/bla/bla_1.7.dsc 3<<EOF
+stdout
+$(ofa 'pool/main/b/bla/bla_1.7.dsc')
+-v0*=1 files were added but not used.
+-v0*=The next deleteunreferenced call will delete them.
+EOF
+
+dodo chmod a-r pool/main/b/bla/bla_1.7.dsc
+testrun - deleteunreferenced 3<<EOF
+stdout
+$(ofd 'pool/main/b/bla/bla_1.7.dsc')
+-v2*=removed now empty directory ./pool/main/b/bla
+-v2*=removed now empty directory ./pool/main/b
+-v2*=removed now empty directory ./pool/main
+-v2*=removed now empty directory ./pool
+EOF
+ls -l morgue
+find morgue -mindepth 1 | sort > results
+cat > results.expected <<EOF
+morgue/bla_1.7.dsc
+morgue/bla_1.7.dsc-1
+morgue/bla_1.7.dsc-2
+EOF
+dodiff results.expected results
+
+# TODO: is there a way to check if failing copying is handled correctly?
+# that needs a file not readable, not renameable to morgue, but can be unlinked...
+
+# TODO: check if things like a failed include work correctly
+# (they should only copy things to the morgue that were in the pool previously)
+
+dodo test ! -e pool
+rm -r db morgue fake.dsc conf results results.expected
+testsuccess