[nongnu] elpa/buttercup 8b3cfad 214/340: Update test for new warning capture suppression behavior

[ELPA Syncer]

branch: elpa/buttercup
commit 8b3cfad70f3fff17bf6533fe236c2accc4054dee
Author: Ryan C. Thompson <rct@thompsonclan.org>
Commit: Ryan C. Thompson <rct@thompsonclan.org>

    Update test for new warning capture suppression behavior
---
 docs/writing-tests.md | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/docs/writing-tests.md b/docs/writing-tests.md
index 7be3782..cb72b28 100644
--- a/docs/writing-tests.md
+++ b/docs/writing-tests.md
@@ -640,7 +640,8 @@ By default, Buttercup captures any warning emitted during a 
test and
 displays them all after the test completes in order to keep the output
 readable. If you need to suppress this (for example if your test deals
 with the warnings itself), you can use the macro
-`buttercup-suppress-warning-capture`.
+`buttercup-suppress-warning-capture`, which works like `progn` but
+suppresses Buttercup's warning capturing within the body.
 
 ```Emacs-Lisp
 (describe "A test"
@@ -650,8 +651,11 @@ with the warnings itself), you can use the macro
 
   (it "can capture its own warnings as part of the test"
     (buttercup-suppress-warning-capture
-      (display-warning 'buttercup "This warning should be captured in 
`collected-output'.")
-      (expect (with-current-buffer "*Warnings*"
-                (buffer-string))
-              :to-match "This warning should be captured"))))
+      (let ((warning-text
+             (format "This warning, issued at %s should be sent to the 
*Warnings* buffer as normal."
+                     (current-time-string))))
+        (display-warning 'buttercup warning-text)
+        (expect (with-current-buffer "*Warnings*"
+                  (buffer-string))
+                :to-match (regexp-quote warning-text))))))
 ```