From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Michal Nazarewicz Newsgroups: gmane.emacs.bugs Subject: bug#22632: [PATCH 3/4] Add test for `message-strip-subject-trailing-was' Date: Thu, 11 Feb 2016 16:02:34 +0100 Message-ID: <1455202955-25751-3-git-send-email-mina86@mina86.com> References: <1455202258-23963-1-git-send-email-mina86@mina86.com> <1455202955-25751-1-git-send-email-mina86@mina86.com> NNTP-Posting-Host: plane.gmane.org X-Trace: ger.gmane.org 1455203016 3193 80.91.229.3 (11 Feb 2016 15:03:36 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 11 Feb 2016 15:03:36 +0000 (UTC) To: 22632@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Feb 11 16:03:21 2016 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1aTsm5-0000bc-S0 for geb-bug-gnu-emacs@m.gmane.org; Thu, 11 Feb 2016 16:03:18 +0100 Original-Received: from localhost ([::1]:50788 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aTsm5-0007B1-4O for geb-bug-gnu-emacs@m.gmane.org; Thu, 11 Feb 2016 10:03:17 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:48518) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aTslv-00073E-3e for bug-gnu-emacs@gnu.org; Thu, 11 Feb 2016 10:03:11 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aTslr-0001c9-Tx for bug-gnu-emacs@gnu.org; Thu, 11 Feb 2016 10:03:07 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:55944) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aTslr-0001c5-Qp for bug-gnu-emacs@gnu.org; Thu, 11 Feb 2016 10:03:03 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84) (envelope-from ) id 1aTslr-0000no-LF for bug-gnu-emacs@gnu.org; Thu, 11 Feb 2016 10:03:03 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Michal Nazarewicz Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 11 Feb 2016 15:03:03 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 22632 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch Original-Received: via spool by 22632-submit@debbugs.gnu.org id=B22632.14552029773050 (code B ref 22632); Thu, 11 Feb 2016 15:03:03 +0000 Original-Received: (at 22632) by debbugs.gnu.org; 11 Feb 2016 15:02:57 +0000 Original-Received: from localhost ([127.0.0.1]:36849 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84) (envelope-from ) id 1aTsll-0000n7-0r for submit@debbugs.gnu.org; Thu, 11 Feb 2016 10:02:57 -0500 Original-Received: from mail-wm0-f43.google.com ([74.125.82.43]:33758) by debbugs.gnu.org with esmtp (Exim 4.84) (envelope-from ) id 1aTslj-0000mK-2b for 22632@debbugs.gnu.org; Thu, 11 Feb 2016 10:02:55 -0500 Original-Received: by mail-wm0-f43.google.com with SMTP id g62so25025084wme.0 for <22632@debbugs.gnu.org>; Thu, 11 Feb 2016 07:02:55 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=20120113; h=sender:from:to:subject:date:message-id:in-reply-to:references; bh=890nNBW8zuvg78jLaJDZhhAfnXbNAK8E7ZcrJeT7AHY=; b=fpHyaAmV2ynaDJjECZs55+1TrVInpql7Rr6tNFLbE1mlycbIwj5SFD5pDB+N07Rf2N /6ouW57YB/BbK5UBcDuiVryCF5+KFtTRuA/wGZV42zKj+zUwKacEBaSgG7SQ3dM+uUUz sDfxycyuNtlUIbewUP4RsrHxQEiL88a+LO+dlfQWYf38hFd9l5vqD6xHn6JfKoCWjf7B ywcQpakHxfrf86TMC6fJkuBJPQpKmbjsLiypKz5nV9I4/zlXkWWf+aXw67qUz5u+lwPC 6L4Gv7UOSzffjZBWMgGZp8xsPaqapPkK8XZK8ohz0uij7vMxKPPdawtqfvobZXWTbC5o 29dg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20130820; h=x-gm-message-state:sender:from:to:subject:date:message-id :in-reply-to:references; bh=890nNBW8zuvg78jLaJDZhhAfnXbNAK8E7ZcrJeT7AHY=; b=cMrF1L5K3YQK5Np3gSYL/Zdrcf+4OA3UKIspDZVVETTxrb0jKAEtQXuDllXt+ZteJD Klx59qE3KboYP6dUHIEVNH720/JwJQ/uHsKwrr5lMm65zRpbd6IK2CpL50UfZvFf7g8i WpJUEPlsO7e2TiuI9ED61VERh3B3isj6b6yAxgNKj6Iy8B7XiHaF20TbVQKInx9beemQ FmmorjCf8XMbCQhVDrizEZxVr7683i1VkpUo/SuHT7y9AaX5aibiT1YvPHtH0lI075WC vRvUCVYQnKg9rbeEr4wvAxAZvQBjOzACjGviPjSsJixCpq2srRIrDWgxdJ+IQo71j48F tjPA== X-Gm-Message-State: AG10YOSQq/MJ/uceOK1Dl0duLZ2GDijAkqr9XNpBIxUgPvUJz90x0GNvWcUqYUhTDokZ2SRm X-Received: by 10.28.210.73 with SMTP id j70mr17533749wmg.8.1455202969322; Thu, 11 Feb 2016 07:02:49 -0800 (PST) Original-Received: from mpn.zrh.corp.google.com ([172.16.113.135]) by smtp.gmail.com with ESMTPSA id e14sm8384781wmi.21.2016.02.11.07.02.44 for <22632@debbugs.gnu.org> (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Thu, 11 Feb 2016 07:02:46 -0800 (PST) Original-Received: by mpn.zrh.corp.google.com (Postfix, from userid 126942) id BCDE21E00FE; Thu, 11 Feb 2016 16:02:43 +0100 (CET) X-Mailer: git-send-email 2.7.0.rc3.207.g0ac5344 In-Reply-To: <1455202955-25751-1-git-send-email-mina86@mina86.com> X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:112890 Archived-At: * test/lisp/gnus/message-test.el (message-strip-subject-trailing-was): New test. --- test/lisp/gnus/message-tests.el | 43 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) diff --git a/test/lisp/gnus/message-tests.el b/test/lisp/gnus/message-tests.el index 3afa156..ae34f24 100644 --- a/test/lisp/gnus/message-tests.el +++ b/test/lisp/gnus/message-tests.el @@ -55,6 +55,49 @@ (point))))) (set-buffer-modified-p nil)))) + +(ert-deftest message-strip-subject-trailing-was () + (ert-with-function-mocked message-talkative-question nil + (with-temp-buffer + (let ((no-was "Re: Foo ") + (with-was "Re: Foo \t (was: Bar ) ") + (stripped-was "Re: Foo") + reply) + + ;; Test unconditional stripping + (setq-local message-subject-trailing-was-query t) + (should (string= no-was (message-strip-subject-trailing-was no-was))) + (should (string= stripped-was + (message-strip-subject-trailing-was with-was))) + + ;; Test asking + (setq-local message-subject-trailing-was-query 'ask) + (fset 'message-talkative-question + (lambda (_ question show text) + (should (string= "Strip `(was: )' in subject? " + question)) + (should show) + (should (string-match + (concat + "Strip `(was: )' in subject " + "and use the new one instead\\?\n\n" + "Current subject is: \"\\(.*\\)\"\n\n" + "New subject would be: \"\\(.*\\)\"\n\n" + "See the variable " + "`message-subject-trailing-was-query' " + "to get rid of this query.") + text)) + (should (string= (match-string 1 text) with-was)) + (should (string= (match-string 2 text) stripped-was)) + reply)) + (message-strip-subject-trailing-was with-was) + (should (string= with-was + (message-strip-subject-trailing-was with-was))) + (setq reply t) + (should (string= stripped-was + (message-strip-subject-trailing-was with-was))))))) + + (provide 'message-mode-tests) ;;; message-mode-tests.el ends here -- 2.7.0.rc3.207.g0ac5344