From 92059f4874017816265cd28bb682b215218042ea Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@anarres>
Date: Tue, 6 Mar 2007 20:36:15 +0000
Subject: [PATCH] * WIP adt-testreport-onepackage

---
 debian/changelog                 |   6 +
 runner/adt-testreport-onepackage | 201 +++++++++++++++++++++++++++++++
 2 files changed, 207 insertions(+)
 create mode 100755 runner/adt-testreport-onepackage

diff --git a/debian/changelog b/debian/changelog
index 783fe92..fe3ed3f 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+autopkgtest (0.7.2) unstable; urgency=low
+
+  * WIP adt-testreport-onepackage
+
+ --
+
 autopkgtest (0.7.1) feisty; urgency=low
 
   * Actually ship README.* files.
diff --git a/runner/adt-testreport-onepackage b/runner/adt-testreport-onepackage
new file mode 100755
index 0000000..23374f7
--- /dev/null
+++ b/runner/adt-testreport-onepackage
@@ -0,0 +1,201 @@
+#!/bin/bash
+
+set -e
+
+mirror=http://mirror.relativity.greenend.org.uk/mirror/ubuntu.good
+distro=feisty
+suite=main
+salt=''
+tmp=tmp
+var=var
+administrator_email=ian@davenant.greenend.org.uk
+maintainer_email_override="$administrator_email"
+salutation="Ian"
+from="$salutation Jackson <ian@davenant.greenend.org.uk>"
+rsync=rsync
+
+destdirtail=autopkgtest-output/$distro
+destrsynchead=ijackson@chiark:public-html/
+desthttphead=http://www.chiark.greenend.org.uk/~ijackson/
+
+rm -rf "$tmp"
+mkdir "$tmp"
+
+exec >"$tmp"/log
+
+progress () {
+	echo "++++++ $1 ++++++"
+}
+
+gurl () {
+	progress "fetching $1"
+	curl -sS "$1" >"$2"
+}
+
+gurl "$mirror/dists/$distro/$suite/source/Sources.gz" "$tmp"/sources.gz
+zcat "$tmp"/sources.gz >"$tmp"/sources-in
+
+sed -n 's/^Package: \([-+.0-9a-z][-+.0-9a-z]*\)$/\1/p' \
+ <"$tmp"/sources-in >"$tmp"/sources-packages
+
+if test -f "$var"/last; then
+	sed -e 's/$/ _/' "$var"/last >>"$tmp"/sources-packages
+else
+	echo ' _' >>"$tmp"/sources-packages
+fi
+
+sort <"$tmp"/sources-packages >"$tmp"/all-sorted
+pkg="`
+	perl -ne '
+		if ($now) { print or die $!; $now++; exit; }
+		$now = m/ _$/;
+		END { die unless $now>1; }
+	' <"$tmp"/all-sorted
+`"
+
+progress "selected $pkg"
+
+sed -n "/^Package: $pkg\$/,/^\$/p" \
+ <"$tmp"/sources-in >"$tmp"/this-stanza
+
+cat "$tmp"/this-stanza
+
+getfield () {
+	eval 'p'$1'="`
+		sed -n '\''s/^'$1': //p'\'' \
+		 <"$tmp"/this-stanza
+	`"'
+}
+
+getfield Directory
+
+leafnames="`
+	sed -n '/^Files:/,/^([^ ].*)?$/{ /^ /{
+		s/^ [0-9a-z][0-9a-z]*  *[0-9][0-9]* //; p
+		}}' \
+	 <"$tmp"/this-stanza
+`"
+
+tp="$tmp/$pkg"
+mkdir "$tp" "$tp/src" "$tp/tmp" "$tp/out"
+
+for leafname in $leafnames; do
+	df="$tp/src/$leafname"
+	case "$leafname" in
+	*/*|.*)	echo >&2 "bad leafname: $leafname"; exit 1;;
+	*.dsc) dsc="$df";;
+	esac
+	gurl "$mirror/pool/$suite/$pDirectory/$leafname" "$df"
+done
+
+if [ "x$maintainer_email_override" = x ]; then
+	getfield Maintainer
+	maintainer_email=pMaintainer
+else
+	maintainer_email=maintainer_email_override
+fi
+
+progress "starting test"
+
+xrc () {
+	printf "+ %s\n" "$*"
+	set +e
+	"$@"
+	rc=$?
+	set -e
+}
+
+xrc adt-run --tmp-dir "$tp"/tmp				\
+	--output-dir "$tp"/out				\
+	--log-file "$tp"/log 				\
+	--source "$dsc"					\
+ ---							\
+ adt-virt-xenlvm					\
+	distro="$distro"				\
+ 2>&1
+
+case "$rc" in
+0)	summary='all OK';			email=''		;;
+2)	summary='OK (some skipped)';		email=''		;;
+8)	summary='package declares no tests';	email=''		;;
+4|6)	summary='test(s) failed!';	email="$maintainer_email"	;;
+12)	summary='erroneous package!';	email="$maintainer_email"	;;
+16)	summary='testbed failed!';	email="administrator_email"	;;
+*)	summary='unexpected failure!';	email="administrator_email"	;;
+esac
+
+progress "RESULTS $summary"
+progress "contacting $email"
+
+for odir in tmp out; do
+	if test -d "$tp"/$odir; then
+		GZIP=-2 tar -f "$tp"/$odir.tar.gz -C "$tp" -zc $odir
+		rm -r "$tp"/$odir
+	fi
+done
+
+$rsync -rltH --safe-links --delete "$tp" "$destrsynchead/$destdirtail/"
+
+if [ "x$email" != x ]; then
+	eval "email_addr=\$$email"
+	cat >"$tmp"/email <<END
+From: $from
+To: $email_addr
+Subject: autopkgtest $distro $pkg: $summary
+
+ Test executed for:  $distro  $pkg
+ Outcome: $summary
+
+This message is automatically generated by the autopkgtest package
+testing system.  You are receiving it because:
+END
+	case "$email" in
+		pMaintainer)
+			cat >>"$tmp"/email <<END
+ You are listed in the Maintainer field of the $pkg package in $distro
+  and the test results appear to indicate a problem with the package.
+END
+			;;
+		maintainer_email_override)
+			cat >>"$tmp"/email <<END
+ The test results appear to indicate a problem with the package
+  and reports for package maintainers for $distro are being directed to
+  $maintainer_email_override
+END
+			;;
+		administrator_email)
+			cat >>"$tmp"/email <<END
+ You are the administrator for the autopkgtest installation.
+END
+			;;
+		*)
+			echo >&2 "huh email $email is what why?"
+			exit 1
+			;;
+	esac
+	cat >>"$tmp/email" <<END
+
+The test log, which is intended to be sufficient to diagnose most
+failures, can be found below.  However, in case this is not
+sufficient, another copy can be found along with output files, saved
+temporary files, and so on, at:
+ $desthttphead/$destdirtail/
+
+If you have any questions about this service please contact me at:
+ $from
+
+Regards,
+$salutation
+
+-8<-
+END
+	cat >>"$tmp"/email 2>&1 "$tmp"/log ||:
+	sendmail -odq -oem -t -oi <"$tmp"/email
+fi
+
+printf >>"$var"/log "package=%s rc=%s emailed='%s'\n" \
+	"$pkg" $rc "$email_addr"
+echo $pkg >"$var"/last.new
+mv "$var"/last.new "$var"/last
+
+progress "done."
-- 
2.30.2