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

Convert dotspacemacs-tests to org-mode output

This commit is contained in:
justbur 2015-06-29 22:53:51 -04:00 committed by syl20bnr
parent 51022543a8
commit a30695c459
2 changed files with 38 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
core/core-dotspacemacs.el
View File

@ -308,7 +308,9 @@ If MSG is not nil then display a message in `*Messages'."
(defun dotspacemacs//test-dotspacemacs/layers ()
"Tests for `dotspacemacs/layers'"
(princ "\nTesting settings in dotspacemacs/layers\n")
(insert
(format "\n* Testing settings in dotspacemacs/layers [[file:%s::dotspacemacs/layers][Show in File]]\n"
dotspacemacs-filepath))
;; protect global values of these variables
(let (dotspacemacs-configuration-layer-path dotspacemacs-configuration-layers
dotspacemacs-additional-packages dotspacemacs-excluded-packages
@ -323,13 +325,17 @@ If MSG is not nil then display a message in `*Messages'."
(setq dotspacemacs-configuration-layers
(mapcar (lambda (l) (if (listp l) (car l) l)) dotspacemacs-configuration-layers))
(spacemacs//test-list
'configuration-layer/get-layer-path 'dotspacemacs-configuration-layers "can be found" "layer")
(princ (format
"RESULTS: dotspacemacs/layers passed %s out of %s tests\n" passed-tests total-tests))))
'configuration-layer/get-layer-path
'dotspacemacs-configuration-layers "can be found" "layer")
(insert (format
"** RESULTS: [[file:%s::dotspacemacs/layers][dotspacemacs/layers]] passed %s out of %s tests\n"
dotspacemacs-filepath passed-tests total-tests))))
(defun dotspacemacs//test-dotspacemacs/init ()
"Tests for `dotspacemacs/init'"
(princ "\nTesting settings in dotspacemacs/init\n")
(insert
(format "\n* Testing settings in dotspacemacs/init [[file:%s::dotspacemacs/init][Show in File]]\n"
dotspacemacs-filepath))
;; protect global values of these variables
(let (dotspacemacs-editing-style dotspacemacs-verbose-loading
dotspacemacs-startup-banner dotspacemacs-startup-lists
@ -364,8 +370,9 @@ If MSG is not nil then display a message in `*Messages'."
(spacemacs//test-var 'stringp 'dotspacemacs-emacs-leader-key "is a string")
(spacemacs//test-var 'stringp 'dotspacemacs-major-mode-leader-key "is a string")
(spacemacs//test-var 'stringp 'dotspacemacs-command-key "is a string")
(princ (format
"RESULTS: dotspacemacs/init passed %s out of %s tests\n" passed-tests total-tests))))
(insert (format
"** RESULTS: [[file:%s::dotspacemacs/init][dotspacemacs/init]] passed %s out of %s tests\n"
dotspacemacs-filepath passed-tests total-tests))))
(defun dotspacemacs/test-dotfile ()
"Test settings in dotfile for correctness."
@ -376,12 +383,15 @@ If MSG is not nil then display a message in `*Messages'."
(if nil
(error (format "error: dotspacemacs/test-dotfile requires dotspacemacs-version %s" min-version))
(save-excursion
(let ((buf (get-buffer-create "*dotfile-test-results*")))
(with-output-to-temp-buffer buf
(princ (format "Running tests on %s (v%s)\n" dotspacemacs-filepath "0.0"))
;; dotspacemacs-version not implemented yet
;; (princ (format "Running tests on %s (v%s)\n" dotspacemacs-filepath dotspacemacs-version))
(dotspacemacs//test-dotspacemacs/layers)
(dotspacemacs//test-dotspacemacs/init)))))))
(switch-to-buffer-other-window "*dotfile-test-results*")
(erase-buffer)
(org-mode)
(insert (format "* Running tests on [[file:%s][%s]] (v%s)\n"
dotspacemacs-filepath dotspacemacs-filepath "0.0"))
;; dotspacemacs-version not implemented yet
;; (insert (format "* Running tests on %s (v%s)\n" dotspacemacs-filepath dotspacemacs-version))
(dotspacemacs//test-dotspacemacs/layers)
(dotspacemacs//test-dotspacemacs/init)
(goto-char (point-min))))))
(provide 'core-dotspacemacs)

20
core/core-funcs.el
View File

@ -149,11 +149,14 @@ passed-tests and total-tests."
(let ((var-name (symbol-name var))
(var-val (symbol-value var)))
(when (boundp 'total-tests) (setq total-tests (1+ total-tests)))
(insert (format "** TEST: [[file:%s::%s][%s]] %s\n"
dotspacemacs-filepath var-name var-name test-desc))
(if (funcall pred var-val)
(progn
(when (boundp 'passed-tests) (setq passed-tests (1+ passed-tests)))
(princ (format " TEST: %s %s\n PASS: %s\n" var-name test-desc var-val)))
(princ (format " TEST: %s %s\n FAIL: %s\n" var-name test-desc var-val)))))
(insert (format "*** PASS: %s\n" var-val)))
(insert (propertize (format "*** FAIL: %s\n" var-val)
'font-lock-face 'font-lock-warning-face)))))
(defun spacemacs//test-list (pred varlist test-desc &optional element-desc)
"Test PRED against each element of VARLIST and print test
@ -161,14 +164,19 @@ result, incrementing passed-tests and total-tests."
(let ((varlist-name (symbol-name varlist))
(varlist-val (symbol-value varlist)))
(if element-desc
(princ (format " TEST: Each %s in %s %s\n" element-desc varlist-name test-desc))
(princ (format " TEST: Each element of %s %s\n" varlist-name test-desc)))
(insert (format "** TEST: Each %s in [[file:%s::%s][%s]] %s\n"
element-desc dotspacemacs-filepath varlist-name
varlist-name test-desc))
(insert (format "** TEST: Each element of [[file:%s::%s][%s]] %s\n"
dotspacemacs-filepath varlist-name varlist-name
test-desc)))
(dolist (var varlist-val)
(when (boundp 'total-tests) (setq total-tests (1+ total-tests)))
(if (funcall pred var)
(progn
(when (boundp 'passed-tests) (setq passed-tests (1+ passed-tests)))
(princ (format " PASS: %s\n" var)))
(princ (format " FAIL: %s\n" var))))))
(insert (format "*** PASS: %s\n" var)))
(insert (propertize (format "*** FAIL: %s\n" var) 'font-lock-face 'font-lock-warning-face))))))
(provide 'core-funcs)