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

Fix #6429, provide tests for new startup-list.

This commit is contained in:
ralesi 2016-06-25 23:38:57 -07:00 committed by syl20bnr
parent 86c7796fa8
commit 1a13cba730
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
core/core-dotspacemacs.el
View File

@ -618,9 +618,19 @@ error recovery."
(lambda (x) (member x '(all any current nil)))
'dotspacemacs-highlight-delimiters "is one of \'all, \'any, \'current or nil")
(spacemacs//test-list
(lambda (x) (member x '(recents bookmarks projects todos agenda)))
'dotspacemacs-startup-lists (concat "includes only \'recents, "
"\'bookmarks or \'projects"))
(lambda (x)
(let ((el (or (car-safe x) x))
(list-size (cdr-safe x)))
(member el '(recents bookmarks projects todos agenda))))
'dotspacemacs-startup-lists (concat "includes \'recents, "
"\'bookmarks, \'todos, "
"\'agenda or \'projects"))
(spacemacs//test-list
(lambda (x)
(let ((el (or (car-safe x) x))
(list-size (cdr-safe x)))
(or (null list-size)(numberp list-size))))
'dotspacemacs-startup-lists (concat "list size is a number"))
(spacemacs//test-var 'stringp 'dotspacemacs-leader-key "is a string")
(spacemacs//test-var 'stringp 'dotspacemacs-emacs-leader-key "is a string")
(spacemacs//test-var