Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
grep ": $mstring" ../tagupl/overall.log
}
+expect-email () {
+ next-mangle "$1"
+ local perl=$2
+ local mstring=$3
+ with-mangled "$perl"
+ grep 'Was not successful' ../sendmail.log
+ grep "$mstring" ../sendmail.log
+ grep ": failed, emailed" ../tagupl/overall.log
+}
+
tagname=test-dummy/1.2
t-expect-fail E:'failed command: git fetch' \
t-tagupl-run-drs
expect-quit noplease s/please-upload/plunk/ 'tag missing please-upload'
+expect-email vermatch 's/^example release /$&3/' 'reject: version mismatch'
+
# we are going to trash $p because it will contain corrupted objects
# which makes our end-of-test fsck fail
cp -al ../$p ../$p.save