tests/debbugs: Add test for active bug's summary file.

* tests/debbugs.scm ("bug-id->summary-file: return active summary
file"): New test.
* tests/data/spool/db-h/99/33299.{report,status,summary}: New files.

4 files changed, 265 insertions, 0 deletions

diff --git a/tests/data/spool/db-h/99/33299.report b/tests/data/spool/db-h/99/33299.report
new file mode 100644
index 0000000..7649a36
--- /dev/null
+++ b/tests/data/spool/db-h/99/33299.report
@@ -0,0 +1,238 @@
+Received: (at submit) by debbugs.gnu.org; 7 Nov 2018 10:04:02 +0000
+From debbugs-submit-bounces@debbugs.gnu.org Wed Nov 07 05:04:02 2018
+Received: from localhost ([127.0.0.1]:38169 helo=debbugs.gnu.org)
+	by debbugs.gnu.org with esmtp (Exim 4.84_2)
+	(envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
+	id 1gKKgq-0004mE-Nl
+	for submit@debbugs.gnu.org; Wed, 07 Nov 2018 05:04:02 -0500
+Received: from eggs.gnu.org ([208.118.235.92]:33650)
+ by debbugs.gnu.org with esmtp (Exim 4.84_2)
+ (envelope-from <user@example.com>) id 1gKKgo-0004m2-Qk
+ for submit@debbugs.gnu.org; Wed, 07 Nov 2018 05:03:59 -0500
+Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
+ (envelope-from <user@example.com>) id 1gKKgb-0000lA-Ee
+ for submit@debbugs.gnu.org; Wed, 07 Nov 2018 05:03:51 -0500
+X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org
+X-Spam-Level: 
+X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,HTML_MESSAGE
+ autolearn=disabled version=3.3.2
+Received: from lists.gnu.org ([2001:4830:134:3::11]:50439)
+ by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32)
+ (Exim 4.71) (envelope-from <user@example.com>)
+ id 1gKKgR-0000f7-2m
+ for submit@debbugs.gnu.org; Wed, 07 Nov 2018 05:03:38 -0500
+Received: from eggs.gnu.org ([2001:4830:134:3::10]:42984)
+ by lists.gnu.org with esmtp (Exim 4.71)
+ (envelope-from <user@example.com>) id 1gKKgN-0002qo-1X
+ for bug-guix@gnu.org; Wed, 07 Nov 2018 05:03:34 -0500
+Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
+ (envelope-from <user@example.com>) id 1gKKg8-0000Wi-T9
+ for bug-guix@gnu.org; Wed, 07 Nov 2018 05:03:22 -0500
+Received: from mx1.example.com ([198.252.153.129]:50222)
+ by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32)
+ (Exim 4.71) (envelope-from <user@example.com>)
+ id 1gKKg8-0000V3-DH
+ for bug-guix@gnu.org; Wed, 07 Nov 2018 05:03:16 -0500
+Received: from piha.example.com (piha-pn.example.com [10.0.1.163])
+ (using TLSv1 with cipher ECDHE-RSA-AES256-SHA (256/256 bits))
+ (Client CN "*.example.com",
+ Issuer "COMODO RSA Domain Validation Secure Server CA" (verified OK))
+ by mx1.example.com (Postfix) with ESMTPS id 340CE1A0004
+ for <bug-guix@gnu.org>; Wed,  7 Nov 2018 02:03:15 -0800 (PST)
+DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=example.com; s=squak;
+ t=1541584995; bh=3yioyL49UFKvvTn6tW3x24hMLOfxM1s27UQlDJD0oCY=;
+ h=To:From:Subject:Date:From;
+ b=Hz7uFvaqX0YqTGYUlbo/AKSmJ95dY+tSy4LaQovjHAgwHkoAo9Gp0qfU1w7Wb3U+E
+ DfDA7vrIRk6xsIZjUgxel3ck1liXjom3frl7K6otvU21GKlM4kmt603UU7c4Z1s1HR
+ 0Or2ee8GD4uYcr9MSvZlRbxaiEGWyskMI/wlF408=
+X-Riseup-User-ID: F82166AB8C50B1CD2BD51AF22D77350890A2365CC58F58358D9C45B8E31EA5DA
+Received: from [127.0.0.1] (localhost [127.0.0.1])
+ by piha.example.com with ESMTPSA id 51E10651B1
+ for <bug-guix@gnu.org>; Wed,  7 Nov 2018 02:03:13 -0800 (PST)
+To: bug-guix@gnu.org
+From: user <user@example.com>
+Subject: shepherd: Service ssh-daemon could not be started.
+Message-ID: <c78be403-0616-67a0-fd5a-e1196b6a14d1@example.com>
+Date: Wed, 7 Nov 2018 11:03:10 +0100
+MIME-Version: 1.0
+Content-Type: multipart/alternative;
+ boundary="------------5605D2151F7A729B47E272C4"
+Content-Language: en-US
+X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic]
+X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x
+X-Received-From: 2001:4830:134:3::11
+X-Spam-Score: -4.1 (----)
+X-Debbugs-Envelope-To: submit
+X-BeenThere: debbugs-submit@debbugs.gnu.org
+X-Mailman-Version: 2.1.18
+Precedence: list
+List-Id: <debbugs-submit.debbugs.gnu.org>
+List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
+ <mailto:debbugs-submit-request@debbugs.gnu.org?subject=unsubscribe>
+List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
+List-Post: <mailto:debbugs-submit@debbugs.gnu.org>
+List-Help: <mailto:debbugs-submit-request@debbugs.gnu.org?subject=help>
+List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
+ <mailto:debbugs-submit-request@debbugs.gnu.org?subject=subscribe>
+Errors-To: debbugs-submit-bounces@debbugs.gnu.org
+Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
+X-Spam-Score: -5.1 (-----)
+
+This is a multi-part message in MIME format.
+--------------5605D2151F7A729B47E272C4
+Content-Type: text/plain; charset=utf-8; format=flowed
+Content-Transfer-Encoding: quoted-printable
+
+Hi
+
+This morning I started my GuixSD VM as usual.
+
+Openssh server was not running even though it was enabled and should=20
+have been respawned. Hmm.
+
+Lucky for me SSH is not the only way into this system...
+
+ From the host I got:
+
+$ ssh=C2=A0 sdb@localhost -p10022
+ssh_exchange_identification: read: Connection reset by peer
+
+On the guest:
+
+$ grep -3 "ssh-daemon could not /var/log/messages
+Nov=C2=A0 7 07:19:30 localhost vmunix: [=C2=A0=C2=A0=C2=A0 0.366701] VFS:=
+ Dquot-cache hash=20
+table entries: 512 (order 0, 4096 bytes)
+Nov=C2=A0 7 07:19:30 localhost vmunix: [=C2=A0=C2=A0=C2=A0 0.367764] AppA=
+rmor: AppArmor=20
+Filesystem Enabled
+Nov=C2=A0 7 07:19:30 localhost vmunix: [=C2=A0=C2=A0=C2=A0 0.368569] pnp:=
+ PnP ACPI init
+Nov=C2=A0 7 07:19:31 localhost shepherd[1]: Service ssh-daemon could not =
+be=20
+started.
+Nov=C2=A0 7 07:19:31 localhost vmunix: [=C2=A0=C2=A0=C2=A0 0.370291] pnp:=
+ PnP ACPI: found 6=20
+devices
+Nov=C2=A0 7 07:19:31 localhost vmunix: [=C2=A0=C2=A0=C2=A0 0.378960] cloc=
+ksource: acpi_pm:=20
+mask: 0xffffff max_cycles: 0xffffff, max_idle_ns: 2085701024 ns
+Nov=C2=A0 7 07:19:31 localhost vmunix: [=C2=A0=C2=A0=C2=A0 0.380434] NET:=
+ Registered=20
+protocol family 2
+
+Herd said:
+
+$ cat sshd-stopped
+Status of ssh-daemon:
+ =C2=A0 It is stopped.
+ =C2=A0 It is enabled.
+ =C2=A0 Provides (ssh-daemon).
+ =C2=A0 Requires (syslogd).
+ =C2=A0 Conflicts with ().
+ =C2=A0 Will be respawned. =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0=
+ <-- not true!
+
+Starting it yielded:
+
+$ cat sshd-start
+Service ssh-daemon has been started.
+
+How do I increase the verbosity of shepherd? I did not find anything=20
+about that in the shepherd manual=20
+<https://www.gnu.org/software/shepherd/manual/shepherd.html#Invoking-shep=
+herd>.
+
+Is there a way to debug further?
+
+--=20
+Cheers
+Swedebugia
+PS
+$ guix --version
+guix (GNU Guix) 1f44934fb6e2cefccbecd4fa347025349fa9ff76 (=3D0.15
+
+
+--------------5605D2151F7A729B47E272C4
+Content-Type: text/html; charset=utf-8
+Content-Transfer-Encoding: quoted-printable
+
+<html>
+  <head>
+
+    <meta http-equiv=3D"content-type" content=3D"text/html; charset=3DUTF=
+-8">
+  </head>
+  <body text=3D"#000000" bgcolor=3D"#FFFFFF">
+    <p>Hi</p>
+    <p>This morning I started my GuixSD VM as usual.</p>
+    <p>Openssh server was not running even though it was enabled and
+      should have been respawned. Hmm.</p>
+    <p>Lucky for me SSH is not the only way into this system...</p>
+    <p>From the host I got:<br>
+    </p>
+    <p>$ ssh=C2=A0 sdb@localhost -p10022<br>
+      ssh_exchange_identification: read: Connection reset by peer</p>
+    <p>On the guest:<br>
+    </p>
+    <p>$ grep -3 "ssh-daemon could not /var/log/messages<br>
+      Nov=C2=A0 7 07:19:30 localhost vmunix: [=C2=A0=C2=A0=C2=A0 0.366701=
+] VFS: Dquot-cache
+      hash table entries: 512 (order 0, 4096 bytes)<br>
+      Nov=C2=A0 7 07:19:30 localhost vmunix: [=C2=A0=C2=A0=C2=A0 0.367764=
+] AppArmor:
+      AppArmor Filesystem Enabled<br>
+      Nov=C2=A0 7 07:19:30 localhost vmunix: [=C2=A0=C2=A0=C2=A0 0.368569=
+] pnp: PnP ACPI
+      init<br>
+      Nov=C2=A0 7 07:19:31 localhost shepherd[1]: Service ssh-daemon coul=
+d
+      not be started. <br>
+      Nov=C2=A0 7 07:19:31 localhost vmunix: [=C2=A0=C2=A0=C2=A0 0.370291=
+] pnp: PnP ACPI:
+      found 6 devices<br>
+      Nov=C2=A0 7 07:19:31 localhost vmunix: [=C2=A0=C2=A0=C2=A0 0.378960=
+] clocksource:
+      acpi_pm: mask: 0xffffff max_cycles: 0xffffff, max_idle_ns:
+      2085701024 ns<br>
+      Nov=C2=A0 7 07:19:31 localhost vmunix: [=C2=A0=C2=A0=C2=A0 0.380434=
+] NET: Registered
+      protocol family 2</p>
+    <p>Herd said:<br>
+    </p>
+    <p>$ cat sshd-stopped <br>
+      Status of ssh-daemon:<br>
+      =C2=A0 It is stopped.<br>
+      =C2=A0 It is enabled.<br>
+      =C2=A0 Provides (ssh-daemon).<br>
+      =C2=A0 Requires (syslogd).<br>
+      =C2=A0 Conflicts with ().<br>
+      =C2=A0 Will be respawned. =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0=
+ =C2=A0 &lt;-- not true!<br>
+    </p>
+    <p>Starting it yielded:<br>
+    </p>
+    <p>$ cat sshd-start <br>
+      Service ssh-daemon has been started.<br>
+    </p>
+    <p>How do I increase the verbosity of shepherd? I did not find
+      anything about that in the <a moz-do-not-send=3D"true"
+href=3D"https://www.gnu.org/software/shepherd/manual/shepherd.html#Invoki=
+ng-shepherd">shepherd
+        manual</a>.</p>
+    <p>Is there a way to debug further?<br>
+    </p>
+    <pre class=3D"moz-signature" cols=3D"72">--=20
+Cheers
+Swedebugia
+PS=20
+$ guix --version
+guix (GNU Guix) 1f44934fb6e2cefccbecd4fa347025349fa9ff76 (=3D0.15
+
+</pre>
+  </body>
+</html>
+
+--------------5605D2151F7A729B47E272C4--
+
+
diff --git a/tests/data/spool/db-h/99/33299.status b/tests/data/spool/db-h/99/33299.status
new file mode 100644
index 0000000..0dd1296
--- /dev/null
+++ b/tests/data/spool/db-h/99/33299.status
@@ -0,0 +1,10 @@
+user <user@example.com>
+1541585102
+'ssh-daemon' fails to start
+<c78be403-0616-67a0-fd5a-e1196b6a14d1@example.com>
+guix
+unreproducible
+
+
+30993 34580 37309
+important
diff --git a/tests/data/spool/db-h/99/33299.summary b/tests/data/spool/db-h/99/33299.summary
new file mode 100644
index 0000000..be47179
--- /dev/null
+++ b/tests/data/spool/db-h/99/33299.summary
@@ -0,0 +1,10 @@
+Format-Version: 2
+Message-Id: <c78be403-0616-67a0-fd5a-e1196b6a14d1@example.com>
+Severity: important
+Tags: unreproducible
+Date: 1541585102
+Submitter: user <user@example.com>
+Unarchived: 1569006961
+Subject: 'ssh-daemon' fails to start
+Package: guix
+Merged-With: 30993 34580 37309
diff --git a/tests/debbugs.scm b/tests/debbugs.scm
index 6631b9f..bda53e1 100644
--- a/tests/debbugs.scm
+++ b/tests/debbugs.scm
@@ -43,4 +43,11 @@ given by REPLACEMENT."
            ('data-dir data-dir)))
         ((@@ (mumi debbugs) bug-id->summary-file) 26095)))
 
+(test-equal "bug-id->summary-file: return active summary file"
+  (format #f "~a/spool/db-h/99/33299.summary" data-dir)
+  (mock ((mumi config) %config
+         (match-lambda
+           ('data-dir data-dir)))
+        ((@@ (mumi debbugs) bug-id->summary-file) 33299)))
+
 (test-end "debbugs")