TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[org] Remove unit tests for non existing function 

for we do not longer require to replace org with
org-plus-contrib on the fly.
This commit is contained in:
Maximilian Wolff 2021-05-30 12:36:26 +02:00
parent b96ace1313
commit c74b0f8bc0
No known key found for this signature in database
GPG Key ID: 2DD07025BFDBD89A
3 changed files with 2 additions and 122 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
layers/+emacs/org/packages.el
View File

@ -31,7 +31,7 @@
gnuplot
(helm-org-rifle :toggle (configuration-layer/layer-used-p 'helm))
htmlize
;; ob, org, org-agenda and org-contacts are installed by `org-plus-contrib'
;; ob, org, org-agenda and org-contacts are installed by `org-contrib'
(ob :location built-in)
(org :location built-in)
(org-agenda :location built-in)

120
tests/core/core-configuration-layer-utest.el
View File

@ -3084,126 +3084,6 @@
(cadr (assq 'local stats))
(cadr (assq 'built-in stats)))))))
;; ---------------------------------------------------------------------------
;; configuration-layer//package-install-org
;; ---------------------------------------------------------------------------
(defun --test-package-install-org--symbol-name (pkg-name)
(mocker-let
((package-installed-p (org-plus-contrib)
((:record-cls 'mocker-stub-record
:output nil :occur 1)))
(identity (x) ((:input '(org-plus-contrib) :output nil :occur 1))))
(configuration-layer//package-install-org 'identity pkg-name)))
(defun --package-install-org--symbol-name-already-installed (pkg-name)
(mocker-let
((package-installed-p (org-plus-contrib)
((:record-cls 'mocker-stub-record
:output t :occur 1))))
(configuration-layer//package-install-org 'identity pkg-name)))
(defun --test-package-install-org--package-desc-name (pkg-desc)
(mocker-let
((package-installed-p (org-plus-contrib)
((:record-cls 'mocker-stub-record
:output nil :occur 1)))
(identity (x) ((:input `(,pkg-desc) :output nil :occur 1))))
(configuration-layer//package-install-org 'identity pkg-desc)))
(defun --package-install-org--package-desc-name-already-installed (pkg-desc)
(mocker-let
((package-installed-p (org-plus-contrib)
((:record-cls 'mocker-stub-record
:output t :occur 1))))
(configuration-layer//package-install-org 'identity pkg-desc)))
(defun --test-package-install-org--package-desc-reqs (pkg-desc)
(mocker-let
((package-installed-p (x) ((:record-cls 'mocker-stub-record
:output nil :occur 1))))
(configuration-layer//package-install-org 'identity pkg-desc)))
(ert-deftest test-package-install-org--symbol-name-org ()
(--test-package-install-org--symbol-name 'org))
(ert-deftest test-package-install-org--symbol-name-org-plus-contrib ()
(--test-package-install-org--symbol-name 'org-plus-contrib))
(ert-deftest test-package-install-org--symbol-name-org-already-installed ()
(should (null (--package-install-org--symbol-name-already-installed 'org))))
(ert-deftest
test-package-install-org--symbol-name-org-plus-contrib-already-installed ()
(should (null (--package-install-org--symbol-name-already-installed
'org-plus-contrib))))
(ert-deftest test-package-install-org--no-effect-on-symbol-name-other-packages ()
(let ((pkg (configuration-layer//package-install-org 'identity 'foo)))
(should (eq 'foo pkg))))
(ert-deftest test-package-install-org--package-desc-name-org ()
(let ((pkg (package-desc-create :name 'org
:version '(7)
:summary "Dummy Org package desc"
:reqs nil)))
(--test-package-install-org--package-desc-name pkg)))
(ert-deftest test-package-install-org--package-desc-name-org-already-installed ()
(let ((pkg (package-desc-create :name 'org
:version '(7)
:summary "Dummy Org package desc"
:reqs nil)))
(--package-install-org--package-desc-name-already-installed pkg)))
(ert-deftest test-package-install-org--package-desc-name-org-plus-contrib ()
(let ((pkg (package-desc-create :name 'org-plus-contrib
:version '(7)
:summary "Dummy org-plus-contrib package desc"
:reqs nil)))
(--test-package-install-org--package-desc-name pkg)))
(ert-deftest
test-package-install-org--package-desc-name-org-plus-contrib-already-installed ()
(let ((pkg (package-desc-create :name 'org-plus-contrib
:version '(7)
:summary "Dummy org-plus-contrib package desc"
:reqs nil)))
(--package-install-org--package-desc-name-already-installed pkg)))
(ert-deftest test-package-install-org--package-desc-reqs-org ()
(let ((pkg (package-desc-create :name 'dummy
:version '(7)
:summary "Dummy package desc"
:reqs '((org 7)))))
(mocker-let
((package-installed-p (x) ((:record-cls 'mocker-stub-record
:output nil :occur 1))))
(let ((patched-pkg (configuration-layer//package-install-org
'identity pkg)))
(should (equal
(package-desc-create :name 'dummy
:version '(7)
:summary "Dummy package desc"
:reqs '((org-plus-contrib 7)))
patched-pkg))))))
(ert-deftest test-package-install-org--package-desc-reqs-org-contrib-plus ()
(let ((pkg (package-desc-create :name 'dummy
:version '(7)
:summary "Dummy package desc"
:reqs '((org-plus-contrib 7)))))
(let ((patched-pkg (configuration-layer//package-install-org 'identity pkg)))
(should (equal pkg patched-pkg)))))
(ert-deftest test-package-install-org--no-effect-on-package-desc-other-packages ()
(let ((pkg (package-desc-create :name 'dummy
:version '(7)
:summary "Dummy package desc"
:reqs '((foo 7)))))
(let ((patched-pkg (configuration-layer//package-install-org 'identity pkg)))
(should (equal pkg patched-pkg)))))
;; ---------------------------------------------------------------------------
;; configuration-layer//stable-elpa-verify-archive
;; ---------------------------------------------------------------------------

2
tests/core/core-spacemacs-ftest.el
View File

@ -24,7 +24,7 @@
(require 'core-spacemacs)
(ert-deftest assertion-library-should-work ()
"the assertion library should works"
"the assertion library should work"
(mocker-let ((foo (n)
((:input '(1) :output 1)))
(bar (n m)