[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/buttercup c61a69a 066/340: A rudimentary interactive repor
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/buttercup c61a69a 066/340: A rudimentary interactive reporter. |
Date: |
Thu, 16 Dec 2021 14:59:05 -0500 (EST) |
branch: elpa/buttercup
commit c61a69ab62d10d6673893917162a0f2b44f1f82b
Author: Jorgen Schaefer <contact@jorgenschaefer.de>
Commit: Jorgen Schaefer <contact@jorgenschaefer.de>
A rudimentary interactive reporter.
---
buttercup.el | 30 +++++++++++++++++++++++++++++-
1 file changed, 29 insertions(+), 1 deletion(-)
diff --git a/buttercup.el b/buttercup.el
index ce23743..4bfc769 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -686,7 +686,7 @@ Do not change the global value.")
;;;;;;;;;;;;;
;;; Reporters
-(defvar buttercup-reporter #'buttercup-reporter-batch
+(defvar buttercup-reporter #'buttercup-reporter-adaptive
"The reporter function for buttercup test runs.
During a run of buttercup, the value of this variable is called
@@ -711,6 +711,15 @@ suite-done -- A suite has finished. The argument is the
spec.
buttercup-done -- All suites have run, the test run is over.")
+(defun buttercup-reporter-adaptive (event arg)
+ "A reporter that handles both interactive and noninteractive sessions.
+
+Calls either `buttercup-reporter-batch' or
+`buttercup-reporter-interactive', depending."
+ (if noninteractive
+ (buttercup-reporter-batch event arg)
+ (buttercup-reporter-interactive event arg)))
+
(defvar buttercup-reporter-batch--start-time nil
"The time the last batch report started.")
@@ -790,6 +799,25 @@ buttercup-done -- All suites have run, the test run is
over.")
(defun buttercup--print (fmt &rest args)
(send-string-to-terminal (apply #'format fmt args)))
+(defun buttercup-reporter-interactive (event arg)
+ "Reporter for interactive uses."
+ ;; This is a bit rudimentary ...
+ (with-current-buffer (get-buffer-create "*Buttercup*")
+ (when (eq event 'buttercup-started)
+ (erase-buffer)
+ (view-mode 1)
+ (display-buffer (current-buffer)))
+ (let ((old-print (symbol-function 'buttercup--print))
+ (buf (current-buffer)))
+ (fset 'buttercup--print (lambda (fmt &rest args)
+ (with-current-buffer buf
+ (let ((inhibit-read-only t))
+ (goto-char (point-max))
+ (insert (apply 'format fmt args))))))
+ (unwind-protect
+ (buttercup-reporter-batch event arg)
+ (fset 'buttercup--print old-print)))))
+
;;;;;;;;;;;;;
;;; Utilities
- [nongnu] elpa/buttercup f046eef 042/340: Bump version: 0.1 → 1.0, (continued)
- [nongnu] elpa/buttercup f046eef 042/340: Bump version: 0.1 → 1.0, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 537b729 044/340: Merge pull request #6 from myeffort/master, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup bcaa087 046/340: Add buttercup executable to run buttercup tests more easily., ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 7250873 047/340: Rename patch to minor in bumpversion.cfg, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 13c463a 050/340: Add more extensive usage instructions to the README., ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup c783259 052/340: Add MELPA Stable badge., ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup bdc3721 056/340: Documentation for the buttercup-reporter variable., ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 329d2f9 051/340: Add autoload markers to test runners., ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 162b862 060/340: The buttercup--funcall function., ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 638a836 061/340: The batch reporter now displays failures and stack traces., ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup c61a69a 066/340: A rudimentary interactive reporter.,
ELPA Syncer <=
- [nongnu] elpa/buttercup 182a974 068/340: Pending specs and disabled suites., ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup b3bb12a 070/340: buttercup-run-discover: Fix regexp., ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 26f8117 071/340: Rename buttercup-test.el and move it to the right directory., ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup f593486 092/340: Use pattern _ not t in pcase, as t is deprecated, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 0a889e2 098/340: Merge pull request #43 from spwhitton/apt-get, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup afbaae1 091/340: Document file names for test discovery, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 25cb350 089/340: Rename docs to be more easily understandable, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 6d96ea3 093/340: Add format specifier to error call with argument, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup cef9988 110/340: Merge pull request #61 from spwhitton/fix-regexp, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 2b5f53d 121/340: [Fix #72] Add buttercup-minor-mode, ELPA Syncer, 2021/12/16