emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/buttercup 553529f 181/340: Remove obsolete buttercup-xdesc


From: ELPA Syncer
Subject: [nongnu] elpa/buttercup 553529f 181/340: Remove obsolete buttercup-xdescribe
Date: Thu, 16 Dec 2021 14:59:30 -0500 (EST)

branch: elpa/buttercup
commit 553529f1877209772e2026b1fe0a87a2830b1aaa
Author: Ola Nilsson <ola.nilsson@gmail.com>
Commit: Ola Nilsson <ola.nilsson@gmail.com>

    Remove obsolete buttercup-xdescribe
    
    buttercup-xdescribe is no longer used by the xdescribe macro.
---
 buttercup.el            | 12 ------------
 tests/test-buttercup.el | 18 ------------------
 2 files changed, 30 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index 80380fc..7a9e4a3 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -965,18 +965,6 @@ mainly calls to `describe', `it' and `before-each'."
      ;; make sure the suite is marked as pending
      (signal 'buttercup-pending "PENDING")))
 
-(defun buttercup-xdescribe (description function)
-  "Like `buttercup-describe', but mark the suite as disabled.
-
-A disabled suite is not run.
-
-DESCRIPTION has the same meaning as in `xdescribe'. FUNCTION
-is ignored.
-`describe'."
-  (ignore function)
-  (buttercup-describe description (lambda ()
-                                    (signal 'buttercup-pending "PENDING"))))
-
 ;;;;;;;;;;;;;;;;;;;;;;
 ;;; Pending Specs: xit
 
diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index 94f3ad3..d7ff1d9 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -497,24 +497,6 @@
               :to-be
               'pending))))
 
-
-(describe "The `buttercup-xdescribe' function"
-  (it "should be a no-op"
-    (expect (buttercup-xdescribe
-             "bla bla"
-             (lambda () (error "Should not happen")))
-            :not :to-throw))
-
-  (it "should add a pending suite"
-    (let ((buttercup--current-suite nil)
-          (buttercup-suites nil))
-      (buttercup-xdescribe
-       "bla bla"
-       (lambda () nil))
-      (expect (buttercup-suite-status (car buttercup-suites))
-              :to-be
-              'pending))))
-
 ;;;;;;;;;;;;;;;;;;;;;;
 ;;; Pending Specs: xit
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]