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 () (defun dotspacemacs//test-dotspacemacs/layers ()
"Tests for `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 ;; protect global values of these variables
(let (dotspacemacs-configuration-layer-path dotspacemacs-configuration-layers (let (dotspacemacs-configuration-layer-path dotspacemacs-configuration-layers
dotspacemacs-additional-packages dotspacemacs-excluded-packages 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 (setq dotspacemacs-configuration-layers
(mapcar (lambda (l) (if (listp l) (car l) l)) dotspacemacs-configuration-layers)) (mapcar (lambda (l) (if (listp l) (car l) l)) dotspacemacs-configuration-layers))
(spacemacs//test-list (spacemacs//test-list
'configuration-layer/get-layer-path 'dotspacemacs-configuration-layers "can be found" "layer") 'configuration-layer/get-layer-path
(princ (format 'dotspacemacs-configuration-layers "can be found" "layer")
"RESULTS: dotspacemacs/layers passed %s out of %s tests\n" passed-tests total-tests)))) (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 () (defun dotspacemacs//test-dotspacemacs/init ()
"Tests for `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 ;; protect global values of these variables
(let (dotspacemacs-editing-style dotspacemacs-verbose-loading (let (dotspacemacs-editing-style dotspacemacs-verbose-loading
dotspacemacs-startup-banner dotspacemacs-startup-lists 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-emacs-leader-key "is a string")
(spacemacs//test-var 'stringp 'dotspacemacs-major-mode-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") (spacemacs//test-var 'stringp 'dotspacemacs-command-key "is a string")
(princ (format (insert (format
"RESULTS: dotspacemacs/init passed %s out of %s tests\n" passed-tests total-tests)))) "** RESULTS: [[file:%s::dotspacemacs/init][dotspacemacs/init]] passed %s out of %s tests\n"
dotspacemacs-filepath passed-tests total-tests))))
(defun dotspacemacs/test-dotfile () (defun dotspacemacs/test-dotfile ()
"Test settings in dotfile for correctness." "Test settings in dotfile for correctness."
@ -376,12 +383,15 @@ If MSG is not nil then display a message in `*Messages'."
(if nil (if nil
(error (format "error: dotspacemacs/test-dotfile requires dotspacemacs-version %s" min-version)) (error (format "error: dotspacemacs/test-dotfile requires dotspacemacs-version %s" min-version))
(save-excursion (save-excursion
(let ((buf (get-buffer-create "*dotfile-test-results*"))) (switch-to-buffer-other-window "*dotfile-test-results*")
(with-output-to-temp-buffer buf (erase-buffer)
(princ (format "Running tests on %s (v%s)\n" dotspacemacs-filepath "0.0")) (org-mode)
;; dotspacemacs-version not implemented yet (insert (format "* Running tests on [[file:%s][%s]] (v%s)\n"
;; (princ (format "Running tests on %s (v%s)\n" dotspacemacs-filepath dotspacemacs-version)) dotspacemacs-filepath dotspacemacs-filepath "0.0"))
(dotspacemacs//test-dotspacemacs/layers) ;; dotspacemacs-version not implemented yet
(dotspacemacs//test-dotspacemacs/init))))))) ;; (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) (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)) (let ((var-name (symbol-name var))
(var-val (symbol-value var))) (var-val (symbol-value var)))
(when (boundp 'total-tests) (setq total-tests (1+ total-tests))) (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) (if (funcall pred var-val)
(progn (progn
(when (boundp 'passed-tests) (setq passed-tests (1+ passed-tests))) (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))) (insert (format "*** PASS: %s\n" var-val)))
(princ (format " TEST: %s %s\n FAIL: %s\n" var-name test-desc 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) (defun spacemacs//test-list (pred varlist test-desc &optional element-desc)
"Test PRED against each element of VARLIST and print test "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)) (let ((varlist-name (symbol-name varlist))
(varlist-val (symbol-value varlist))) (varlist-val (symbol-value varlist)))
(if element-desc (if element-desc
(princ (format " TEST: Each %s in %s %s\n" element-desc varlist-name test-desc)) (insert (format "** TEST: Each %s in [[file:%s::%s][%s]] %s\n"
(princ (format " TEST: Each element of %s %s\n" varlist-name test-desc))) 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) (dolist (var varlist-val)
(when (boundp 'total-tests) (setq total-tests (1+ total-tests))) (when (boundp 'total-tests) (setq total-tests (1+ total-tests)))
(if (funcall pred var) (if (funcall pred var)
(progn (progn
(when (boundp 'passed-tests) (setq passed-tests (1+ passed-tests))) (when (boundp 'passed-tests) (setq passed-tests (1+ passed-tests)))
(princ (format " PASS: %s\n" var))) (insert (format "*** PASS: %s\n" var)))
(princ (format " FAIL: %s\n" var)))))) (insert (propertize (format "*** FAIL: %s\n" var) 'font-lock-face 'font-lock-warning-face))))))
(provide 'core-funcs) (provide 'core-funcs)