diff options
Diffstat (limited to 'tests/morgue.test')
| -rw-r--r-- | tests/morgue.test | 276 |
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 |