test suite: lib-gdr: Factor out t-make-orig

NFC, overall.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

2 files changed, 10 insertions, 3 deletions

diff --git a/tests/lib b/tests/lib
index 42e1344..9693c25 100644
--- a/tests/lib
+++ b/tests/lib
@@ -1026,6 +1026,15 @@ t-make-badcommit () {
 	t-expect-fsck-fail $badcommit
 }
 
+t-make-orig () {
+	# leaves ust set to filename of orig tarball
+	local p=$1
+	local v=$2
+	local tag=${3-v$2}
+	ust=${p}_${v}.orig.tar.gz
+	git archive -o ../$ust --prefix=${p}-${v}/ $tag
+}
+
 t-merge-conflicted-stripping-conflict-markers () {
 	local otherbranch=$1
 	local file=$2
diff --git a/tests/lib-gdr b/tests/lib-gdr
index 251143e..cda11df 100644
--- a/tests/lib-gdr
+++ b/tests/lib-gdr
@@ -229,11 +229,9 @@ t-some-changes () {
 t-make-new-upstream-tarball () {
 	local uv=$1
 	git checkout make-upstream
-	# leaves ust set to filename of orig tarball
 	echo "upstream $uv" >>docs/README
 	git commit -a -m "upstream $uv tarball"
-	ust=example_$uv.orig.tar.gz
-	git archive -o ../$ust --prefix=example-2.0/ make-upstream
+	t-make-orig example $uv make-upstream
 }
 
 t-nmu-upload-1 () {