From 8b67402e788511056cae31748a1ffafdabb4a9fb Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 4 Aug 2014 00:50:45 +0100
Subject: Provide t-archive-process-incoming and t-archive-query subroutines
 for regression test scripts to use.

---
 debian/changelog |  2 ++
 tests/lib        | 12 +++++++++++-
 2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/debian/changelog b/debian/changelog
index 84d835b..e6764a4 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -27,6 +27,8 @@ dgit (0.22~experimental1) experimental; urgency=low
   * Document that dgit rpush needs gnupg and your public key on the build
     host.  Closes:#736529.
   * Fix a manpage reference to `--dget=' where `--dgit=' was intended.
+  * Provide t-archive-process-incoming and t-archive-query subroutines for
+    regression test scripts to use.
 
   Major new feature, currently stalled awaiting server infrastructure:
   * dgit-repos-server: New program for receiving signed-tag-based
diff --git a/tests/lib b/tests/lib
index bba49a3..5e64b99 100644
--- a/tests/lib
+++ b/tests/lib
@@ -82,13 +82,23 @@ t-archive-none () {
 	echo sid >$tmp/aq/suite.unstable
 }
 
+t-archive-process-incoming () {
+	mv incoming/${p}_${v}[._]* mirror/
+	t-archive-query
+}
+
+t-archive-query () {
+	local dscf=${p}_${v}.dsc
+	echo "${v} $dscf" >>$tmp/aq/package.sid.${p}
+}
+
 t-archive () {
 	t-archive-none $1
 	v=$2
 	local dscf=${p}_$2.dsc
 	rm -f $tmp/mirror/${p}_*
 	ln $troot/pkg-srcs/${p}_${2%-*}* $tmp/mirror/
-	echo "$2 $dscf" >>$tmp/aq/package.sid.${p}
+	t-archive-query
 	rm -rf $tmp/extract
 	mkdir $tmp/extract
 	(set -e; cd $tmp/extract; dpkg-source -x ../mirror/$dscf)
-- 
cgit v1.2.3