branch: elpa/buttercup
commit 7eecb962171d28cbf2513e479194b13e677369f4
Author: Jorgen Schaefer <[email protected]>
Commit: Jorgen Schaefer <[email protected]>
Remove commented-out backtrace code from buttercup.el.
Adding a backtrace functionality, and this code, is now tracked by
issue #2.
---
buttercup.el | 31 -------------------------------
1 file changed, 31 deletions(-)
diff --git a/buttercup.el b/buttercup.el
index 891026e..fd43fc9 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -489,37 +489,6 @@ KEYWORD can have one of the following values:
"Return the context of the first call to SPY."
(car (spy-calls-all spy)))
-;; (let* ((buttercup--descriptions (cons description
-;; buttercup--descriptions))
-;; (debugger (lambda (&rest args)
-;; (let ((backtrace (buttercup--backtrace)))
-;; ;; If we do not do this, Emacs will not this
-;; ;; handler on subsequent calls. Thanks to ert
-;; ;; for this.
-;; (cl-incf num-nonmacro-input-events)
-;; (signal 'buttercup-error (cons args backtrace)))))
-;; (debug-on-error t)
-;; (debug-ignored-errors '(buttercup-failed buttercup-error)))
-;; (buttercup-report 'enter nil buttercup--descriptions)
-;; (condition-case sig
-;; (progn
-;; (funcall body-function)
-;; (buttercup-report 'success nil buttercup--descriptions))
-;; (buttercup-failed
-;; (buttercup-report 'failure (cdr sig) buttercup--descriptions))
-;; (buttercup-error
-;; (buttercup-report 'error (cdr sig) buttercup--descriptions))))
-
-;; (defun buttercup--backtrace ()
-;; (let* ((n 5)
-;; (frame (backtrace-frame n))
-;; (frame-list nil))
-;; (while frame
-;; (push frame frame-list)
-;; (setq n (1+ n)
-;; frame (backtrace-frame n)))
-;; frame-list))
-
;;;;;;;;;;;;;;;;
;;; Test Runners
