1 Return-Path: <dme@dme.org>
\r
2 X-Original-To: notmuch@notmuchmail.org
\r
3 Delivered-To: notmuch@notmuchmail.org
\r
4 Received: from localhost (localhost [127.0.0.1])
\r
5 by olra.theworths.org (Postfix) with ESMTP id 7764E429E3C
\r
6 for <notmuch@notmuchmail.org>; Wed, 25 Jan 2012 07:45:34 -0800 (PST)
\r
7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org
\r
11 X-Spam-Status: No, score=-0.7 tagged_above=-999 required=5
\r
12 tests=[RCVD_IN_DNSWL_LOW=-0.7] autolearn=disabled
\r
13 Received: from olra.theworths.org ([127.0.0.1])
\r
14 by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)
\r
15 with ESMTP id 2VRMUSWJJWKD for <notmuch@notmuchmail.org>;
\r
16 Wed, 25 Jan 2012 07:45:34 -0800 (PST)
\r
17 Received: from mail-wi0-f181.google.com (mail-wi0-f181.google.com
\r
18 [209.85.212.181]) (using TLSv1 with cipher RC4-SHA (128/128 bits))
\r
19 (No client certificate requested)
\r
20 by olra.theworths.org (Postfix) with ESMTPS id E93C8431FBC
\r
21 for <notmuch@notmuchmail.org>; Wed, 25 Jan 2012 07:45:33 -0800 (PST)
\r
22 Received: by wibhi8 with SMTP id hi8so2602173wib.26
\r
23 for <notmuch@notmuchmail.org>; Wed, 25 Jan 2012 07:45:32 -0800 (PST)
\r
25 Received: by 10.180.96.3 with SMTP id do3mr12157833wib.1.1327506332692;
\r
26 Wed, 25 Jan 2012 07:45:32 -0800 (PST)
\r
27 Received: from hotblack-desiato.hh.sledj.net
\r
28 (host81-149-164-25.in-addr.btopenworld.com. [81.149.164.25])
\r
29 by mx.google.com with ESMTPS id j16sm2701702wie.4.2012.01.25.07.45.31
\r
30 (version=TLSv1/SSLv3 cipher=OTHER);
\r
31 Wed, 25 Jan 2012 07:45:31 -0800 (PST)
\r
32 Received: by hotblack-desiato.hh.sledj.net (Postfix, from userid 30000)
\r
33 id D9EA59FEEC; Wed, 25 Jan 2012 15:45:29 +0000 (GMT)
\r
34 From: David Edmondson <dme@dme.org>
\r
35 To: notmuch@notmuchmail.org
\r
36 Subject: [PATCH 2/4 v2] test: `notmuch-test-run' should protect against buffer
\r
38 Date: Wed, 25 Jan 2012 15:45:26 +0000
\r
39 Message-Id: <1327506328-22126-3-git-send-email-dme@dme.org>
\r
40 X-Mailer: git-send-email 1.7.8.3
\r
41 In-Reply-To: <1327506328-22126-1-git-send-email-dme@dme.org>
\r
42 References: <1327503908-17226-1-git-send-email-dme@dme.org>
\r
43 <1327506328-22126-1-git-send-email-dme@dme.org>
\r
45 ALoCoQlJjOcxbis7sJJgRFgLuwmJ44+T6fAGn0HzCp+JbHTDE69jgSIKPkTcN3e0FMmqKE535JQ4
\r
46 X-BeenThere: notmuch@notmuchmail.org
\r
47 X-Mailman-Version: 2.1.13
\r
49 List-Id: "Use and development of the notmuch mail system."
\r
50 <notmuch.notmuchmail.org>
\r
51 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,
\r
52 <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>
\r
53 List-Archive: <http://notmuchmail.org/pipermail/notmuch>
\r
54 List-Post: <mailto:notmuch@notmuchmail.org>
\r
55 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>
\r
56 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,
\r
57 <mailto:notmuch-request@notmuchmail.org?subject=subscribe>
\r
58 X-List-Received-Date: Wed, 25 Jan 2012 15:45:34 -0000
\r
60 The body of the test may cause the current buffer to change. Ensure
\r
61 that the output goes to the correct buffer by switching back before
\r
64 test/test-lib.el | 4 +++-
\r
65 1 files changed, 3 insertions(+), 1 deletions(-)
\r
67 diff --git a/test/test-lib.el b/test/test-lib.el
\r
68 index 36e793a..0efb02a 100644
\r
69 --- a/test/test-lib.el
\r
70 +++ b/test/test-lib.el
\r
71 @@ -89,7 +89,9 @@ nothing."
\r
72 (defmacro notmuch-test-run (&rest body)
\r
73 "Evaluate a BODY of test expressions and output the result."
\r
75 - (let ((result (progn ,@body)))
\r
76 + (let ((buffer (current-buffer))
\r
77 + (result (progn ,@body)))
\r
78 + (switch-to-buffer buffer)
\r
79 (insert (if (stringp result)
\r
81 (prin1-to-string result)))
\r