#!/bin/bash
set -e
. tests/lib

t-dependencies DEBORIG git-debpush

t-debpolicy

t-archive-none example
t-git-none
t-worktree 1.0

v=1.0-1

t-tagupl-settings

cd $p
git checkout -b native 

git checkout --orphan upstream quilt-tip-2
git rm -rf debian
git commit -m 'pseudo-upstream'
git tag upstream/1.0

git checkout -B master quilt-tip-2

upstream=$(git rev-parse upstream/1.0~0)
tagname=test-dummy/$v

t-tagupl-test --no-push --quilt=gbp

# xxx test pushing

# todo: test each miss/rejection

ident=ok

git cat-file tag $tagname >../basetag
v=1.0-2
tagname=test-dummy/$v

perl -i -ne '
	next if $.==1../^$/;
	next if m/^----/..0;
	s/\b1\.0-1\b/1.0-2/g;
	print or die $!;
' ../basetag

next-mangle () {
	mv ../tagupl/overall.log ../tagupl/overall.log-$ident
	ident=$1
}

with-mangled () {
	local perl=$1
	perl <../basetag >../badtag-$ident -pe "$perl"
	git tag -u Senatus -f -s -m "$(cat ../badtag-$ident)" "$tagname"

	t-tagupl-run-drs
}

expect-quit () {
	next-mangle "$1"
	local perl=$2
	local mstring=$3
	with-mangled "$perl"
	grep ": $mstring" ../tagupl/overall.log
}

expect-quit noplease s/please-upload/plunk/ 'tag missing please-upload'

t-ok