procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ert: Add basic explainer for string-equal

Browse source 
* lisp/emacs-lisp/ert.el (ert--explain-string-equal): Add basic
explainer for 'string-equal' based on 'ert--explain-equal'.
This commit is contained in:
Stefan Kangas 2021-09-26 13:18:29 +02:00
parent ce6cee4ca3
commit f4ea15907a
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/ert.el
View file

@ -540,6 +540,14 @@ Returns nil if they are."
(ert--explain-equal-rec a b)))
(put 'equal 'ert-explainer 'ert--explain-equal)
(defun ert--explain-string-equal (a b)
"Explainer function for `string-equal'."
;; Convert if they are symbols.
(let ((as (if (symbolp a) (symbol-name a) a))
(bs (if (symbolp b) (symbol-name b) b)))
(ert--explain-equal-rec as bs)))
(put 'string-equal 'ert-explainer 'ert--explain-string-equal)
(defun ert--significant-plist-keys (plist)
"Return the keys of PLIST that have non-null values, in order."
(cl-assert (zerop (mod (length plist) 2)) t)