perl <../basetag >../badtag-$ident -pe "$perl"
git tag -u Senatus -f -s -m "$(cat ../badtag-$ident)" "$tagname"
- t-tagupl-run-drs
+ t-tagupl-run-drs $tmp/$p
}
expect-quit () {
raw-mangled () {
git update-ref refs/tags/$tagname \
$(git hash-object -w -t tag ../tagobj-$ident)
- t-tagupl-run-drs
+ t-tagupl-run-drs $tmp/$p
}
tagname=test-dummy/1.2
t-expect-fail E:'failed command: git fetch' \
-t-tagupl-run-drs
+t-tagupl-run-drs $tmp/$p
tagname=splorf/$v ; expect-quit baddistro '' 'tag name not for us'
tagname=test-dummy/1,2; expect-quit badver '' 'tag name not for us'